Kazzatelle
git-svn-id: svn://10.65.10.50/trunk@1226 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
parent
6b47725702
commit
71f8628412
@ -133,8 +133,12 @@ int TStampa_deleghe_IVA::select()
|
|||||||
TToken_string d(80);
|
TToken_string d(80);
|
||||||
|
|
||||||
_ditte->destroy();
|
_ditte->destroy();
|
||||||
|
<<<<<<< cg1400.cpp
|
||||||
|
begin_wait();
|
||||||
|
=======
|
||||||
|
|
||||||
begin_wait();
|
begin_wait();
|
||||||
|
>>>>>>> 1.9
|
||||||
for (_nditte->first(); _nditte->good(); _nditte->next())
|
for (_nditte->first(); _nditte->good(); _nditte->next())
|
||||||
{
|
{
|
||||||
TLocalisamfile& anag = _nditte->lfile(LF_ANAG);
|
TLocalisamfile& anag = _nditte->lfile(LF_ANAG);
|
||||||
@ -149,6 +153,7 @@ int TStampa_deleghe_IVA::select()
|
|||||||
const long dit = _nditte->lfile().get_long("CODDITTA");
|
const long dit = _nditte->lfile().get_long("CODDITTA");
|
||||||
chiave.format("%05ld%04d%02d%d", dit, _anno, _mese, _tipo);
|
chiave.format("%05ld%04d%02d%d", dit, _anno, _mese, _tipo);
|
||||||
deleghe.put("CODTAB", chiave);
|
deleghe.put("CODTAB", chiave);
|
||||||
|
|
||||||
if (deleghe.read() == NOERR && deleghe.get_bool("B0") == FALSE) // Da stampare
|
if (deleghe.read() == NOERR && deleghe.get_bool("B0") == FALSE) // Da stampare
|
||||||
{
|
{
|
||||||
const long abi = deleghe.get_long("S7");
|
const long abi = deleghe.get_long("S7");
|
||||||
@ -168,8 +173,12 @@ int TStampa_deleghe_IVA::select()
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
<<<<<<< cg1400.cpp
|
||||||
|
end_wait();
|
||||||
|
=======
|
||||||
end_wait();
|
end_wait();
|
||||||
|
|
||||||
|
>>>>>>> 1.9
|
||||||
int res = 1;
|
int res = 1;
|
||||||
if (_ditte->items() > 0)
|
if (_ditte->items() > 0)
|
||||||
{
|
{
|
||||||
|
@ -361,6 +361,8 @@ bool CG0100_application::user_create()
|
|||||||
_saldi = new TLocalisamfile(LF_SALDI);
|
_saldi = new TLocalisamfile(LF_SALDI);
|
||||||
_saldi->setkey(2);
|
_saldi->setkey(2);
|
||||||
set_search_field(FLD_CM1_GRUPPO);
|
set_search_field(FLD_CM1_GRUPPO);
|
||||||
|
|
||||||
|
|
||||||
return TRUE;
|
return TRUE;
|
||||||
|
|
||||||
}
|
}
|
||||||
|
@ -209,7 +209,8 @@ bool CG0400_application::user_create()
|
|||||||
_tablia = new TTable("%LIA");
|
_tablia = new TTable("%LIA");
|
||||||
_anag = new TLocalisamfile(LF_ANAG);
|
_anag = new TLocalisamfile(LF_ANAG);
|
||||||
_nditte = new TLocalisamfile(LF_NDITTE);
|
_nditte = new TLocalisamfile(LF_NDITTE);
|
||||||
_com = new TLocalisamfile(LF_COMUNI);
|
_com = new TLocalisamfile(LF_COMUNI);
|
||||||
|
|
||||||
return TRUE;
|
return TRUE;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
@ -133,8 +133,12 @@ int TStampa_deleghe_IVA::select()
|
|||||||
TToken_string d(80);
|
TToken_string d(80);
|
||||||
|
|
||||||
_ditte->destroy();
|
_ditte->destroy();
|
||||||
|
<<<<<<< cg1400.cpp
|
||||||
|
begin_wait();
|
||||||
|
=======
|
||||||
|
|
||||||
begin_wait();
|
begin_wait();
|
||||||
|
>>>>>>> 1.9
|
||||||
for (_nditte->first(); _nditte->good(); _nditte->next())
|
for (_nditte->first(); _nditte->good(); _nditte->next())
|
||||||
{
|
{
|
||||||
TLocalisamfile& anag = _nditte->lfile(LF_ANAG);
|
TLocalisamfile& anag = _nditte->lfile(LF_ANAG);
|
||||||
@ -149,6 +153,7 @@ int TStampa_deleghe_IVA::select()
|
|||||||
const long dit = _nditte->lfile().get_long("CODDITTA");
|
const long dit = _nditte->lfile().get_long("CODDITTA");
|
||||||
chiave.format("%05ld%04d%02d%d", dit, _anno, _mese, _tipo);
|
chiave.format("%05ld%04d%02d%d", dit, _anno, _mese, _tipo);
|
||||||
deleghe.put("CODTAB", chiave);
|
deleghe.put("CODTAB", chiave);
|
||||||
|
|
||||||
if (deleghe.read() == NOERR && deleghe.get_bool("B0") == FALSE) // Da stampare
|
if (deleghe.read() == NOERR && deleghe.get_bool("B0") == FALSE) // Da stampare
|
||||||
{
|
{
|
||||||
const long abi = deleghe.get_long("S7");
|
const long abi = deleghe.get_long("S7");
|
||||||
@ -168,8 +173,12 @@ int TStampa_deleghe_IVA::select()
|
|||||||
}
|
}
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
<<<<<<< cg1400.cpp
|
||||||
|
end_wait();
|
||||||
|
=======
|
||||||
end_wait();
|
end_wait();
|
||||||
|
|
||||||
|
>>>>>>> 1.9
|
||||||
int res = 1;
|
int res = 1;
|
||||||
if (_ditte->items() > 0)
|
if (_ditte->items() > 0)
|
||||||
{
|
{
|
||||||
|
711
cg/del.frm
711
cg/del.frm
@ -1,355 +1,356 @@
|
|||||||
USE %DEL
|
USE %DEL
|
||||||
JOIN %BAN ALIAS 1 INTO CODTAB=S7+S8
|
JOIN %BAN ALIAS 1 INTO CODTAB=S7+S8
|
||||||
JOIN 13 TO 1@ ALIAS 11 INTO COM=S5
|
JOIN 13 TO 1@ ALIAS 11 INTO COM=S5
|
||||||
JOIN 9 INTO CODDITTA=CODTAB[1,5]
|
JOIN 9 INTO CODDITTA=CODTAB[1,5]
|
||||||
JOIN 6 TO 9 INTO TIPOA=TIPOA CODANAGR=CODANAGR
|
JOIN 6 TO 9 INTO TIPOA=TIPOA CODANAGR=CODANAGR
|
||||||
JOIN 8 TO 6 INTO CODANAGR=CODANAGR
|
JOIN 8 TO 6 INTO CODANAGR=CODANAGR
|
||||||
JOIN 7 TO 6 INTO CODANAGR=CODANAGR
|
JOIN 7 TO 6 INTO CODANAGR=CODANAGR
|
||||||
JOIN 13 TO 6 ALIAS 12 INTO COM=COMRF
|
JOIN 13 TO 6 ALIAS 12 INTO COM=COMRF
|
||||||
JOIN 13 TO 8 ALIAS 13 INTO COM=COMNASC
|
JOIN 13 TO 8 ALIAS 13 INTO COM=COMNASC
|
||||||
|
END
|
||||||
SECTION BODY 0 66
|
|
||||||
STRINGA
|
SECTION BODY 0 66
|
||||||
BEGIN
|
STRINGA
|
||||||
KEY "Sede Azienda"
|
BEGIN
|
||||||
PROMPT 34 10 ""
|
KEY "Sede Azienda"
|
||||||
FIELD 1@->S0
|
PROMPT 34 10 ""
|
||||||
END
|
FIELD 1@->S0
|
||||||
|
END
|
||||||
STRINGA
|
|
||||||
BEGIN
|
STRINGA
|
||||||
KEY "Sede Filiale"
|
BEGIN
|
||||||
PROMPT 34 12 ""
|
KEY "Sede Filiale"
|
||||||
FIELD 1@->S1
|
PROMPT 34 12 ""
|
||||||
END
|
FIELD 1@->S1
|
||||||
|
END
|
||||||
STRINGA
|
|
||||||
BEGIN
|
STRINGA
|
||||||
KEY "Provicia Banca"
|
BEGIN
|
||||||
PROMPT 73 12 ""
|
KEY "Provincia Banca"
|
||||||
FIELD 11@->PROVCOM
|
PROMPT 73 12 ""
|
||||||
END
|
FIELD 11@->PROVCOM
|
||||||
|
END
|
||||||
LISTA
|
|
||||||
BEGIN
|
LISTA
|
||||||
KEY "Tipo anagrafica"
|
BEGIN
|
||||||
FIELD 6->TIPOA
|
KEY "Tipo anagrafica"
|
||||||
ITEM "F| " MESSAGE ENABLE,1@|DISABLE,2@
|
FIELD 6->TIPOA
|
||||||
ITEM "G| " MESSAGE ENABLE,2@|DISABLE,1@
|
ITEM "F| " MESSAGE ENABLE,1@|DISABLE,2@
|
||||||
END
|
ITEM "G| " MESSAGE ENABLE,2@|DISABLE,1@
|
||||||
|
END
|
||||||
GRUPPO
|
|
||||||
BEGIN
|
GRUPPO
|
||||||
KEY "Persone fisiche"
|
BEGIN
|
||||||
PROMPT 0 0 ""
|
KEY "Persone fisiche"
|
||||||
GROUP 1
|
PROMPT 0 0 ""
|
||||||
END
|
GROUP 1
|
||||||
|
END
|
||||||
LISTA
|
|
||||||
BEGIN
|
LISTA
|
||||||
KEY "Sesso"
|
BEGIN
|
||||||
PROMPT 19 20 "X X"
|
KEY "Sesso"
|
||||||
GROUP 1
|
PROMPT 19 20 "X X"
|
||||||
FIELD 8->SESSO
|
GROUP 1
|
||||||
ITEM "M| " MESSAGE SHOW,3|HIDE,4
|
FIELD 8->SESSO
|
||||||
ITEM "F| " MESSAGE SHOW,4|HIDE,3
|
ITEM "M| " MESSAGE SHOW,3|HIDE,4
|
||||||
END
|
ITEM "F| " MESSAGE SHOW,4|HIDE,3
|
||||||
|
END
|
||||||
GRUPPO
|
|
||||||
BEGIN
|
GRUPPO
|
||||||
KEY "Sesso maschile"
|
BEGIN
|
||||||
PROMPT 0 0 ""
|
KEY "Sesso maschile"
|
||||||
GROUP 3
|
PROMPT 0 0 ""
|
||||||
END
|
GROUP 3
|
||||||
|
END
|
||||||
STRINGA
|
|
||||||
BEGIN
|
STRINGA
|
||||||
KEY "Il sottoscritto"
|
BEGIN
|
||||||
PROMPT 2 14 "I o"
|
KEY "Il sottoscritto"
|
||||||
GROUP 1 3
|
PROMPT 2 14 "I o"
|
||||||
END
|
GROUP 1 3
|
||||||
|
END
|
||||||
GRUPPO
|
|
||||||
BEGIN
|
GRUPPO
|
||||||
KEY "Sesso Femminile"
|
BEGIN
|
||||||
PROMPT 0 0 ""
|
KEY "Sesso Femminile"
|
||||||
GROUP 4
|
PROMPT 0 0 ""
|
||||||
END
|
GROUP 4
|
||||||
|
END
|
||||||
STRINGA
|
|
||||||
BEGIN
|
STRINGA
|
||||||
KEY "La sottoscritta"
|
BEGIN
|
||||||
PROMPT 2 14 " a a"
|
KEY "La sottoscritta"
|
||||||
GROUP 1 4
|
PROMPT 2 14 " a a"
|
||||||
END
|
GROUP 1 4
|
||||||
|
END
|
||||||
STRINGA
|
|
||||||
BEGIN
|
STRINGA
|
||||||
KEY "Cognome"
|
BEGIN
|
||||||
PROMPT 5 17 ""
|
KEY "Cognome"
|
||||||
GROUP 1
|
PROMPT 5 17 ""
|
||||||
FIELD 6->RAGSOC[1,30]
|
GROUP 1
|
||||||
END
|
FIELD 6->RAGSOC[1,30]
|
||||||
|
END
|
||||||
STRINGA
|
|
||||||
BEGIN
|
STRINGA
|
||||||
KEY "Nome"
|
BEGIN
|
||||||
PROMPT 35 17 ""
|
KEY "Nome"
|
||||||
GROUP 1
|
PROMPT 35 17 ""
|
||||||
FIELD 6->RAGSOC[31,-1]
|
GROUP 1
|
||||||
END
|
FIELD 6->RAGSOC[31,-1]
|
||||||
|
END
|
||||||
NUMERO
|
|
||||||
BEGIN
|
NUMERO
|
||||||
KEY "Giorno di nascita"
|
BEGIN
|
||||||
PROMPT 1 20 ""
|
KEY "Giorno di nascita"
|
||||||
GROUP 1
|
PROMPT 1 20 ""
|
||||||
PICTURE "@ @"
|
GROUP 1
|
||||||
FIELD 8->DATANASC[1,2]
|
PICTURE "@ @"
|
||||||
END
|
FIELD 8->DATANASC[1,2]
|
||||||
|
END
|
||||||
NUMERO
|
|
||||||
BEGIN
|
NUMERO
|
||||||
KEY "Mese di nascita"
|
BEGIN
|
||||||
PROMPT 5 20 ""
|
KEY "Mese di nascita"
|
||||||
GROUP 1
|
PROMPT 5 20 ""
|
||||||
PICTURE "@ @"
|
GROUP 1
|
||||||
FIELD 8->DATANASC[4,5]
|
PICTURE "@ @"
|
||||||
END
|
FIELD 8->DATANASC[4,5]
|
||||||
|
END
|
||||||
NUMERO
|
|
||||||
BEGIN
|
NUMERO
|
||||||
KEY "Anno di nascita"
|
BEGIN
|
||||||
PROMPT 9 20 ""
|
KEY "Anno di nascita"
|
||||||
GROUP 1
|
PROMPT 9 20 ""
|
||||||
PICTURE "@ @"
|
GROUP 1
|
||||||
FIELD 8->DATANASC[9,10]
|
PICTURE "@ @"
|
||||||
END
|
FIELD 8->DATANASC[9,10]
|
||||||
|
END
|
||||||
STRINGA
|
|
||||||
BEGIN
|
STRINGA
|
||||||
KEY "Comune di nascita"
|
BEGIN
|
||||||
PROMPT 30 20 ""
|
KEY "Comune di nascita"
|
||||||
GROUP 1
|
PROMPT 30 20 ""
|
||||||
FIELD 13@->DENCOM
|
GROUP 1
|
||||||
END
|
FIELD 13@->DENCOM
|
||||||
|
END
|
||||||
STRINGA
|
|
||||||
BEGIN
|
STRINGA
|
||||||
KEY "Provincia di nascita"
|
BEGIN
|
||||||
PROMPT 78 20 ""
|
KEY "Provincia di nascita"
|
||||||
GROUP 1
|
PROMPT 78 20 ""
|
||||||
FIELD 13@->PROVCOM
|
GROUP 1
|
||||||
END
|
FIELD 13@->PROVCOM
|
||||||
|
END
|
||||||
GRUPPO
|
|
||||||
BEGIN
|
GRUPPO
|
||||||
KEY "Persone giuridiche"
|
BEGIN
|
||||||
PROMPT 0 0 ""
|
KEY "Persone giuridiche"
|
||||||
GROUP 2
|
PROMPT 0 0 ""
|
||||||
END
|
GROUP 2
|
||||||
|
END
|
||||||
STRINGA
|
|
||||||
BEGIN
|
STRINGA
|
||||||
KEY "Ragione Sociale"
|
BEGIN
|
||||||
PROMPT 3 24 ""
|
KEY "Ragione Sociale"
|
||||||
GROUP 2
|
PROMPT 3 24 ""
|
||||||
FIELD 6->RAGSOC
|
GROUP 2
|
||||||
END
|
FIELD 6->RAGSOC
|
||||||
|
END
|
||||||
STRINGA
|
|
||||||
BEGIN
|
STRINGA
|
||||||
KEY "Natura Giuridica"
|
BEGIN
|
||||||
PROMPT 77 24 ""
|
KEY "Natura Giuridica"
|
||||||
GROUP 2
|
PROMPT 77 24 ""
|
||||||
FIELD 7->NATGIU
|
GROUP 2
|
||||||
END
|
FIELD 7->NATGIU
|
||||||
|
END
|
||||||
STRINGA
|
|
||||||
BEGIN
|
STRINGA
|
||||||
KEY "Via Indirizzo Fiscale"
|
BEGIN
|
||||||
FLAGS "H"
|
KEY "Via Indirizzo Fiscale"
|
||||||
MESSAGE COPY,527
|
FLAGS "H"
|
||||||
FIELD 6->INDRF
|
MESSAGE COPY,527
|
||||||
END
|
FIELD 6->INDRF
|
||||||
|
END
|
||||||
STRINGA
|
|
||||||
BEGIN
|
STRINGA
|
||||||
KEY "Numero Civico Indirizzo Fiscale"
|
BEGIN
|
||||||
FLAGS "H"
|
KEY "Numero Civico Indirizzo Fiscale"
|
||||||
MESSAGE APPEND,527
|
FLAGS "H"
|
||||||
FIELD 6->INDRF
|
MESSAGE APPEND,527
|
||||||
END
|
FIELD 6->INDRF
|
||||||
|
END
|
||||||
STRINGA 527 35
|
|
||||||
BEGIN
|
STRINGA 527 35
|
||||||
KEY "Indirizzo Fiscale"
|
BEGIN
|
||||||
PROMPT 5 27 ""
|
KEY "Indirizzo Fiscale"
|
||||||
END
|
PROMPT 5 27 ""
|
||||||
|
END
|
||||||
STRINGA
|
|
||||||
BEGIN
|
STRINGA
|
||||||
KEY "CAP fiscale"
|
BEGIN
|
||||||
PROMPT 45 27 ""
|
KEY "CAP fiscale"
|
||||||
FIELD 6->CAPRF
|
PROMPT 45 27 ""
|
||||||
END
|
FIELD 6->CAPRF
|
||||||
|
END
|
||||||
STRINGA
|
|
||||||
BEGIN
|
STRINGA
|
||||||
KEY "Comune di residenza fiscale"
|
BEGIN
|
||||||
PROMPT 56 27 ""
|
KEY "Comune di residenza fiscale"
|
||||||
FIELD 12@->DENCOM
|
PROMPT 56 27 ""
|
||||||
END
|
FIELD 12@->DENCOM
|
||||||
|
END
|
||||||
STRINGA
|
|
||||||
BEGIN
|
STRINGA
|
||||||
KEY "Provincia di residenza fiscale"
|
BEGIN
|
||||||
PROMPT 75 27 ""
|
KEY "Provincia di residenza fiscale"
|
||||||
FIELD 12@->PROVCOM
|
PROMPT 75 27 ""
|
||||||
END
|
FIELD 12@->PROVCOM
|
||||||
|
END
|
||||||
STRINGA
|
|
||||||
BEGIN
|
STRINGA
|
||||||
KEY "Partita IVA"
|
BEGIN
|
||||||
PROMPT 12 30 ""
|
KEY "Partita IVA"
|
||||||
PICTURE "# # # # # # # ~ ~ ~ #"
|
PROMPT 12 30 ""
|
||||||
FIELD 6->PAIV
|
PICTURE "# # # # # # # ~ ~ ~ #"
|
||||||
END
|
FIELD 6->PAIV
|
||||||
|
END
|
||||||
STRINGA
|
|
||||||
BEGIN
|
STRINGA
|
||||||
KEY "Codice fiscale"
|
BEGIN
|
||||||
PROMPT 42 30 ""
|
KEY "Codice fiscale"
|
||||||
PICTURE "# # # # # # # # # # # # # # # #"
|
PROMPT 42 30 ""
|
||||||
FIELD 6->COFI
|
PICTURE "# # # # # # # # # # # # # # # #"
|
||||||
END
|
FIELD 6->COFI
|
||||||
|
END
|
||||||
NUMERO
|
|
||||||
BEGIN
|
NUMERO
|
||||||
KEY "Anno di versamento"
|
BEGIN
|
||||||
PROMPT 40 35 ""
|
KEY "Anno di versamento"
|
||||||
PICTURE "~ ~ @ @"
|
PROMPT 40 35 ""
|
||||||
FIELD CODTAB[6,9]
|
PICTURE "~ ~ @ @"
|
||||||
END
|
FIELD CODTAB[6,9]
|
||||||
|
END
|
||||||
LISTA
|
|
||||||
BEGIN
|
LISTA
|
||||||
KEY "Periodo di versamento"
|
BEGIN
|
||||||
PROMPT 50 35 ""
|
KEY "Periodo di versamento"
|
||||||
FIELD CODTAB[10,11]
|
PROMPT 50 35 ""
|
||||||
ITEM "01|Gennaio"
|
FIELD CODTAB[10,11]
|
||||||
ITEM "02|Febbraio"
|
ITEM "01|Gennaio"
|
||||||
ITEM "03|Marzo"
|
ITEM "02|Febbraio"
|
||||||
ITEM "04|Aprile"
|
ITEM "03|Marzo"
|
||||||
ITEM "05|Maggio"
|
ITEM "04|Aprile"
|
||||||
ITEM "06|Giugno"
|
ITEM "05|Maggio"
|
||||||
ITEM "07|Luglio"
|
ITEM "06|Giugno"
|
||||||
ITEM "08|Agosto"
|
ITEM "07|Luglio"
|
||||||
ITEM "09|Settembre"
|
ITEM "08|Agosto"
|
||||||
ITEM "10|Ottobre"
|
ITEM "09|Settembre"
|
||||||
ITEM "11|Novembre"
|
ITEM "10|Ottobre"
|
||||||
ITEM "12|Dicembre"
|
ITEM "11|Novembre"
|
||||||
ITEM "13|Annuale"
|
ITEM "12|Dicembre"
|
||||||
END
|
ITEM "13|Annuale"
|
||||||
|
END
|
||||||
LISTA
|
|
||||||
BEGIN
|
LISTA
|
||||||
KEY "X sul mese"
|
BEGIN
|
||||||
PROMPT 40 40 ""
|
KEY "X sul mese"
|
||||||
GROUP 6
|
PROMPT 40 40 ""
|
||||||
FIELD CODTAB[10,11]
|
GROUP 6
|
||||||
ITEM "01|X"
|
FIELD CODTAB[10,11]
|
||||||
ITEM "02| X"
|
ITEM "01|X"
|
||||||
ITEM "03| X"
|
ITEM "02| X"
|
||||||
ITEM "04| X"
|
ITEM "03| X"
|
||||||
ITEM "05| X"
|
ITEM "04| X"
|
||||||
ITEM "06| X"
|
ITEM "05| X"
|
||||||
ITEM "07| X"
|
ITEM "06| X"
|
||||||
ITEM "08| X"
|
ITEM "07| X"
|
||||||
ITEM "09| X"
|
ITEM "08| X"
|
||||||
ITEM "10| X"
|
ITEM "09| X"
|
||||||
ITEM "11| X"
|
ITEM "10| X"
|
||||||
ITEM "12| X"
|
ITEM "11| X"
|
||||||
ITEM "13| X"
|
ITEM "12| X"
|
||||||
END
|
ITEM "13| X"
|
||||||
|
END
|
||||||
LISTA
|
|
||||||
BEGIN
|
LISTA
|
||||||
KEY "X sul trimestre"
|
BEGIN
|
||||||
PROMPT 4 33 ""
|
KEY "X sul trimestre"
|
||||||
GROUP 6
|
PROMPT 4 33 ""
|
||||||
FIELD CODTAB[10,11]
|
GROUP 6
|
||||||
ITEM "01|X"
|
FIELD CODTAB[10,11]
|
||||||
ITEM "02|X"
|
ITEM "01|X"
|
||||||
ITEM "03|X"
|
ITEM "02|X"
|
||||||
ITEM "04| X"
|
ITEM "03|X"
|
||||||
ITEM "05| X"
|
ITEM "04| X"
|
||||||
ITEM "06| X"
|
ITEM "05| X"
|
||||||
ITEM "07| X"
|
ITEM "06| X"
|
||||||
ITEM "08| X"
|
ITEM "07| X"
|
||||||
ITEM "09| X"
|
ITEM "08| X"
|
||||||
ITEM "10| X"
|
ITEM "09| X"
|
||||||
ITEM "11| X"
|
ITEM "10| X"
|
||||||
ITEM "12| X"
|
ITEM "11| X"
|
||||||
ITEM "13| X"
|
ITEM "12| X"
|
||||||
END
|
ITEM "13| X"
|
||||||
|
END
|
||||||
NUMERO
|
|
||||||
BEGIN
|
NUMERO
|
||||||
KEY "Importo in cifre"
|
BEGIN
|
||||||
PROMPT 20 52 ""
|
KEY "Importo in cifre"
|
||||||
PICTURE "###.###.###~~~"
|
PROMPT 20 52 ""
|
||||||
FIELD R0
|
PICTURE "###.###.###~~~"
|
||||||
END
|
FIELD R0
|
||||||
|
END
|
||||||
NUMERO
|
|
||||||
BEGIN
|
NUMERO
|
||||||
KEY "Importo in lettere"
|
BEGIN
|
||||||
PROMPT 40 52 ""
|
KEY "Importo in lettere"
|
||||||
PICTURE "LETTERE"
|
PROMPT 40 52 ""
|
||||||
FIELD R0
|
PICTURE "LETTERE"
|
||||||
END
|
FIELD R0
|
||||||
|
END
|
||||||
NUMERO
|
|
||||||
BEGIN
|
NUMERO
|
||||||
KEY "Giorno del versamento"
|
BEGIN
|
||||||
PROMPT 30 60 ""
|
KEY "Giorno del versamento"
|
||||||
PICTURE "# #"
|
PROMPT 30 60 ""
|
||||||
FIELD D0
|
PICTURE "# #"
|
||||||
END
|
FIELD D0
|
||||||
|
END
|
||||||
NUMERO
|
|
||||||
BEGIN
|
NUMERO
|
||||||
KEY "Mese del versamento"
|
BEGIN
|
||||||
PROMPT 34 60 ""
|
KEY "Mese del versamento"
|
||||||
PICTURE "# #"
|
PROMPT 34 60 ""
|
||||||
FIELD D0
|
PICTURE "# #"
|
||||||
END
|
FIELD D0
|
||||||
|
END
|
||||||
NUMERO
|
|
||||||
BEGIN
|
NUMERO
|
||||||
KEY "Anno del versamento"
|
BEGIN
|
||||||
PROMPT 38 60 ""
|
KEY "Anno del versamento"
|
||||||
PICTURE "# #"
|
PROMPT 38 60 ""
|
||||||
FIELD D0
|
PICTURE "# #"
|
||||||
END
|
FIELD D0
|
||||||
|
END
|
||||||
STRINGA
|
|
||||||
BEGIN
|
STRINGA
|
||||||
KEY "Codice Azienda"
|
BEGIN
|
||||||
PROMPT 60 62 ""
|
KEY "Codice Azienda"
|
||||||
PICTURE "@ @ @ @"
|
PROMPT 60 62 ""
|
||||||
FIELD S8
|
PICTURE "@ @ @ @"
|
||||||
END
|
FIELD S8
|
||||||
|
END
|
||||||
STRINGA
|
|
||||||
BEGIN
|
STRINGA
|
||||||
KEY "Codice Filiale"
|
BEGIN
|
||||||
PROMPT 70 62 ""
|
KEY "Codice Filiale"
|
||||||
PICTURE "~ ~ @ @"
|
PROMPT 70 62 ""
|
||||||
FIELD S8
|
PICTURE "~ ~ @ @"
|
||||||
END
|
FIELD S8
|
||||||
|
END
|
||||||
END
|
|
||||||
|
END
|
||||||
END
|
|
||||||
|
END
|
||||||
|
Loading…
x
Reference in New Issue
Block a user