From 71f8628412197039a716a48b9245d2659432ae79 Mon Sep 17 00:00:00 2001
From: villa <villa@c028cbd2-c16b-5b4b-a496-9718f37d4682>
Date: Mon, 10 Apr 1995 16:30:03 +0000
Subject: [PATCH] Kazzatelle

git-svn-id: svn://10.65.10.50/trunk@1226 c028cbd2-c16b-5b4b-a496-9718f37d4682
---
 cg/Attic/cg1400.cpp |   9 +
 cg/cg0100.cpp       |   2 +
 cg/cg0400.cpp       |   3 +-
 cg/cg1400.cpp       |   9 +
 cg/del.frm          | 711 ++++++++++++++++++++++----------------------
 5 files changed, 378 insertions(+), 356 deletions(-)

diff --git a/cg/Attic/cg1400.cpp b/cg/Attic/cg1400.cpp
index 38001cd78..2d9d7031a 100755
--- a/cg/Attic/cg1400.cpp
+++ b/cg/Attic/cg1400.cpp
@@ -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)
   {
diff --git a/cg/cg0100.cpp b/cg/cg0100.cpp
index 2c51b57d7..62019f5ee 100755
--- a/cg/cg0100.cpp
+++ b/cg/cg0100.cpp
@@ -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;
 
 }
diff --git a/cg/cg0400.cpp b/cg/cg0400.cpp
index 71bd959a1..57f5479f9 100755
--- a/cg/cg0400.cpp
+++ b/cg/cg0400.cpp
@@ -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;
 }
 
diff --git a/cg/cg1400.cpp b/cg/cg1400.cpp
index 38001cd78..2d9d7031a 100755
--- a/cg/cg1400.cpp
+++ b/cg/cg1400.cpp
@@ -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)
   {
diff --git a/cg/del.frm b/cg/del.frm
index 14f1536ab..b6f11f97d 100755
--- a/cg/del.frm
+++ b/cg/del.frm
@@ -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