Patch level : 12.00 1376

Files correlati     : cg0.exe cg0700a.msk recdesc/dir13.xml recdesc/trc13.xml  recdesc/dir18.xml recdesc/trc18.xml ba4100a.msk
Bug                 :

Commento:
Aggiunti campi TIPOPERS ALLEG PADESTIN PFAX FAX agli occasionali
Nel file ini dei clienti i campi impostati CODISTATCF CODISTATNASC decodificano il codice comune cliente e il codice comune di nascita
Nel file ini dei clienti occasionali i campi impostati CODISTAT CODISTATNASC decodificano il codice comune cliente  e il codice comune di nascita
Campo codice istat zerofilled e aggiunta relativa chiave

src/cg/cg0200.cpp

@@ -1037,6 +1037,26 @@ int TClifo_application::read(TMask& m)
 
 void TClifo_application::ini2mask(TConfig& ini, TMask& m, bool query)
 {
+	TString istat = ini.get_int("CODISTATCF");
+
+	if (istat.full())
+	{
+		const TRectype & com = cache().get(LF_COMUNI, istat);
+
+		ini.set(CLI_STATOCF, com.get(COM_STATO));
+		ini.set(CLI_COMCF, com.get(COM_COM));
+	}
+
+	istat = ini.get_int("CODISTATNASC");
+
+	if (istat.full())
+	{
+		const TRectype & com = cache().get(LF_COMUNI, istat);
+
+		ini.set(CLI_STATONASC, com.get(COM_STATO));
+		ini.set(CLI_COMNASC, com.get(COM_COM));
+	}
+	
 	TRelation_application::ini2mask(ini, m, query);
 	int i;
   

src/cg/cg0700.cpp

@@ -4,6 +4,8 @@
 #include "cg0.h"
 #include "cg0700a.h"
 
+#include <comuni.h>
+#include <occas.h>
 #include <pconti.h>
 #include <saldi.h>
 #include <automask.h>
@@ -70,6 +72,7 @@ class TOccasionali_app : public TRelation_application
   bool user_destroy();
   virtual TMask* _get_mask(int mode) {return _msk;}
   virtual bool changing_mask(int mode) {return FALSE;}
+	void ini2mask(TConfig& ini, TMask& m, bool query);
 
 public:
   // @cmember Disabilita la verifica del modulo : essendo una anagrafica, va sempre abilitata
@@ -96,6 +99,32 @@ bool TOccasionali_app::user_destroy()
   return true;
 }
 
