Kazzatelle

git-svn-id: svn://10.65.10.50/trunk@1226 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
villa 1995-04-10 16:30:03 +00:00
parent 6b47725702
commit 71f8628412
5 changed files with 378 additions and 356 deletions

View File

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

View File

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

View File

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

View File

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

View File

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