root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Patch level :

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :


git-svn-id: svn://10.65.10.50/branches/R_10_00@21727 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
cris 2011-03-01 09:48:27 +00:00
parent 26428c46a9
commit bea5705d09
6 changed files with 175 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
ha/ha0100.cpp
View File

@ -5,6 +5,7 @@
#include <tabutil.h>
#include "hatbcau.h"
#include "hatbcel.h"
///////////////////////////////////////////////////////////
// Maschera generica di gestione tabelle hardy
@ -32,40 +33,30 @@ bool THA_table_mask::on_field_event(TOperable_field &o, TField_event e, long jol
class THA_table_app : public TTable_module_application
{
protected: // TRelation_application
virtual TMask* user_create_mask();
virtual int write(const TMask& m);
virtual int rewrite(const TMask& m);
public:
virtual void init_query_mode(TMask& m);
virtual void init_query_insert_mode(TMask& m);
};
// Ridefinire questo metodo per le eventuali maschere speciali
// che abbiano controlli speciali da effettuare nella on_field_event
TMask* THA_table_app::user_create_mask()
void THA_table_app::init_query_mode(TMask& m)
{
const TString4 name = get_relation()->file(0).name();
if (name == "???")
return new THA_table_mask("???");
// Le maschere normali sono gia' gestite dalla TTable_module_application
return TTable_module_application::user_create_mask();
if (name == "CEL")
{
m.hide(F_CODCLI1);
m.show(F_CODCLI);
}
}
// Ridefinizione del metodo write
int THA_table_app::write(const TMask& m)
void THA_table_app::init_query_insert_mode(TMask& m)
{
const TString4 name = get_relation()->file(0).name();
return TTable_module_application::write(m);
if (name == "CEL")
{
m.hide(F_CODCLI);
m.show(F_CODCLI1);
}
}
// Ridefinizione del metodo rewrite
int THA_table_app::rewrite(const TMask& m)
{
const TString4 name = get_relation()->file(0).name();
return TTable_module_application::rewrite(m);
}
int ha0100(int argc, char* argv[])
{
THA_table_app a;

9
ha/ha0200a.h
View File

@ -54,3 +54,12 @@
#define S_ALIQUOTA_IVA 101
#define S_CAMPO_CODIVA 102
#define S_CAMPO_CODIVA_DES 103
// configurazione Procedura Esselunga
#define F_E_PATH 301
#define F_E_PIVA_HARDY 302
#define F_E_PIVA_ESSELUNGA 303
#define F_E_COD_HARDY 304
#define F_E_COD_ESSELUNGA 305
#define F_E_TIPOEMISSIONE 306
#define F_E_DATACONF 307

56
ha/ha0200a.uml
View File

@ -519,6 +519,62 @@ END
ENDPAGE
PAGE "Configurazione Esselunga" -1 -1 78 23
STRING F_E_PATH 255 39
BEGIN
PROMPT 2 2 "Percorso files da spedire "
DSELECT
FLAGS "M"
CHECKTYPE REQUIRED
WARNING "Selezionare una cartella valida!"
FIELD Esselunga_Path
END
STRING F_E_PIVA_HARDY 12
BEGIN
PROMPT 2 4 "Partita IVA Hardy "
HELP "Partita IVA Hardy"
FIELD Esselunga_PIvaHardy
END
STRING F_E_PIVA_ESSELUNGA 12
BEGIN
PROMPT 2 5 "Partita IVA Esselunga "
HELP "Partita IVA Esselunga"
FIELD Esselunga_PIvaEsselunga
END
NUMBER F_E_COD_HARDY 6
BEGIN
PROMPT 2 6 "Cod. fornitore "
HELP "Codice fornitore Hardy presso Esselunga"
FIELD Esselunga_CodHardy
END
NUMBER F_E_COD_ESSELUNGA 6
BEGIN
PROMPT 2 6 "Cod. cliente "
HELP "Codice cliente Esselunga"
FIELD Esselunga_CodEsselunga
END
STRING F_E_TIPOEMISSIONE 2
BEGIN
PROMPT 2 7 "Tipo Emissione"
HELP "Tipo emissione"
FIELD Esselunga_TipoEmissione
END
DATE F_E_DATACONF
BEGIN
PROMPT 2 8 "Data di configurazione "
HELP "Data di configurazione "
FIELD Esselunga_DatConf
END
ENDPAGE
ENDMASK
//---------------------------------------------------

12
ha/hamenu.men
View File

@ -6,7 +6,8 @@ Flags = "F"
Item_01 = "Gestione listini", [HAMENU_002]
Item_02 = "Gestione contratti premio", [HAMENU_003]
Item_03 = "Collegamento terminalini", [HAMENU_004]
Item_04 = "Servizi", [HAMENU_005]
Item_04 = "Procedura Esselunga", [HAMENU_006]
Item_05 = "Servizi", [HAMENU_005]
[HAMENU_002]
Caption = "Listini"
@ -45,3 +46,12 @@ Item_01 = "Configurazione modulo", "ha0 -1", ""
Item_02 = "Conversione anagrafiche", "hacnv -0 /uADMIN", "F"
Item_03 = "Conversione movimenti", "hacnv -1 /uADMIN", "F"
Item_04 = "Conversione scadenze", "hacnv -2 /uADMIN", "F"
[HAMENU_006]
Caption = "Procedura Esselunga"
Picture = <ha01>
Module = 46
Flags = "F"
Item_01 = "Gestione file Privat", "ha2 -0", "F"
Item_02 = "Gestione file Fattura", "ha2 -1", "F"
Item_03 = "Tabella clienti Esselunga", "ha0 -0 &CEL", ""

7
ha/hatbcel.h Executable file
View File

@ -0,0 +1,7 @@
//campi tabella &CEL del modulo HA
#define F_CODCLI 201
#define F_CODCLI1 202
#define F_RAGSOC 203
#define F_INVIO 204
#define F_CODESSELUNGA 205
#define F_DIPENDENZA 206

77
ha/hatbcel.uml Executable file
View File

@ -0,0 +1,77 @@
#include "hatbcel.h"
PAGE "Configurazione Clienti Esselunga" -1 -1 78 10
GROUPBOX DLG_NULL 76 3
BEGIN
PROMPT 1 1 "@bCliente"
END
STRING F_CODCLI 6
BEGIN
PROMPT 2 2 "Cliente "
USE &CEL
JOIN LF_CLIFO INTO TIPOCF=="C" CODCF==CODTAB
FIELD CODTAB
KEY 1
INPUT CODTAB F_CODCLI
DISPLAY "Cliente" CODTAB
DISPLAY "Ragione sociale" LF_CLIFO->RAGSOC
DISPLAY "Invio" B0
DISPLAY "Cod.Esselunga" I0
DISPLAY "Dipendenza" S1
OUTPUT F_CODCLI CODTAB
OUTPUT F_RAGSOC LF_CLIFO->RAGSOC
CHECKTYPE REQUIRED
END
STRING F_CODCLI1 6
BEGIN
PROMPT 2 2 "Cliente "
FIELD CODTAB
FLAGS "H"
KEY 1
USE LF_CLIFO
INPUT TIPOCF "C"
INPUT CODCF F_CODCLI1
DISPLAY "Cliente" CODCF
DISPLAY "Ragione sociale" RAGSOC
OUTPUT F_CODCLI1 CODCF
OUTPUT F_RAGSOC RAGSOC
CHECKTYPE REQUIRED
MESSAGE COPY,F_CODCLI
END
STRING F_RAGSOC 50
BEGIN
PROMPT 25 2 ""
FLAGS "D"
END
BOOLEAN F_INVIO
BEGIN
PROMPT 2 5 "Invio abilitato"
FIELD B0
END
NUMBER F_CODESSELUNGA 3
BEGIN
PROMPT 2 6 "Cod. esselunga "
FIELD I0
END
LISTBOX F_DIPENDENZA 10
BEGIN
PROMPT 2 7 "Dipendenza"
ITEM "D|Milano"
ITEM "U|Firenze"
FIELD S1
END
ENDPAGE
TOOLBAR "" 0 0 0 2
#include "relapbar.h"
ENDPAGE
ENDMASK