+void TOccasionali_app::ini2mask(TConfig& ini, TMask& m, bool query)
+{
+	TString istat = ini.get_int(COM_CODISTAT);
+
+	if (istat.full())
+	{
+		const TRectype & com = cache().get(LF_COMUNI, istat);
+
+		ini.set(OCC_STATO, com.get(COM_STATO));
+		ini.set(OCC_COM, com.get(COM_COM));
+	}
+
+	istat = ini.get_int("CODISTATNASC");
+
+	if (istat.full())
+	{
+		const TRectype & com = cache().get(LF_COMUNI, istat);
+
+		ini.set(OCC_STATONASC, com.get(COM_STATO));
+		ini.set(OCC_COMNASC, com.get(COM_COM));
+	}
+
+	TRelation_application::ini2mask(ini, m, query);
+}
+
+
 int cg0700(int argc, char* argv[])
 {
   TOccasionali_app a ;

src/cg/cg0700a.h

@@ -28,3 +28,10 @@
 #define O_TEL2			125
 #define O_PTEL3			126
 #define O_TEL3			127
+#define O_TIPOPERS	128
+#define O_ALLEG			129
+#define O_PADESTIN	130
+#define O_PFAX			131
+#define O_FAX				132
+
+#include <occas.h>

src/cg/cg0700a.uml

@@ -24,7 +24,7 @@ BEGIN
   DISPLAY "Ragione Sociale@50" RAGSOC
   OUTPUT O_CODICE CFPI
   OUTPUT O_RAGSOC RAGSOC
-  FIELD CFPI
+  FIELD OCC_CFPI
   VALIDATE NOT_EMPTY_FUNC
   KEY 1
 END
@@ -32,7 +32,7 @@ END
 STRING O_RAGSOC 50
 BEGIN
   PROMPT 2 2 "Ragione sociale "
-  FIELD RAGSOC
+  FIELD OCC_RAGSOC
   USE LF_OCCAS KEY 2
   INPUT RAGSOC O_RAGSOC
   DISPLAY "Ragione Sociale@50" RAGSOC
@@ -46,7 +46,7 @@ END
 STRING O_COFI 16
 BEGIN
   PROMPT 2 3 "Codice fiscale  "
-  FIELD COFI
+  FIELD OCC_COFI
   FLAGS "U"
   VALIDATE XTZCF_FUNC O_STATONAS O_SESSO O_DATANAS O_COMUNENAS
 END
@@ -54,7 +54,7 @@ END
 STRING O_STATOPAIV 2
 BEGIN
   PROMPT 37 3 "Partita IVA  "
-  FIELD STATOPAIV
+  FIELD OCC_STATOPAIV
   HELP "Codice ISO dello stato"
   FLAGS "U"
   USE %SCE
@@ -68,7 +68,7 @@ END
 STRING O_PAIV 12
 BEGIN
   PROMPT 56 3 ""
-  FIELD PAIV
+  FIELD OCC_PAIV
   VALIDATE PI_FUNC O_STATOPAIV
 END
 
@@ -80,20 +80,20 @@ END
 STRING O_INDIRIZZO 40
 BEGIN
   PROMPT 2 6 "Indirizzo "
-  FIELD INDIR
+  FIELD OCC_INDIR
 END
 
 STRING O_NUMERO 6
 BEGIN
   PROMPT 55 6 "Numero "
-  FIELD CIV
+  FIELD OCC_CIV
 END
 
 STRING O_STATO 3
 BEGIN
   PROMPT 2 7 "Stato "
   HELP "Stato di residenza della persona"
-  FIELD STATO
+  FIELD OCC_STATO
   FLAGS "U"
   USE %STA
   INPUT CODTAB O_STATO
@@ -106,7 +106,7 @@ END
 STRING O_COMUNE 4
 BEGIN
   PROMPT 15 7 "Comune "
-  FIELD COM
+  FIELD OCC_COM
   FLAGS "U"
   USE LF_COMUNI
   INPUT STATO O_STATO
@@ -140,7 +140,7 @@ END
 STRING O_LOCALITA 35
 BEGIN
   PROMPT 2 8 "Localita'     "
-  FIELD LOCALITA
+  FIELD OCC_LOCALITA
   HELP "Localita' del recapito"
 END
 
@@ -148,7 +148,7 @@ NUMBER O_CAP 5
 BEGIN
   PROMPT 56 8 "C.A.P. "
   HELP "CAP della residenza della persona"
-  FIELD CAP
+  FIELD OCC_CAP
   FLAGS "ZF"
 END
 
@@ -162,19 +162,19 @@ BEGIN
   PROMPT 2 11 "Sesso "
   ITEM "M|Maschio"
   ITEM "F|Femmina"
-  FIELD SESSO
+  FIELD OCC_SESSO
 END
 
 DATE O_DATANAS
 BEGIN
   PROMPT 23 11 "Data "
-  FIELD DNASC
+  FIELD OCC_DNASC
 END
 
 STRING O_STATONAS 3
 BEGIN
   PROMPT 41 11 "Stato "
-  FIELD STATONASC
+  FIELD OCC_STATONASC
   FLAGS "U"
   COPY USE O_STATO
   INPUT CODTAB O_STATONAS
@@ -186,7 +186,7 @@ END
 STRING O_COMUNENAS 4
 BEGIN
   PROMPT 57 11 "Comune "
-  FIELD COMNASC
+  FIELD OCC_COMNASC
   FLAGS "U"
   COPY USE O_COMUNE
   INPUT STATO O_STATONAS
@@ -210,96 +210,151 @@ END
 STRING O_REFERENTE 50
 BEGIN
   PROMPT 2 14 "Referente    "
-FIELD REFERENTE
+  FIELD OCC_REFERENTE
+END
+
+LIST O_TIPOPERS 1 12
+BEGIN
+  PROMPT 2 15 "Tipo persona "
+  FIELD OCC_TIPOPERS
+  HELP "Tipo anagrafico del cliente/fornitore"
+  ITEM "F|Fisica"
+  ITEM "G|Giuridica"
+END
+
+STRING O_ALLEG 1
+BEGIN
+  PROMPT 30 15 "Tipo "
+  FIELD OCC_ALLEG
+  SHEET "Codice|Descrizione@50"
+  HELP "Codice per l'inserimento negli allegati IVA"
+  INPUT O_ALLEG
+  ITEM " |Valido per allegato IVA"
+  ITEM "1|Non valido per allegato IVA"
+  ITEM "2|Occasionale"
+  ITEM "3|Documenti riepilogativi"
+  ITEM "4|Codice fiscale già inserito"
+  ITEM "5|Estero CEE"
+  ITEM "6|Privato"
+  ITEM "7|Ente pubblico"
+  ITEM "8|Fallimento/proc.concorsuale"
+  ITEM "9|Estero NON CEE"
+  ITEM "C|Scheda carburante"
+  ITEM "G|Gruppo IVA"
+  OUTPUT O_ALLEG
+END
+
+STRING O_PADESTIN 7
+BEGIN
+  PROMPT 40 15 "Destinatario  "
+  MODULES PA,FP
+  HELP "Codice ufficio dell destinatario della fattura elettronica"
+  FIELD OCC_PADESTIN
 END
 
 TEXT DLG_NULL
 BEGIN
-  PROMPT 2 15  "E-Mail"
+  PROMPT 2 16  "E-Mail"
 END
 
 STRING O_MAIL 50 25
 BEGIN
-  PROMPT 2 16  "Normale   "
+  PROMPT 2 17  "Normale   "
-  FIELD MAIL
+  FIELD OCC_MAIL
 END
 
 BOOLEAN O_BYMAIL
 BEGIN
-  PROMPT 40 16 "Consenso spedizione doc tramite email"
+  PROMPT 40 17 "Consenso spedizione doc tramite email"
-  FIELD BYMAIL
+  FIELD OCC_BYMAIL
   MESSAGE FALSE CLEAR,O_DOCMAIL
   MESSAGE TRUE ENABLE,O_DOCMAIL
 END
 
 STRING O_DOCMAIL 50 25
 BEGIN
-  PROMPT 2 17 "Documenti "
+  PROMPT 2 18 "Documenti "
-  FIELD DOCMAIL
+  FIELD OCC_DOCMAIL
   CHECKTYPE REQUIRED
 END
 
 STRING O_PEC 80 45
 BEGIN
-  PROMPT 2 18 "Pec       "
+  PROMPT 2 19 "Pec       "
-  FIELD PEC
+  FIELD OCC_PEC
 END
 
 STRING O_PTEL 5
 BEGIN
-  PROMPT 2 19 "Telefono  "
+  PROMPT 2 20 "Telefono  "
-  FIELD PTEL
+  FIELD OCC_PTEL
   HELP "Prefisso telefonico primo recapito"
 END
 
 STRING O_TEL 20 15
 BEGIN
-  PROMPT 18 19 "/"
+  PROMPT 18 20 "/"
-  FIELD TEL
+  FIELD OCC_TEL
   HELP "Numero telefonico primo recapito"
 END
 
 STRING O_PTEL2 5
 BEGIN
-  PROMPT 11 20 " "
+  PROMPT 11 21 " "
-  FIELD PTEL2
+  FIELD OCC_PTEL2
   HELP "Prefisso telefonico secondo recapito"
 END
 
 STRING O_TEL2 20 15
 BEGIN
-PROMPT 18 20 "/"
+PROMPT 18 21 "/"
-FIELD TEL2
+FIELD OCC_TEL2
 HELP "Numero telefonico secondo recapito"
 END
 
 STRING O_PTEL3 5
 BEGIN
-  PROMPT 11 21 " "
+  PROMPT 11 22 " "
-  FIELD PTEL3
+  FIELD OCC_PTEL3
   HELP "Prefisso telefonico terzo recapito"
 END
 
 STRING O_TEL3 20 15
 BEGIN
-  PROMPT 18 21 "/"
+  PROMPT 18 22 "/"
-  FIELD TEL3
+  FIELD OCC_TEL3
   HELP "Numero telefonico terzo recapito"
 END
 
+
+STRING O_PFAX 5
+BEGIN
+  PROMPT 2 23 "FAX       "
+  FIELD OCC_PFAX
+  HELP "Prefisso telefonico fax"
+END
+
+STRING O_FAX 23 15
+BEGIN
+  PROMPT 18 23 "/"
+  FIELD OCC_FAX
+  HELP "Numero telefonico fax"
+END
+
 STRING DLG_NULL 50 32
 BEGIN
   PROMPT 1 -1 "Ultimo aggiornamento "
   FLAGS "D"
-  FIELD UTENTE
+  FIELD OCC_UTENTE
 END
 
 DATE DLG_NULL
 BEGIN
   PROMPT 60 -1 ""
   FLAGS "D"
-  FIELD DATAAGG
+  FIELD OCC_DATAAGG
 END
+
 ENDPAGE
 
 ENDMASK