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);
_ditte->destroy();
<<<<<<< cg1400.cpp
begin_wait();
=======
begin_wait();
>>>>>>> 1.9
for (_nditte->first(); _nditte->good(); _nditte->next())
{
TLocalisamfile& anag = _nditte->lfile(LF_ANAG);
@ -149,6 +153,7 @@ int TStampa_deleghe_IVA::select()
const long dit = _nditte->lfile().get_long("CODDITTA");
chiave.format("%05ld%04d%02d%d", dit, _anno, _mese, _tipo);
deleghe.put("CODTAB", chiave);
if (deleghe.read() == NOERR && deleghe.get_bool("B0") == FALSE) // Da stampare
{
const long abi = deleghe.get_long("S7");
@ -168,8 +173,12 @@ int TStampa_deleghe_IVA::select()
}
}
}
<<<<<<< cg1400.cpp
end_wait();
=======
end_wait();
>>>>>>> 1.9
int res = 1;
if (_ditte->items() > 0)
{

View File

@ -361,6 +361,8 @@ bool CG0100_application::user_create()
_saldi = new TLocalisamfile(LF_SALDI);
_saldi->setkey(2);
set_search_field(FLD_CM1_GRUPPO);
return TRUE;
}

View File

@ -209,7 +209,8 @@ bool CG0400_application::user_create()
_tablia = new TTable("%LIA");
_anag = new TLocalisamfile(LF_ANAG);
_nditte = new TLocalisamfile(LF_NDITTE);
_com = new TLocalisamfile(LF_COMUNI);
_com = new TLocalisamfile(LF_COMUNI);
return TRUE;
}

View File

