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

Patch level : 10.0 846

Browse Source 
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
This commit is contained in:
alex 2010-11-24 17:59:21 +00:00
parent e3ecd94380
commit 8699be41fa
20 changed files with 960 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lv/lv4.cpp
View File

@ -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

3
lv/lv4.h
View File

@ -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
int lv4600(int argc, char* argv[]); // riclassificazione conti COGECO
int lv4700(int argc, char* argv[]); // riclassificazione tabelle COGECO

90
lv/lv4700.cpp Executable file
View File

@ -0,0 +1,90 @@
#include <tabapp.h>
#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;
}

12
lv/lvcg.h Executable file
View File

@ -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

115
lv/lvcgcau.uml Executable file
View File

@ -0,0 +1,115 @@
#include "lvcg.h"
TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>
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

110
lv/lvcgcdp.uml Executable file
View File

@ -0,0 +1,110 @@
#include "lvcg.h"
TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>
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

111
lv/lvcgiva.uml Executable file
View File

@ -0,0 +1,111 @@
#include "lvcg.h"
TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>
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

123
lv/lvcgreg.uml Executable file
View File

@ -0,0 +1,123 @@
#include "lvcg.h"
TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>
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

109
lv/lvcgval.uml Executable file
View File

@ -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

2
lv/lvtblca.h Executable file
View File

@ -0,0 +1,2 @@
#define F_CODTAB 102
#define F_DESC 103

45
lv/lvtblca.uml Executable file
View File

@ -0,0 +1,45 @@
#include "lvtblca.h"
TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>
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

2
lv/lvtbliv.h Executable file
View File

@ -0,0 +1,2 @@
#define F_CODTAB 102
#define F_DESC 103

44
lv/lvtbliv.uml Executable file
View File

@ -0,0 +1,44 @@
#include "lvtbliv.h"
TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>
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

44
lv/lvtbliv.uml.bak Executable file
View File

@ -0,0 +1,44 @@
#include "tctbiva.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 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

2
lv/lvtblpg.h Executable file
View File

@ -0,0 +1,2 @@
#define F_CODTAB 102
#define F_DESC 103

44
lv/lvtblpg.uml Executable file
View File

@ -0,0 +1,44 @@
#include "tctbtpg.h"
TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>
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

4
lv/lvtblre.h Executable file
View File

@ -0,0 +1,4 @@
#define F_TIPO 101
#define F_CODTAB 102
#define F_DESC 103

53
lv/lvtblre.uml Executable file
View File

@ -0,0 +1,53 @@
#include "lvtblre.h"
TOOLBAR "topbar" 0 0 0 2
#include <relapbar.h>
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

2
lv/lvtblva.h Executable file
View File

@ -0,0 +1,2 @@
#define F_CODTAB 102
#define F_DESC 103

44
lv/lvtblva.uml Executable file
View File

@ -0,0 +1,44 @@
#include "lvtblva.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 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