From 8699be41fad4949973531b54cef82522899c8a08 Mon Sep 17 00:00:00 2001 From: alex Date: Wed, 24 Nov 2010 17:59:21 +0000 Subject: [PATCH] Patch level : 10.0 846 Files correlati : lv4.exe Ricompilazione Demo : [ ] Commento : Aggiunta Tabelle riclassificazione tabelle Cogeco git-svn-id: svn://10.65.10.50/branches/R_10_00@21192 c028cbd2-c16b-5b4b-a496-9718f37d4682 --- lv/lv4.cpp | 2 + lv/lv4.h | 3 +- lv/lv4700.cpp | 90 +++++++++++++++++++++++++++++++++ lv/lvcg.h | 12 +++++ lv/lvcgcau.uml | 115 ++++++++++++++++++++++++++++++++++++++++++ lv/lvcgcdp.uml | 110 ++++++++++++++++++++++++++++++++++++++++ lv/lvcgiva.uml | 111 ++++++++++++++++++++++++++++++++++++++++ lv/lvcgreg.uml | 123 +++++++++++++++++++++++++++++++++++++++++++++ lv/lvcgval.uml | 109 +++++++++++++++++++++++++++++++++++++++ lv/lvtblca.h | 2 + lv/lvtblca.uml | 45 +++++++++++++++++ lv/lvtbliv.h | 2 + lv/lvtbliv.uml | 44 ++++++++++++++++ lv/lvtbliv.uml.bak | 44 ++++++++++++++++ lv/lvtblpg.h | 2 + lv/lvtblpg.uml | 44 ++++++++++++++++ lv/lvtblre.h | 4 ++ lv/lvtblre.uml | 53 +++++++++++++++++++ lv/lvtblva.h | 2 + lv/lvtblva.uml | 44 ++++++++++++++++ 20 files changed, 960 insertions(+), 1 deletion(-) create mode 100755 lv/lv4700.cpp create mode 100755 lv/lvcg.h create mode 100755 lv/lvcgcau.uml create mode 100755 lv/lvcgcdp.uml create mode 100755 lv/lvcgiva.uml create mode 100755 lv/lvcgreg.uml create mode 100755 lv/lvcgval.uml create mode 100755 lv/lvtblca.h create mode 100755 lv/lvtblca.uml create mode 100755 lv/lvtbliv.h create mode 100755 lv/lvtbliv.uml create mode 100755 lv/lvtbliv.uml.bak create mode 100755 lv/lvtblpg.h create mode 100755 lv/lvtblpg.uml create mode 100755 lv/lvtblre.h create mode 100755 lv/lvtblre.uml create mode 100755 lv/lvtblva.h create mode 100755 lv/lvtblva.uml diff --git a/lv/lv4.cpp b/lv/lv4.cpp index 0d39e5f7d..db780150e 100755 --- a/lv/lv4.cpp +++ b/lv/lv4.cpp @@ -15,6 +15,8 @@ int main(int argc, char** argv) lv4400(argc, argv); break; // Riscrittura movimenti case 5: lv4600(argc, argv); break; // Riclassificazione conti COGECO + case 6: + lv4700(argc, argv); break; // Riclassificazione tabelle COGECO case 0: default: lv4100(argc, argv); break; //importazione movimenti contabili diff --git a/lv/lv4.h b/lv/lv4.h index 51876ad3f..c44ef7172 100755 --- a/lv/lv4.h +++ b/lv/lv4.h @@ -2,4 +2,5 @@ int lv4100(int argc, char* argv[]); // importazione movimenti contabili int lv4200(int argc, char* argv[]); // importazione saldaconto int lv4300(int argc, char* argv[]); // importazione cespiti int lv4400(int argc, char* argv[]); // riscrittura movimenti -int lv4600(int argc, char* argv[]); // riclassificazione conti COGECO \ No newline at end of file +int lv4600(int argc, char* argv[]); // riclassificazione conti COGECO +int lv4700(int argc, char* argv[]); // riclassificazione tabelle COGECO \ No newline at end of file diff --git a/lv/lv4700.cpp b/lv/lv4700.cpp new file mode 100755 index 000000000..40d59ec3b --- /dev/null +++ b/lv/lv4700.cpp @@ -0,0 +1,90 @@ +#include + +#include "lv4.h" +#include "lvcg.h" + +class TCOGECO_multirel_app : public TMultirel_application +{ + bool _use_tab; + +protected: + virtual void set_descr(TMask & m, const TString & desc); + virtual void get_mask_name(TString& tabname) const; + //magico metodo per impedire la navigazione su tabelle diverse da quella corrente del cursore + virtual bool has_filtered_cursor() const { return true; } + virtual void init_query_mode(TMask& m); + virtual void init_query_insert_mode(TMask& m); + virtual void init_modify_mode(TMask& m); + virtual void init_insert_mode(TMask& m); + virtual bool user_create(); + +public: + + TCOGECO_multirel_app() : _use_tab(true) {} + virtual ~TCOGECO_multirel_app() {} +}; + +void TCOGECO_multirel_app::set_descr(TMask & m, const TString & desc) +{ + m.set(F_DESC, desc); +} + +void TCOGECO_multirel_app::get_mask_name(TString& tabname) const +{ + TMultirel_application::get_mask_name(tabname); + tabname.overwrite("cg", 2); +} + +void TCOGECO_multirel_app::init_query_mode(TMask& m) +{ + TMultirel_application::init_query_mode(m); + m.show(-1); + m.hide(-2); + m.enable(-3, _use_tab); +} + +void TCOGECO_multirel_app::init_query_insert_mode(TMask& m) +{ + TMultirel_application::init_query_insert_mode(m); + m.show(-1, !_use_tab); + m.show(-2, _use_tab); + m.enable(-3, _use_tab); +} + +void TCOGECO_multirel_app::init_modify_mode(TMask& m) +{ + TMultirel_application::init_modify_mode(m); + m.show(-1); + m.disable(-1); + m.hide(-2); + m.disable(-3); +} + +void TCOGECO_multirel_app::init_insert_mode(TMask& m) +{ + TMultirel_application::init_insert_mode(m); + m.show(-1); + m.disable(-1); + m.hide(-2); + m.disable(-3); +} + +bool TCOGECO_multirel_app::user_create() +{ + bool ok = TMultirel_application::user_create(); + + if (ok) + { + TConfig config(CONFIG_DITTA); + TMask & m = *get_mask(); + + set_search_field(F_CODTAB); + } + return ok; +} +int lv4700(int argc, char* argv[]) +{ + TCOGECO_multirel_app a; + a.run(argc, argv, TR("Tabella")); + return 0; +} diff --git a/lv/lvcg.h b/lv/lvcg.h new file mode 100755 index 000000000..f5fed45f7 --- /dev/null +++ b/lv/lvcg.h @@ -0,0 +1,12 @@ +#define F_COD 101 +#define F_CODTAB 102 +#define F_CODTAB1 103 +#define F_DESC 105 +#define F_COD_CAMPO 106 +#define F_ANNO 107 +#define F_TIPO 108 +#define F_TIPOREG 109 +#define F_CORRISP 110 +#define F_DESC1 111 +#define F_CODDITTA 112 +#define F_RAGSOC 113 diff --git a/lv/lvcgcau.uml b/lv/lvcgcau.uml new file mode 100755 index 000000000..d1efbb42f --- /dev/null +++ b/lv/lvcgcau.uml @@ -0,0 +1,115 @@ +#include "lvcg.h" + +TOOLBAR "topbar" 0 0 0 2 +#include +ENDPAGE + +PAGE "Causali" 0 2 0 0 + +GROUPBOX DLG_NULL 78 3 +BEGIN + PROMPT 1 1 "Causale Campo" +END + +LIST F_COD 5 +BEGIN + PROMPT 50 50 "" + ITEM "CGCAU|CGCAU" + FIELD COD + FLAGS "D" + KEY 1 +END + +NUMBER F_CODTAB 3 +BEGIN + PROMPT 2 2 "" + USE LF_MULTIREL + JOIN LF_CAUSALI INTO CODCAUS==FIRST + JOIN &LCA INTO CODTAB==DATA + INPUT COD F_COD SELECT + INPUT FIRST F_CODTAB + DISPLAY "Codice" FIRST + DISPLAY "Descrizione@60" LF_CAUSALI->DESCR + DISPLAY "Causale COGECO" DATA + DISPLAY "Descrizione@50" &LCA->S0 + OUTPUT F_CODTAB FIRST + OUTPUT F_CODTAB1 FIRST + OUTPUT F_COD_CAMPO DATA + FIELD FIRST + FLAGS "UZG" + KEY 1 + GROUP 1 + CHECKTYPE REQUIRED +END + +NUMBER F_CODTAB1 3 +BEGIN + PROMPT 2 2 "" + USE LF_CAUSALI + JOIN LF_MULTIREL INTO COD=="CGCAU" FIRST==CODCAUS + JOIN &LCA TO LF_MULTIREL INTO CODTAB==DATA + INPUT CODCAUS F_CODTAB1 + DISPLAY "Cod." CODCAUS + DISPLAY "Descrizione@50" DESCR + DISPLAY "Causale COGECO" LF_MULTIREL->DATA + DISPLAY "Descrizione@50" &LCA->S0 + DISPLAY "Documento" TIPODOC + DISPLAY "Registro" REG + DISPLAY "Tipo movimento" TIPOMOV + DISPLAY "Inc./Pag." CODCAUSIM + DISPLAY "770" M770 + DISPLAY "Cespiti" COLLCESP + OUTPUT F_CODTAB CODCAUS + OUTPUT F_CODTAB1 CODCAUS + OUTPUT F_DESC LF_CAUSALI->DESCR + KEY 1 + FIELD FIRST + FLAGS "UZ" + CHECKTYPE REQUIRED + GROUP 2 +END + +STRING F_DESC 50 +BEGIN + PROMPT 10 2 "Descrizione " + USE LF_CAUSALI KEY 2 + JOIN LF_MULTIREL INTO COD=="CGCAU" FIRST==CODCAUS + JOIN &LCA TO LF_MULTIREL INTO CODTAB==DATA + INPUT DESCR F_DESC + DISPLAY "Descrizione@60" DESCR + DISPLAY "Codice" CODCAUS + DISPLAY "Causale COGECO" LF_MULTIREL->DATA + DISPLAY "Descrizione@50" &LCA->S0 + COPY OUTPUT F_CODTAB1 + KEY 2 + GROUP 3 + CHECKTYPE REQUIRED +END + +NUMBER F_COD_CAMPO 4 +BEGIN + PROMPT 2 4 "Causale COGECO" + FIELD DATA + USE &LCA + INPUT CODTAB F_COD_CAMPO + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@60" S0 + OUTPUT F_COD_CAMPO CODTAB + OUTPUT F_DESC1 S0 + CHECKTYPE REQUIRED + FLAGS "Z" +END + +STRING F_DESC1 50 45 +BEGIN + PROMPT 27 4 "" + USE &LCA KEY 2 + INPUT S0 F_DESC1 + DISPLAY "Descrizione@60" S0 + DISPLAY "Codice" CODTAB + COPY OUTPUT F_COD_CAMPO +END + +ENDPAGE + +ENDMASK diff --git a/lv/lvcgcdp.uml b/lv/lvcgcdp.uml new file mode 100755 index 000000000..e9e8cf307 --- /dev/null +++ b/lv/lvcgcdp.uml @@ -0,0 +1,110 @@ +#include "lvcg.h" + +TOOLBAR "topbar" 0 0 0 2 +#include +ENDPAGE + +PAGE "Condizioni di pagamento" 0 2 0 0 +GROUPBOX DLG_NULL 78 3 +BEGIN + PROMPT 1 1 "Condizione di pagamento Campo" +END + +LIST F_COD 5 +BEGIN + PROMPT 50 50 "" + ITEM "CGCDP|CGCDP" + FIELD COD + FLAGS "D" + KEY 1 +END + +STRING F_CODTAB 4 +BEGIN + PROMPT 2 2 "" + USE LF_MULTIREL + JOIN %CPG INTO CODTAB==FIRST + JOIN &LPG INTO CODTAB==DATA + INPUT COD F_COD SELECT + INPUT FIRST F_CODTAB + DISPLAY "Codice" FIRST + DISPLAY "Descrizione@60" %CPG->S0 + DISPLAY "Condizione COGECO" DATA + DISPLAY "Descrizione@50" &LPG->S0 + OUTPUT F_CODTAB FIRST + OUTPUT F_CODTAB1 FIRST + OUTPUT F_COD_CAMPO DATA + CHECKTYPE REQUIRED + FIELD FIRST + FLAGS "U#" + GROUP 1 + KEY 1 +END + +STRING F_CODTAB1 4 +BEGIN + PROMPT 2 2 "" + CHECKTYPE REQUIRED + USE %CPG + JOIN LF_MULTIREL INTO COD=="CGCDP" FIRST==CODTAB + JOIN &LPG TO LF_MULTIREL INTO CODTAB==DATA + INPUT CODTAB F_CODTAB1 + DISPLAY "Cod." CODTAB + DISPLAY "Descrizione@50" S0 + DISPLAY "Condizione COGECO" LF_MULTIREL->DATA + DISPLAY "Descrizione@50" &LPG->S0 + OUTPUT F_CODTAB CODTAB + OUTPUT F_CODTAB1 CODTAB + OUTPUT F_DESC S0 + FIELD FIRST + FLAGS "U#G" + GROUP 2 + KEY 1 + ADD RUN ba3 -6 +END + +STRING F_DESC 50 +BEGIN + PROMPT 10 2 "Descrizione " + USE %CPG KEY 2 + JOIN LF_MULTIREL INTO COD=="CGCDP" FIRST==CODTAB + JOIN &LPG TO LF_MULTIREL INTO CODTAB==DATA + INPUT CODTAB F_CODTAB1 + INPUT S0 F_DESC + DISPLAY "Descrizione@60" S0 + DISPLAY "Codice" CODTAB + DISPLAY "Condizione COGECO" LF_MULTIREL->DATA + DISPLAY "Descrizione@50" &LPG->S0 + COPY OUTPUT F_CODTAB1 + GROUP 3 + KEY 2 + CHECKTYPE REQUIRED +END + +NUMBER F_COD_CAMPO 4 +BEGIN + PROMPT 2 4 "Pagamento COGECO " + FIELD DATA + USE &LPG + INPUT CODTAB F_COD_CAMPO + DISPLAY "Cod." CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_COD_CAMPO CODTAB + OUTPUT F_DESC1 S0 + CHECKTYPE REQUIRED + FLAGS "Z" +END + +STRING F_DESC1 50 40 +BEGIN + PROMPT 32 4 "" + USE &LPG KEY 2 + INPUT S0 F_DESC1 + DISPLAY "Descrizione@60" S0 + DISPLAY "Codice" CODTAB + COPY OUTPUT F_COD_CAMPO +END + +ENDPAGE + +ENDMASK diff --git a/lv/lvcgiva.uml b/lv/lvcgiva.uml new file mode 100755 index 000000000..1914d6988 --- /dev/null +++ b/lv/lvcgiva.uml @@ -0,0 +1,111 @@ +#include "lvcg.h" + +TOOLBAR "topbar" 0 0 0 2 +#include +ENDPAGE + +PAGE "Codici IVA" 0 2 0 0 + +GROUPBOX DLG_NULL 78 3 +BEGIN + PROMPT 1 1 "Codice IVA Campo" +END + +LIST F_COD 5 +BEGIN + PROMPT 50 50 "" + ITEM "CGIVA|CGIVA" + FIELD COD + FLAGS "D" + KEY 1 +END + +STRING F_CODTAB 4 +BEGIN + PROMPT 2 2 "" + USE LF_MULTIREL + JOIN %IVA INTO CODTAB==FIRST + JOIN &LIV INTO CODTAB==DATA + INPUT COD F_COD SELECT + INPUT FIRST F_CODTAB + DISPLAY "Codice IVA" FIRST + DISPLAY "Descrizione@60" %IVA->S0 + DISPLAY "Codice IVA COGECO" DATA + DISPLAY "Descrizione@50" &LIV->S0 + OUTPUT F_CODTAB FIRST + OUTPUT F_CODTAB1 FIRST + OUTPUT F_COD_CAMPO DATA + CHECKTYPE REQUIRED + FIELD FIRST + FLAGS "UG" + KEY 1 + VALIDATE ZEROFILL_FUNC 2 + GROUP 1 +END + +STRING F_CODTAB1 4 +BEGIN + PROMPT 2 2 "" + CHECKTYPE REQUIRED + FIELD FIRST + USE %IVA + JOIN LF_MULTIREL INTO COD=="CGIVA" FIRST==CODTAB + JOIN &LIV TO LF_MULTIREL INTO CODTAB==DATA + INPUT CODTAB F_CODTAB1 + DISPLAY "Cod." CODTAB + DISPLAY "Descrizione@50" S0 + DISPLAY "Codice IVA COGECO" LF_MULTIREL->DATA + DISPLAY "Descrizione@50" &LIV->S0 + OUTPUT F_CODTAB1 CODTAB + OUTPUT F_CODTAB CODTAB + OUTPUT F_DESC S0 + FLAGS "U" + KEY 1 + VALIDATE ZEROFILL_FUNC 2 + GROUP 2 +END + +STRING F_DESC 50 +BEGIN + PROMPT 10 2 "Descrizione " + USE %IVA KEY 2 + JOIN LF_MULTIREL INTO COD=="CGIVA" FIRST==CODTAB + JOIN &LIV TO LF_MULTIREL INTO CODTAB==DATA + INPUT S0 F_DESC + DISPLAY "Descrizione@50" S0 + DISPLAY "Cod." CODTAB + DISPLAY "Codice IVA COGECO" LF_MULTIREL->DATA + DISPLAY "Descrizione@50" &LIV->S0 + COPY OUTPUT F_CODTAB1 + KEY 2 + GROUP 3 + CHECKTYPE REQUIRED +END + +NUMBER F_COD_CAMPO 2 +BEGIN + PROMPT 2 4 "Codice IVA COGECO " + FIELD DATA + FLAGS "Z" + USE &LIV + INPUT CODTAB F_COD_CAMPO + DISPLAY "Cod." CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_COD_CAMPO CODTAB + OUTPUT F_DESC1 S0 + CHECKTYPE REQUIRED +END + +STRING F_DESC1 50 40 +BEGIN + PROMPT 32 4 "" + USE &LIV KEY 2 + INPUT S0 F_DESC1 + DISPLAY "Descrizione@60" S0 + DISPLAY "Codice" CODTAB + COPY OUTPUT F_COD_CAMPO +END + +ENDPAGE + +ENDMASK diff --git a/lv/lvcgreg.uml b/lv/lvcgreg.uml new file mode 100755 index 000000000..4c8ec53ee --- /dev/null +++ b/lv/lvcgreg.uml @@ -0,0 +1,123 @@ +#include "lvcg.h" + +TOOLBAR "topbar" 0 0 0 2 +#include +ENDPAGE + +PAGE "Registri" 0 2 0 0 +GROUPBOX DLG_NULL 78 3 +BEGIN + PROMPT 1 1 "Registro Campo" +END + +LIST F_COD 5 +BEGIN + PROMPT 50 50 "" + ITEM "CGREG|CGREG" + FIELD COD + FLAGS "D" + KEY 1 +END + +NUMBER F_ANNO 4 +BEGIN + PROMPT 2 5 "" + FLAGS "AH" +END + +STRING F_CODTAB 3 +BEGIN + PROMPT 2 2 "" + USE LF_MULTIREL + JOIN &LRE INTO CODTAB==DATA + INPUT COD F_COD SELECT + INPUT FIRST F_CODTAB + DISPLAY "Codice registro" FIRST + DISPLAY "Tipo" DATA[1,1] + DISPLAY "Codice registro" DATA[2,3] + DISPLAY "Descrizione@50" &LRE->S0 + OUTPUT F_CODTAB FIRST + OUTPUT F_CODTAB1 FIRST + FLAGS "UZ" + CHECKTYPE REQUIRED + FIELD FIRST + KEY 1 + GROUP 1 +END + +STRING F_CODTAB1 3 +BEGIN + PROMPT 2 2 "" + USE REG + JOIN LF_MULTIREL INTO COD=="CGREG" FIRST==CODTAB[5,7] + JOIN &LRE TO LF_MULTIREL INTO CODTAB==DATA + INPUT CODTAB[1,4] F_ANNO SELECT + INPUT CODTAB[5,7] F_COD_CAMPO + DISPLAY "Codice" CODTAB[5,7] + DISPLAY "Descrizione@50" S0 + DISPLAY "Tipo" LF_MULTIREL->DATA[1,1] + DISPLAY "Codice registro" LF_MULTIREL->DATA[2,3] + DISPLAY "Descrizione@50" &LRE->S0 + OUTPUT F_CODTAB CODTAB[5,7] + OUTPUT F_CODTAB1 CODTAB[5,7] + OUTPUT F_DESC S0 + CHECKTYPE REQUIRED + FLAGS "UZG" + FIELD FIRST + KEY 1 + GROUP 2 +END + +STRING F_DESC 50 +BEGIN + PROMPT 10 2 "" + USE REG KEY 2 + JOIN LF_MULTIREL INTO COD=="CGREG" FIRST==CODTAB[5,7] + JOIN &LRE TO LF_MULTIREL INTO CODTAB==DATA + INPUT S0 F_DESC + DISPLAY "Descrizione@50" S0 + DISPLAY "Anno" CODTAB[1,4] + DISPLAY "Codice" CODTAB[5,7] + DISPLAY "Tipo" LF_MULTIREL->DATA[1,1] + DISPLAY "Codice registro" LF_MULTIREL->DATA[2,3] + DISPLAY "Descrizione@50" &LRE->S0 + COPY OUTPUT F_CODTAB1 + KEY 2 + GROUP 3 + CHECKTYPE REQUIRED +END + +STRING F_TIPO 1 +BEGIN + PROMPT 2 4 "Tipo " + FIELD DATA[1,1] +END + +STRING F_COD_CAMPO 2 +BEGIN + PROMPT 2 6 "Registro COGECO" + FIELD DATA[2,3] + USE &LRE + INPUT CODTAB[1,1] F_TIPO + INPUT CODTAB[2,3] F_COD_CAMPO + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_TIPO CODTAB[1,1] + OUTPUT F_COD_CAMPO CODTAB[2,3] + OUTPUT F_DESC1 S0 + CHECKTYPE REQUIRED +END + +STRING F_DESC1 50 40 +BEGIN + PROMPT 32 6 "" + USE &LRE KEY 2 + INPUT S0 F_DESC1 + DISPLAY "Descrizione@60" S0 + DISPLAY "Codice" CODTAB + COPY OUTPUT F_COD_CAMPO +END + +ENDPAGE + +ENDMASK diff --git a/lv/lvcgval.uml b/lv/lvcgval.uml new file mode 100755 index 000000000..726b65195 --- /dev/null +++ b/lv/lvcgval.uml @@ -0,0 +1,109 @@ +#include "lvcg.h" + +TOOLBAR "topbar" 0 0 0 2 +#include "relapbar.h" +ENDPAGE + +PAGE "Valute" 0 2 0 0 + +GROUPBOX DLG_NULL 78 3 +BEGIN + PROMPT 1 1 "Codice Valuta Campo " +END + +LIST F_COD 5 +BEGIN + PROMPT 50 50 "" + ITEM "CGVAL|CGVAL" + FIELD COD + FLAGS "D" + KEY 1 +END + +STRING F_CODTAB 3 +BEGIN + PROMPT 2 2 "" + USE LF_MULTIREL + JOIN %VAL INTO CODTAB==FIRST + JOIN &LVA INTO CODTAB==DATA + INPUT COD F_COD SELECT + INPUT FIRST F_CODTAB + DISPLAY "Codice valuta" FIRST + DISPLAY "Descrizione@60" %VAL->S0 + DISPLAY "Sigla valuta COGECO" DATA + DISPLAY "Descrizione@50" &TCA->S0 + OUTPUT F_CODTAB FIRST + OUTPUT F_DESC %VAL->S0 + OUTPUT F_COD_CAMPO DATA + CHECKTYPE REQUIRED + FIELD FIRST + FLAGS "UZG" + KEY 1 + GROUP 1 +END + +STRING F_CODTAB1 3 +BEGIN + PROMPT 2 2 "" + USE %VAL + JOIN LF_MULTIREL INTO COD=="CGVAL" FIRST==CODTAB + JOIN &LVA TO LF_MULTIREL INTO CODTAB==DATA + INPUT CODTAB F_CODTAB1 + DISPLAY "Cod." CODTAB + DISPLAY "Descrizione@50" S0 + DISPLAY "Sigla valuta COGECO" LF_MULTIREL->DATA + DISPLAY "Descrizione@50" &LVA->S0 + OUTPUT F_CODTAB CODTAB + OUTPUT F_CODTAB1 CODTAB + OUTPUT F_DESC S0 + CHECKTYPE REQUIRED + FIELD FIRST + FLAGS "UZ" + KEY 1 + GROUP 2 +END + +STRING F_DESC 50 +BEGIN + PROMPT 10 2 "Descrizione " + USE %VAL KEY 2 + JOIN LF_MULTIREL INTO COD=="CGVAL" FIRST==CODTAB + JOIN &LVA TO LF_MULTIREL INTO CODTAB==DATA + INPUT S0 F_DESC + DISPLAY "Descrizione@50" S0 + DISPLAY "Cod." CODTAB + DISPLAY "Sigla valuta COGECO" LF_MULTIREL->DATA + DISPLAY "Descrizione@50" &LVA->S0 + COPY OUTPUT F_CODTAB1 + KEY 2 + GROUP 3 + CHECKTYPE REQUIRED +END + +STRING F_COD_CAMPO 3 +BEGIN + PROMPT 2 4 "Sigla Valuta COGECO " + FIELD DATA + FLAGS "UZ" + USE &LVA + INPUT CODTAB F_COD_CAMPO + DISPLAY "Cod." CODTAB + DISPLAY "Descrizione@50" S0 + OUTPUT F_COD_CAMPO CODTAB + OUTPUT F_DESC1 S0 + CHECKTYPE REQUIRED +END + +STRING F_DESC1 50 35 +BEGIN + PROMPT 37 4 "" + USE &LVA KEY 2 + INPUT S0 F_DESC1 + DISPLAY "Descrizione@60" S0 + DISPLAY "Codice" CODTAB + COPY OUTPUT F_COD_CAMPO +END + +ENDPAGE + +ENDMASK diff --git a/lv/lvtblca.h b/lv/lvtblca.h new file mode 100755 index 000000000..54de8e516 --- /dev/null +++ b/lv/lvtblca.h @@ -0,0 +1,2 @@ +#define F_CODTAB 102 +#define F_DESC 103 diff --git a/lv/lvtblca.uml b/lv/lvtblca.uml new file mode 100755 index 000000000..cd9f3c7ce --- /dev/null +++ b/lv/lvtblca.uml @@ -0,0 +1,45 @@ +#include "lvtblca.h" + +TOOLBAR "topbar" 0 0 0 2 +#include +ENDPAGE + +PAGE "Causali" 0 2 0 0 + +GROUPBOX DLG_NULL 78 3 +BEGIN + PROMPT 1 1 "Codice Causale COGECO" +END + +NUMBER F_CODTAB 4 +BEGIN + PROMPT 2 2 "Codice " + USE &LCA + INPUT CODTAB F_CODTAB + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@60" S0 + OUTPUT F_CODTAB CODTAB + OUTPUT F_DESC S0 + CHECKTYPE REQUIRED + FIELD CODTAB + FLAGS "Z" + VALIDATE FIXLEN_FUNC 4 + KEY 1 +END + +STRING F_DESC 50 +BEGIN + PROMPT 2 5 "Descrizione " + USE &lCA KEY 2 + INPUT S0 F_DESC + DISPLAY "Descrizione@60" S0 + DISPLAY "Codice" CODTAB + COPY OUTPUT F_CODTAB + FIELD S0 + KEY 2 + CHECKTYPE REQUIRED +END + +ENDPAGE + +ENDMASK diff --git a/lv/lvtbliv.h b/lv/lvtbliv.h new file mode 100755 index 000000000..54de8e516 --- /dev/null +++ b/lv/lvtbliv.h @@ -0,0 +1,2 @@ +#define F_CODTAB 102 +#define F_DESC 103 diff --git a/lv/lvtbliv.uml b/lv/lvtbliv.uml new file mode 100755 index 000000000..631f9ca17 --- /dev/null +++ b/lv/lvtbliv.uml @@ -0,0 +1,44 @@ +#include "lvtbliv.h" + +TOOLBAR "topbar" 0 0 0 2 +#include +ENDPAGE + +PAGE "Codici IVA" 0 2 0 0 + +GROUPBOX DLG_NULL 78 4 +BEGIN + PROMPT 1 1 "Codice IVA COGECO" +END + +NUMBER F_CODTAB 2 +BEGIN + PROMPT 2 2 "Codice " + USE &LIV + INPUT CODTAB F_CODTAB + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@60" S0 + OUTPUT F_CODTAB CODTAB + OUTPUT F_DESC S0 + CHECKTYPE REQUIRED + FIELD CODTAB + FLAGS "Z" + KEY 1 +END + +STRING F_DESC 50 +BEGIN + PROMPT 2 3 "Descrizione " + USE &LIV KEY 2 + INPUT S0 F_DESC + DISPLAY "Descrizione@60" S0 + DISPLAY "Codice" CODTAB + COPY OUTPUT F_CODTAB + FIELD S0 + KEY 2 + CHECKTYPE REQUIRED +END + +ENDPAGE + +ENDMASK diff --git a/lv/lvtbliv.uml.bak b/lv/lvtbliv.uml.bak new file mode 100755 index 000000000..90dea830a --- /dev/null +++ b/lv/lvtbliv.uml.bak @@ -0,0 +1,44 @@ +#include "tctbiva.h" + +TOOLBAR "topbar" 0 0 0 2 +#include +ENDPAGE + +PAGE "Valute" 0 2 0 0 + +GROUPBOX DLG_NULL 78 3 +BEGIN + PROMPT 1 1 "Codice Valuta IPSOA" +END + +STRING F_CODTAB 3 +BEGIN + PROMPT 2 2 "Codice " + USE &IVA + INPUT CODTAB F_CODTAB + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@60" S0 + OUTPUT F_CODTAB CODTAB + OUTPUT F_DESC S0 + CHECKTYPE REQUIRED + FIELD CODTAB + VALIDATE FIXLEN_FUNC 3 + KEY 1 +END + +STRING F_DESC 50 +BEGIN + PROMPT 2 5 "Descrizione " + USE &IVA KEY 2 + INPUT S0 F_DESC + DISPLAY "Descrizione@60" S0 + DISPLAY "Codice" CODTAB + COPY OUTPUT F_CODTAB + FIELD S0 + KEY 2 + CHECKTYPE REQUIRED +END + +ENDPAGE + +ENDMASK diff --git a/lv/lvtblpg.h b/lv/lvtblpg.h new file mode 100755 index 000000000..54de8e516 --- /dev/null +++ b/lv/lvtblpg.h @@ -0,0 +1,2 @@ +#define F_CODTAB 102 +#define F_DESC 103 diff --git a/lv/lvtblpg.uml b/lv/lvtblpg.uml new file mode 100755 index 000000000..04f1d2b4b --- /dev/null +++ b/lv/lvtblpg.uml @@ -0,0 +1,44 @@ +#include "tctbtpg.h" + +TOOLBAR "topbar" 0 0 0 2 +#include +ENDPAGE + +PAGE "Condizioni di pagamento" 0 2 0 0 + +GROUPBOX DLG_NULL 78 3 +BEGIN + PROMPT 1 1 "Codice Pagamento COGECO" +END + +NUMBER F_CODTAB 4 +BEGIN + PROMPT 2 2 "Codice " + USE &LPG + INPUT CODTAB F_CODTAB + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@60" S0 + OUTPUT F_CODTAB CODTAB + OUTPUT F_DESC S0 + CHECKTYPE REQUIRED + FIELD CODTAB + FLAGS "Z" + KEY 1 +END + +STRING F_DESC 50 +BEGIN + PROMPT 2 5 "Descrizione " + USE &LPG KEY 2 + INPUT S0 F_DESC + DISPLAY "Descrizione@60" S0 + DISPLAY "Codice" CODTAB + COPY OUTPUT F_CODTAB + FIELD S0 + KEY 2 + CHECKTYPE REQUIRED +END + +ENDPAGE + +ENDMASK diff --git a/lv/lvtblre.h b/lv/lvtblre.h new file mode 100755 index 000000000..2ed318363 --- /dev/null +++ b/lv/lvtblre.h @@ -0,0 +1,4 @@ +#define F_TIPO 101 +#define F_CODTAB 102 +#define F_DESC 103 + diff --git a/lv/lvtblre.uml b/lv/lvtblre.uml new file mode 100755 index 000000000..28babb07f --- /dev/null +++ b/lv/lvtblre.uml @@ -0,0 +1,53 @@ +#include "lvtblre.h" + +TOOLBAR "topbar" 0 0 0 2 +#include +ENDPAGE + +PAGE "Registri" 0 2 0 0 + +GROUPBOX DLG_NULL 78 3 +BEGIN + PROMPT 1 1 "Codice Registro COGECO" +END + +STRING F_TIPO 1 +BEGIN + PROMPT 2 2 "Tipo " + FIELD CODTAB[1,1] +END + +NUMBER F_CODTAB 2 +BEGIN + PROMPT 25 2 "Codice " + USE &LRE + INPUT CODTAB[1,1] F_TIPO + INPUT CODTAB[2,3] F_CODTAB + DISPLAY "Tipo" CODTAB[1,1] + DISPLAY "Codice" CODTAB[2,3] + DISPLAY "Descrizione@60" S0 + OUTPUT F_TIPO CODTAB[1,1] + OUTPUT F_CODTAB CODTAB[2,3] + OUTPUT F_DESC S0 + CHECKTYPE REQUIRED + FIELD CODTAB[2,3] + FLAGS "Z" + KEY 1 +END + +STRING F_DESC 50 +BEGIN + PROMPT 2 5 "Descrizione " + USE &LRE KEY 2 + INPUT S0 F_DESC + DISPLAY "Descrizione@60" S0 + DISPLAY "Codice" CODTAB + COPY OUTPUT F_CODTAB + FIELD S0 + KEY 2 + CHECKTYPE REQUIRED +END + +ENDPAGE + +ENDMASK diff --git a/lv/lvtblva.h b/lv/lvtblva.h new file mode 100755 index 000000000..54de8e516 --- /dev/null +++ b/lv/lvtblva.h @@ -0,0 +1,2 @@ +#define F_CODTAB 102 +#define F_DESC 103 diff --git a/lv/lvtblva.uml b/lv/lvtblva.uml new file mode 100755 index 000000000..4230aa6ed --- /dev/null +++ b/lv/lvtblva.uml @@ -0,0 +1,44 @@ +#include "lvtblva.h" + +TOOLBAR "topbar" 0 0 0 2 +#include +ENDPAGE + +PAGE "Valute" 0 2 0 0 + +GROUPBOX DLG_NULL 78 3 +BEGIN + PROMPT 1 1 "Codice Valuta COGECO" +END + +STRING F_CODTAB 3 +BEGIN + PROMPT 2 2 "Codice " + USE &LVA + INPUT CODTAB F_CODTAB + DISPLAY "Codice" CODTAB + DISPLAY "Descrizione@60" S0 + OUTPUT F_CODTAB CODTAB + OUTPUT F_DESC S0 + CHECKTYPE REQUIRED + FIELD CODTAB + VALIDATE FIXLEN_FUNC 3 + KEY 1 +END + +STRING F_DESC 50 +BEGIN + PROMPT 2 5 "Descrizione " + USE &LVA KEY 2 + INPUT S0 F_DESC + DISPLAY "Descrizione@60" S0 + DISPLAY "Codice" CODTAB + COPY OUTPUT F_CODTAB + FIELD S0 + KEY 2 + CHECKTYPE REQUIRED +END + +ENDPAGE + +ENDMASK