@ -133,8 +133,12 @@ int TStampa_deleghe_IVA::select()
TToken_string d(80);
_ditte->destroy();
<<<<<<< cg1400.cpp
begin_wait();
=======
begin_wait();
>>>>>>> 1.9
for (_nditte->first(); _nditte->good(); _nditte->next())
{
TLocalisamfile& anag = _nditte->lfile(LF_ANAG);
@ -149,6 +153,7 @@ int TStampa_deleghe_IVA::select()
const long dit = _nditte->lfile().get_long("CODDITTA");
chiave.format("%05ld%04d%02d%d", dit, _anno, _mese, _tipo);
deleghe.put("CODTAB", chiave);
if (deleghe.read() == NOERR && deleghe.get_bool("B0") == FALSE) // Da stampare
{
const long abi = deleghe.get_long("S7");
@ -168,8 +173,12 @@ int TStampa_deleghe_IVA::select()
}
}
}
<<<<<<< cg1400.cpp
end_wait();
=======
end_wait();
>>>>>>> 1.9
int res = 1;
if (_ditte->items() > 0)
{

View File

@ -1,355 +1,356 @@
USE %DEL
JOIN %BAN ALIAS 1 INTO CODTAB=S7+S8
JOIN 13 TO 1@ ALIAS 11 INTO COM=S5
JOIN 9 INTO CODDITTA=CODTAB[1,5]
JOIN 6 TO 9 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN 8 TO 6 INTO CODANAGR=CODANAGR
JOIN 7 TO 6 INTO CODANAGR=CODANAGR
JOIN 13 TO 6 ALIAS 12 INTO COM=COMRF
JOIN 13 TO 8 ALIAS 13 INTO COM=COMNASC
SECTION BODY 0 66
STRINGA
BEGIN
KEY "Sede Azienda"
PROMPT 34 10 ""
FIELD 1@->S0
END
STRINGA
BEGIN
KEY "Sede Filiale"
PROMPT 34 12 ""
FIELD 1@->S1
END
STRINGA
BEGIN
KEY "Provicia Banca"
PROMPT 73 12 ""
FIELD 11@->PROVCOM
END
LISTA
BEGIN
KEY "Tipo anagrafica"
FIELD 6->TIPOA
ITEM "F| " MESSAGE ENABLE,1@|DISABLE,2@
ITEM "G| " MESSAGE ENABLE,2@|DISABLE,1@
END
GRUPPO
BEGIN
KEY "Persone fisiche"
PROMPT 0 0 ""
GROUP 1
END
LISTA
BEGIN
KEY "Sesso"
PROMPT 19 20 "X X"
GROUP 1
FIELD 8->SESSO
ITEM "M| " MESSAGE SHOW,3|HIDE,4
ITEM "F| " MESSAGE SHOW,4|HIDE,3
END
GRUPPO
BEGIN
KEY "Sesso maschile"
PROMPT 0 0 ""
GROUP 3
END
STRINGA
BEGIN
KEY "Il sottoscritto"
PROMPT 2 14 "I o"
GROUP 1 3
END
GRUPPO
BEGIN
KEY "Sesso Femminile"
PROMPT 0 0 ""
GROUP 4
END
STRINGA
BEGIN
KEY "La sottoscritta"
PROMPT 2 14 " a a"
GROUP 1 4
END
STRINGA
BEGIN
KEY "Cognome"
PROMPT 5 17 ""
GROUP 1
FIELD 6->RAGSOC[1,30]
END
STRINGA
BEGIN
KEY "Nome"
PROMPT 35 17 ""
GROUP 1
FIELD 6->RAGSOC[31,-1]
END
NUMERO
BEGIN
KEY "Giorno di nascita"
PROMPT 1 20 ""
GROUP 1
PICTURE "@ @"
FIELD 8->DATANASC[1,2]
END
NUMERO
BEGIN
KEY "Mese di nascita"
PROMPT 5 20 ""
GROUP 1
PICTURE "@ @"
FIELD 8->DATANASC[4,5]
END
NUMERO
BEGIN
KEY "Anno di nascita"
PROMPT 9 20 ""
GROUP 1
PICTURE "@ @"
FIELD 8->DATANASC[9,10]
END
STRINGA
BEGIN
KEY "Comune di nascita"
PROMPT 30 20 ""
GROUP 1
FIELD 13@->DENCOM
END
STRINGA
BEGIN
KEY "Provincia di nascita"
PROMPT 78 20 ""
GROUP 1
FIELD 13@->PROVCOM
END
GRUPPO
BEGIN
KEY "Persone giuridiche"
PROMPT 0 0 ""
GROUP 2
END
STRINGA
BEGIN
KEY "Ragione Sociale"
PROMPT 3 24 ""
GROUP 2
FIELD 6->RAGSOC
END
STRINGA
BEGIN
KEY "Natura Giuridica"
PROMPT 77 24 ""
GROUP 2
FIELD 7->NATGIU
END
STRINGA
BEGIN
KEY "Via Indirizzo Fiscale"
FLAGS "H"
MESSAGE COPY,527
FIELD 6->INDRF
END
STRINGA
BEGIN
KEY "Numero Civico Indirizzo Fiscale"
FLAGS "H"
MESSAGE APPEND,527
FIELD 6->INDRF
END
STRINGA 527 35
BEGIN
KEY "Indirizzo Fiscale"
PROMPT 5 27 ""
END
STRINGA
BEGIN
KEY "CAP fiscale"
PROMPT 45 27 ""
FIELD 6->CAPRF
END
STRINGA
BEGIN
KEY "Comune di residenza fiscale"
PROMPT 56 27 ""
FIELD 12@->DENCOM
END
STRINGA
BEGIN
KEY "Provincia di residenza fiscale"
PROMPT 75 27 ""
FIELD 12@->PROVCOM
END
STRINGA
BEGIN
KEY "Partita IVA"
PROMPT 12 30 ""
PICTURE "# # # # # # # ~ ~ ~ #"
FIELD 6->PAIV
END
STRINGA
BEGIN
KEY "Codice fiscale"
PROMPT 42 30 ""
PICTURE "# # # # # # # # # # # # # # # #"
FIELD 6->COFI
END
NUMERO
BEGIN
KEY "Anno di versamento"
PROMPT 40 35 ""
PICTURE "~ ~ @ @"
FIELD CODTAB[6,9]
END
LISTA
BEGIN
KEY "Periodo di versamento"
PROMPT 50 35 ""
FIELD CODTAB[10,11]
ITEM "01|Gennaio"
ITEM "02|Febbraio"
ITEM "03|Marzo"
ITEM "04|Aprile"
ITEM "05|Maggio"
ITEM "06|Giugno"
ITEM "07|Luglio"
ITEM "08|Agosto"
ITEM "09|Settembre"
ITEM "10|Ottobre"
ITEM "11|Novembre"
ITEM "12|Dicembre"
ITEM "13|Annuale"
END
LISTA
BEGIN
KEY "X sul mese"
PROMPT 40 40 ""
GROUP 6
FIELD CODTAB[10,11]
ITEM "01|X"
ITEM "02| X"
ITEM "03| X"
ITEM "04| X"
ITEM "05| X"
ITEM "06| X"
ITEM "07| X"
ITEM "08| X"
ITEM "09| X"
ITEM "10| X"
ITEM "11| X"
ITEM "12| X"
ITEM "13| X"
END
LISTA
BEGIN
KEY "X sul trimestre"
PROMPT 4 33 ""
GROUP 6
FIELD CODTAB[10,11]
ITEM "01|X"
ITEM "02|X"
ITEM "03|X"
ITEM "04| X"
ITEM "05| X"
ITEM "06| X"
ITEM "07| X"
ITEM "08| X"
ITEM "09| X"
ITEM "10| X"
ITEM "11| X"
ITEM "12| X"
ITEM "13| X"
END
NUMERO
BEGIN
KEY "Importo in cifre"
PROMPT 20 52 ""
PICTURE "###.###.###~~~"
FIELD R0
END
NUMERO
BEGIN
KEY "Importo in lettere"
PROMPT 40 52 ""
PICTURE "LETTERE"
FIELD R0
END
NUMERO
BEGIN
KEY "Giorno del versamento"
PROMPT 30 60 ""
PICTURE "# #"
FIELD D0
END
NUMERO
BEGIN
KEY "Mese del versamento"
PROMPT 34 60 ""
PICTURE "# #"
FIELD D0
END
NUMERO
BEGIN
KEY "Anno del versamento"
PROMPT 38 60 ""
PICTURE "# #"
FIELD D0
END
STRINGA
BEGIN
KEY "Codice Azienda"
PROMPT 60 62 ""
PICTURE "@ @ @ @"
FIELD S8
END
STRINGA
BEGIN
KEY "Codice Filiale"
PROMPT 70 62 ""
PICTURE "~ ~ @ @"
FIELD S8
END
END
END
USE %DEL
JOIN %BAN ALIAS 1 INTO CODTAB=S7+S8
JOIN 13 TO 1@ ALIAS 11 INTO COM=S5
JOIN 9 INTO CODDITTA=CODTAB[1,5]
JOIN 6 TO 9 INTO TIPOA=TIPOA CODANAGR=CODANAGR
JOIN 8 TO 6 INTO CODANAGR=CODANAGR
JOIN 7 TO 6 INTO CODANAGR=CODANAGR
JOIN 13 TO 6 ALIAS 12 INTO COM=COMRF
JOIN 13 TO 8 ALIAS 13 INTO COM=COMNASC
END
SECTION BODY 0 66
STRINGA
BEGIN
KEY "Sede Azienda"
PROMPT 34 10 ""
FIELD 1@->S0
END
STRINGA
BEGIN
KEY "Sede Filiale"
PROMPT 34 12 ""
FIELD 1@->S1
END
STRINGA
BEGIN
KEY "Provincia Banca"
PROMPT 73 12 ""
FIELD 11@->PROVCOM
END
LISTA
BEGIN
KEY "Tipo anagrafica"
FIELD 6->TIPOA
ITEM "F| " MESSAGE ENABLE,1@|DISABLE,2@
ITEM "G| " MESSAGE ENABLE,2@|DISABLE,1@
END
GRUPPO
BEGIN
KEY "Persone fisiche"
PROMPT 0 0 ""
GROUP 1
END
LISTA
BEGIN
KEY "Sesso"
PROMPT 19 20 "X X"
GROUP 1
FIELD 8->SESSO
ITEM "M| " MESSAGE SHOW,3|HIDE,4
ITEM "F| " MESSAGE SHOW,4|HIDE,3
END
GRUPPO
BEGIN
KEY "Sesso maschile"
PROMPT 0 0 ""
GROUP 3
END
STRINGA
BEGIN
KEY "Il sottoscritto"
PROMPT 2 14 "I o"
GROUP 1 3
END
GRUPPO
BEGIN
KEY "Sesso Femminile"
PROMPT 0 0 ""
GROUP 4
END
STRINGA
BEGIN
KEY "La sottoscritta"
PROMPT 2 14 " a a"
GROUP 1 4
END
STRINGA
BEGIN
KEY "Cognome"
PROMPT 5 17 ""
GROUP 1
FIELD 6->RAGSOC[1,30]
END
STRINGA
BEGIN
KEY "Nome"
PROMPT 35 17 ""
GROUP 1
FIELD 6->RAGSOC[31,-1]
END
NUMERO
BEGIN
KEY "Giorno di nascita"
PROMPT 1 20 ""
GROUP 1
PICTURE "@ @"
FIELD 8->DATANASC[1,2]
END
NUMERO
BEGIN
KEY "Mese di nascita"
PROMPT 5 20 ""
GROUP 1
PICTURE "@ @"
FIELD 8->DATANASC[4,5]
END
NUMERO
BEGIN
KEY "Anno di nascita"
PROMPT 9 20 ""
GROUP 1
PICTURE "@ @"
FIELD 8->DATANASC[9,10]
END
STRINGA
BEGIN
KEY "Comune di nascita"
PROMPT 30 20 ""
GROUP 1
FIELD 13@->DENCOM
END
STRINGA
BEGIN
KEY "Provincia di nascita"
PROMPT 78 20 ""
GROUP 1
FIELD 13@->PROVCOM
END
GRUPPO
BEGIN
KEY "Persone giuridiche"
PROMPT 0 0 ""
GROUP 2
END
STRINGA
BEGIN
KEY "Ragione Sociale"
PROMPT 3 24 ""
GROUP 2
FIELD 6->RAGSOC
END
STRINGA
BEGIN
KEY "Natura Giuridica"
PROMPT 77 24 ""
GROUP 2
FIELD 7->NATGIU
END
STRINGA
BEGIN
KEY "Via Indirizzo Fiscale"
FLAGS "H"
MESSAGE COPY,527
FIELD 6->INDRF
END
STRINGA
BEGIN
KEY "Numero Civico Indirizzo Fiscale"
FLAGS "H"
MESSAGE APPEND,527
FIELD 6->INDRF
END
STRINGA 527 35
BEGIN
KEY "Indirizzo Fiscale"
PROMPT 5 27 ""
END
STRINGA
BEGIN
KEY "CAP fiscale"
PROMPT 45 27 ""
FIELD 6->CAPRF
END
STRINGA
BEGIN
KEY "Comune di residenza fiscale"
PROMPT 56 27 ""
FIELD 12@->DENCOM
END
STRINGA
BEGIN
KEY "Provincia di residenza fiscale"
PROMPT 75 27 ""
FIELD 12@->PROVCOM
END
STRINGA
BEGIN
KEY "Partita IVA"
PROMPT 12 30 ""
PICTURE "# # # # # # # ~ ~ ~ #"
FIELD 6->PAIV
END
STRINGA
BEGIN
KEY "Codice fiscale"
PROMPT 42 30 ""
PICTURE "# # # # # # # # # # # # # # # #"
FIELD 6->COFI
END
NUMERO
BEGIN
KEY "Anno di versamento"
PROMPT 40 35 ""
PICTURE "~ ~ @ @"
FIELD CODTAB[6,9]
END
LISTA
BEGIN
KEY "Periodo di versamento"
PROMPT 50 35 ""
FIELD CODTAB[10,11]
ITEM "01|Gennaio"
ITEM "02|Febbraio"
ITEM "03|Marzo"
ITEM "04|Aprile"
ITEM "05|Maggio"
ITEM "06|Giugno"
ITEM "07|Luglio"
ITEM "08|Agosto"
ITEM "09|Settembre"
ITEM "10|Ottobre"
ITEM "11|Novembre"
ITEM "12|Dicembre"
ITEM "13|Annuale"
END
LISTA
BEGIN
KEY "X sul mese"
PROMPT 40 40 ""
GROUP 6
FIELD CODTAB[10,11]
ITEM "01|X"
ITEM "02| X"
ITEM "03| X"
ITEM "04| X"
ITEM "05| X"
ITEM "06| X"
ITEM "07| X"
ITEM "08| X"
ITEM "09| X"
ITEM "10| X"
ITEM "11| X"
ITEM "12| X"
ITEM "13| X"
END
LISTA
BEGIN
KEY "X sul trimestre"
PROMPT 4 33 ""
GROUP 6
FIELD CODTAB[10,11]
ITEM "01|X"
ITEM "02|X"
ITEM "03|X"
ITEM "04| X"
ITEM "05| X"
ITEM "06| X"
ITEM "07| X"
ITEM "08| X"
ITEM "09| X"
ITEM "10| X"
ITEM "11| X"
ITEM "12| X"
ITEM "13| X"
END
NUMERO
BEGIN
KEY "Importo in cifre"
PROMPT 20 52 ""
PICTURE "###.###.###~~~"
FIELD R0
END
NUMERO
BEGIN
KEY "Importo in lettere"
PROMPT 40 52 ""
PICTURE "LETTERE"
FIELD R0
END
NUMERO
BEGIN
KEY "Giorno del versamento"
PROMPT 30 60 ""
PICTURE "# #"
FIELD D0
END
NUMERO
BEGIN
KEY "Mese del versamento"
PROMPT 34 60 ""
PICTURE "# #"
FIELD D0
END
NUMERO
BEGIN
KEY "Anno del versamento"
PROMPT 38 60 ""
PICTURE "# #"
FIELD D0
END
STRINGA
BEGIN
KEY "Codice Azienda"
PROMPT 60 62 ""
PICTURE "@ @ @ @"
FIELD S8
END
STRINGA
BEGIN
KEY "Codice Filiale"
PROMPT 70 62 ""
PICTURE "~ ~ @ @"
FIELD S8
END
END
END