Patch level : nopatch

Files correlati     :
Commento        :

Implementazione nuovo modulo FP

src/cg/cg0200.h

@@ -164,6 +164,7 @@
 #define F_DISABLECUSTFP								265
 #define F_CODCUSTFP                   266
 #define F_DATAICONAI									267
+#define	FLD_CODEORI										268
 
 
 #define F_PRODACC                     271 

src/cg/cg0200a.uml

@@ -1701,7 +1701,7 @@ ENDPAGE
 
 PAGE "Dati Vendita 2" -1 -1 78 19
 
-GROUPBOX DLG_NULL 76 4
+GROUPBOX DLG_NULL 76 5
 BEGIN
   PROMPT 1 0 "Dati identificativi"
 END
@@ -1724,6 +1724,12 @@ BEGIN
   GROUP 2
 END
 
+STRING FLD_CODEORI 20
+BEGIN
+	PROMPT 2 3 "EORI   "
+	FIELD LF_CLIFO->CODEORI
+END
+
 STRING DLG_NULL 30
 BEGIN
   PROMPT 25 1 "Cognome/Rag. Soc.  "
@@ -1740,7 +1746,7 @@ END
 
 STRING F_CODNOTESP1 3
 BEGIN
-  PROMPT 2 4 "Codici note documento   "
+  PROMPT 2 5 "Codici note documento   "
   FIELD LF_CFVEN->CODNOTESP1
   GROUP 7
   USE %NDO
@@ -1755,7 +1761,7 @@ END
 
 STRING F_CODNOTESP2 3
 BEGIN
-  PROMPT 33 4 ""
+  PROMPT 33 5 ""
   FIELD LF_CFVEN->CODNOTESP2
   GROUP 7
   FLAGS "U"
@@ -1769,7 +1775,7 @@ END
 
 STRING F_CODSPMEZZO 3
 BEGIN
-  PROMPT 43 4 "Codice modalità spedizione  "
+  PROMPT 43 5 "Codice modalità spedizione  "
   FIELD LF_CFVEN->CODSPMEZZO
   USE %MSP
   INPUT CODTAB F_CODSPMEZZO
@@ -1782,12 +1788,12 @@ END
 
 GROUPBOX DLG_NULL 20 5
 BEGIN
-  PROMPT 1 5 "Vettori"
+  PROMPT 1 6 "Vettori"
 END
 
 STRING F_CODVETT1 6
 BEGIN
-  PROMPT 2 6 "Vettore 1 "
+  PROMPT 2 7 "Vettore 1 "
   FIELD LF_CFVEN->CODVETT1
   FLAGS "UZ"
   USE %VET
@@ -1800,7 +1806,7 @@ END
 
 STRING F_CODVETT2 6
 BEGIN
-  PROMPT 2 7 "Vettore 2 "
+  PROMPT 2 8 "Vettore 2 "
   FIELD LF_CFVEN->CODVETT2
   FLAGS "UZ"
   COPY USE F_CODVETT1
@@ -1812,7 +1818,7 @@ END
 
 STRING F_CODVETT3 6
 BEGIN
-  PROMPT 2 8 "Vettore 3 "
+  PROMPT 2 9 "Vettore 3 "
   FIELD LF_CFVEN->CODVETT3
   FLAGS "UZ"
   COPY USE F_CODVETT1
@@ -1824,7 +1830,7 @@ END
 
 STRING F_CODPORTO 3
 BEGIN
-  PROMPT 23 7 "Porto     "
+  PROMPT 23 8 "Porto     "
   FIELD LF_CFVEN->CODPORTO
   USE %POR
   INPUT CODTAB F_CODPORTO
@@ -1837,7 +1843,7 @@ END
 
 BOOLEAN F_RAGGDOC
 BEGIN
-  PROMPT 23 8 "Raggr. documenti"
+  PROMPT 23 9 "Raggr. documenti"
   FIELD LF_CFVEN->RAGGDOC
   GROUP 7
   HELP "Indicare se vanno raggruppati i documenti (bolle/fatture)"
@@ -1845,14 +1851,14 @@ END
 
 CURRENCY F_IMPMINFAT 10
 BEGIN
-  PROMPT 43 8 "Importo minimo fatture  "
+  PROMPT 43 9 "Importo minimo fatture  "
   FIELD LF_CFVEN->IMPMINFAT
 END
 
 
 STRING F_ASSFIS 4
 BEGIN
-  PROMPT 2 10 "Codice Assoggettamento fiscale  "
+  PROMPT 2 11 "Codice Assoggettamento fiscale  "
   FIELD LF_CFVEN->ASSFIS
   HELP "Codice d'assoggettamento fiscale"
   USE %IVA
@@ -1870,14 +1876,14 @@ END
 
 BOOLEAN F_FATTSOSP
 BEGIN
-  PROMPT 51 10 "Fatture in sospensione"
+  PROMPT 51 11 "Fatture in sospensione"
   FIELD LF_CFVEN->FATTSOSP
   HELP "Indicase se si tartta di fatture in sospensione d'imposta"
 END
 
 STRING F_TIPODOCFAT 4
 BEGIN
-  PROMPT 2 11 "Tipo                            "
+  PROMPT 2 12 "Tipo                            "
   FIELD LF_CFVEN->TIPODOCFAT
   HELP "Codice tipo documento"
   USE %TIP
@@ -1891,7 +1897,7 @@ END
 
 STRING F_CODCAUS 3
 BEGIN
-  PROMPT 43 11 "Causale contabile            "
+  PROMPT 43 12 "Causale contabile            "
   FIELD LF_CFVEN->CODCAUS
   USE LF_CAUSALI
   INPUT CODCAUS F_CODCAUS
@@ -1904,7 +1910,7 @@ END
 
 STRING F_CODCAUSNC 3
 BEGIN
-  PROMPT 2 12 "Causale contabile Note Credito  "
+  PROMPT 2 13 "Causale contabile Note Credito  "
   FIELD LF_CFVEN->CODCAUSNC
   USE LF_CAUSALI
   INPUT CODCAUS F_CODCAUSNC
@@ -1917,7 +1923,7 @@ END
 
 STRING F_CODCAUSINC 3
 BEGIN
-  PROMPT 43 12 "Causale contabile Anticipi   "
+  PROMPT 43 13 "Causale contabile Anticipi   "
   FIELD LF_CFVEN->CODCAUSINC
   USE LF_CAUSALI
   INPUT CODCAUS F_CODCAUSINC
@@ -1930,13 +1936,13 @@ END
 
 STRING DLG_NULL 76 4
 BEGIN
-  PROMPT 1 13 "Dati lettera esenzione"
+  PROMPT 1 14 "Dati lettera esenzione"
   FLAGS "DH" // NON PIU UTILIZZATI
 END
 
 STRING F_VSNRPROT 7
 BEGIN
-  PROMPT 2 14 "Vs nr. protocollo  "
+  PROMPT 2 15 "Vs nr. protocollo  "
   FIELD LF_CFVEN->VSNRPROT
   GROUP 7
   HELP "Vostro nr. di protocollo della lettera"
@@ -1945,7 +1951,7 @@ END
 
 DATE F_VSDATAREG
 BEGIN
-  PROMPT 40 14 "Vs data registrazione  "
+  PROMPT 40 15 "Vs data registrazione  "
   FIELD LF_CFVEN->VSDATAREG
   GROUP 7
   HELP "Data di registrazione della lettera"
@@ -1954,7 +1960,7 @@ END
 
 STRING F_NSNRPROT 7
 BEGIN
-  PROMPT 2 15 "Ns nr. protocollo  "
+  PROMPT 2 16 "Ns nr. protocollo  "
   FIELD LF_CFVEN->NSNPROT
   GROUP 7
   HELP "Nostro nr. di protocollo della lettera"
@@ -1963,7 +1969,7 @@ END
 
 DATE F_NSDATAREG
 BEGIN
-  PROMPT 40 13 "Ns data registrazione  "
+  PROMPT 40 14 "Ns data registrazione  "
   FIELD LF_CFVEN->NSDATAREG
   GROUP 7
   HELP "Data di registrazione della lettera"
@@ -1972,7 +1978,7 @@ END
 
 NUMBER F_CODCFFATT 6
 BEGIN
-  PROMPT 2 13 "Fatturare a "
+  PROMPT 2 14 "Fatturare a "
   FIELD CODCFFATT
   FLAGS "GR"
   USE LF_CLIFO KEY 1
@@ -1991,7 +1997,7 @@ END
 
 STRING F_DESCFFATT 50 30
 BEGIN
-  PROMPT 25 13 ""
+  PROMPT 25 14 ""
   USE LF_CLIFO KEY 2
   INPUT TIPOCF F_TIPOCF SELECT
   INPUT RAGSOC F_DESCFFATT
@@ -2007,7 +2013,7 @@ END
 
 STRING F_CATFIN 2
 BEGIN
-  PROMPT 2 14 "Categoria finanziaria      "
+  PROMPT 2 15 "Categoria finanziaria      "
   FIELD LF_CFVEN->CATFIN
   USE %CFI
   INPUT CODTAB F_CATFIN
@@ -2023,7 +2029,7 @@ ENDPAGE
 
 PAGE "Dati Vendita 3" -1 -1 78 19
 
-GROUPBOX DLG_NULL 76 4
+GROUPBOX DLG_NULL 76 5
 BEGIN
   PROMPT 1 0 "Dati identificativi"
 END

src/cg/cg2100.cpp

@@ -1001,14 +1001,11 @@ void TPrimanota_application::f1_init_modify(TMask& m, const TRectype& mov)
 {
 	const bool after_data_inizio_fe = mov.get_date(MOV_DATADOC) >= get_data_start_fatt();
 
-	if (m.find_by_id(F_COLFPPRO) != nullptr && after_data_inizio_fe)
+	m.field(F_IDDOCSDI).show(after_data_inizio_fe);
-		m.set(F_COLFPPRO, mov.get(MOV_KEYFPPRO).empty() ? " " : "X");
+	m.field(F_DATADOCSDI).show(after_data_inizio_fe);
-	else
+	m.field(F_COLFPPRO).show(after_data_inizio_fe);
-		if(m.find_by_id(F_COLFPPRO) != nullptr && !after_data_inizio_fe)
+	m.field(DLG_LINK).enable(after_data_inizio_fe);
-		{
+	m.set(F_COLFPPRO, !after_data_inizio_fe || mov.get(MOV_KEYFPPRO).empty() ? " " : "X");
-			m.field(F_COLFPPRO).hide();
-			m.field(DLG_LINK).disable();
-		}
 }
 
 void TPrimanota_application::init_modify_mode(TMask& m)
@@ -1118,8 +1115,8 @@ void TPrimanota_application::init_modify_mode(TMask& m)
 		m.enable(F_BOLLACODCLI, causale().tipo_doc() == "BD");
 		m.enable(F_BOLLARAGCLI, causale().tipo_doc() == "BD");
 	}
-
+	if (iva() != nessuna_iva)
-	f1_init_modify(m, mov);
+		f1_init_modify(m, mov);
 }
 
 // Controlla sulla causale se il segno del totale documento (ritsoc=false) 

src/cg/cg2100.h

@@ -91,10 +91,13 @@
 #define F_REVCHARGE      184
 #define F_MOVCOLL        185
 #define F_GOCOLL         186
+#define F_IDDOCSDI			 187
+#define F_DATADOCSDI		 188
 
 #define F_SHEETCG  190
 #define F_SHEETIVA 191
 
+
 // Sheet contabile    
 #define CG_DARE       101
 #define CG_AVERE      102

src/cg/cg2100c.uml

@@ -558,6 +558,8 @@ BOOLEAN F_COLFPPRO
 BEGIN
 	PROMPT 1 19 "Registrazione collegata a FPPRO"
 	FLAGS "D"
+	MESSAGE TRUE DISABLE, F_IDDOCSDI|DISABLE F_DATADOCSDI
+	MESSAGE FALSE ENABLE, F_IDDOCSDI|ENABLE F_DATADOCSDI
 END
 
 STRING F_PROKEY 80
@@ -568,6 +570,18 @@ BEGIN
   FLAGS "H"
 END
 
+STRING F_IDDOCSDI 20
+BEGIN
+	PROMPT 28 19 "Id"
+	FIELD IDDOCSDI
+END
+
+DATE F_DATADOCSDI 
+BEGIN
+	PROMPT 52 19 "Data         "
+	FIELD DATADOCSDI
+END
+
 BOOLEAN F_IVAXCASSA
 BEGIN
   PROMPT 1 20 "IVA per cassa"
@@ -592,6 +606,12 @@ BEGIN
   FIELD DATAINC
 END
 
+BOOLEAN F_RITFATT
+BEGIN
+  PROMPT 1 21 "Fattura in ritardo "
+	FIELD RITFATT
+END
+
 LIST F_SPLITPAY 1 2
 BEGIN
   PROMPT 51 21 "Scissione pagamenti "
@@ -619,9 +639,10 @@ BEGIN
   VALIDATE REQIF_FUNC 1 F_CORRVALUTA
 END
 
+
 NUMBER F_CAMBIOINTRA 15 6
 BEGIN
-  PROMPT 25 21 ""
+  PROMPT 25 22 ""
   FIELD CAMBIOI
   FLAGS "U"
   GROUP 4
@@ -650,12 +671,6 @@ BEGIN
   DRIVENBY F_VALUTAINTRA
 END
 
-BOOLEAN F_RITFATT
-BEGIN
-  PROMPT 1 24 "Fattura in ritardo "
-	FIELD RITFATT
-END
-
 STRING NP_CONTSEP 6
 BEGIN
   PROMPT 1 24 "Cont. separata "

src/cg/cglib.h

@@ -1368,7 +1368,7 @@ class TAnagrafica : public TObject
 	TString80 _ragsoc;
 	TString4 _com_nasc, _com_res;
 	TString80 _loc_res, _ind_res, _via_res;
-	TString16 _civ_res, _cap_res;
+	TString16 _civ_res, _cap_res, _cod_EORI;
 	TDate _data_nasc;
 	int _allegato, _stato_estero, _stato_nasc;
 
@@ -1411,6 +1411,7 @@ public:
 	const TString& via_residenza() const { return _via_res; }
 	const TString& civico_residenza() const { return _civ_res; }
 	const TString& CAP_residenza() const { return _cap_res; }
+	const TString& cod_EORI() const { return _cod_EORI; }
 
 	bool init(const TRectype& rec);
 	bool init(int num, const TString& codice);
@@ -1482,7 +1483,7 @@ public:
 	TToken_string & get_ban_pres(int nprog = 1);
 
 	const TOccasionale & occasionale(const TString& ocfpi =  EMPTY_STRING)	{	return _occasionale = cache().get(LF_OCCAS, ocfpi); }
-	const TAnagrafica & anagrafica_cliente(const char * ocfpi = "") { _anagr.init(tipo(), codice(), ocfpi);  return _anagr; }
+	const TAnagrafica & anagrafica() const { return _anagr; }
 
 	TCli_for(char tipo = ' ', long codice = 0L);
 	TCli_for(const TRectype & rec);
@@ -1536,7 +1537,7 @@ public:
 	real imponibile(const char * codiva = nullptr) const;
 	real imposta(const char * codiva = nullptr) const;
 	TPagamento& pagamento();
-	const TCli_for & clifo() const { return  cached_clifor(get_char(MOV_TIPO), get_long(MOV_CODCF)); }
+	const TCli_for & clifo() const { return cached_clifor(get_char(MOV_TIPO), get_long(MOV_CODCF)); }
 	const TCausale & causale() const { return cached_causale(get(MOV_CODCAUS), get_int(MOV_ANNOES)); }
 
 	bool is_reverse_charge() const { return ::is_reverse_charge(*this); }

src/cg/cglib07.cpp

@@ -288,6 +288,7 @@ bool TAnagrafica::init(const TRectype& rec)
 	_stato_estero = _stato_nasc = 0;
 	_allegato = 0;
 	_ragsoc.cut(0);
+
 	if (rec.empty())
 		return false;
 
@@ -382,6 +383,7 @@ bool TAnagrafica::init(const TRectype& rec)
 	}
 	break;
 	case LF_CLIFO:
+		_cod_EORI = rec.get(ANA_CODEORI);
 		_allegato = rec.get_int(CLI_ALLEG);
 		if (_allegato == 4)
 		{
@@ -466,6 +468,7 @@ bool TAnagrafica::init(const TRectype& rec)
 		_paiv = rec.get(CLI_PAIV);
 		_stato_paiv = rec.get(CLI_STATOPAIV);
 
+
 		if (_allegato != 5 && _allegato != 9)
 		{
 			if (_stato_paiv.blank() || _stato_paiv == "IT")
@@ -884,6 +887,7 @@ TCli_for::TCli_for(char tipo, long codice) : TMultiple_rectype( LF_CLIFO ), _ven
   add_file(LF_INDSP, IND_CODIND);  
   if (tipo > ' ' && codice > 0L)
     read(tipo, codice);
+	_anagr.init(tipo, codice);
 }  
 
 
@@ -893,11 +897,15 @@ TCli_for::TCli_for(const TRectype & rec) : TMultiple_rectype(rec), _ven_rec(LF_C
 	init();
   add_file(LF_INDSP, IND_CODIND);  
   read(rec);
+	_anagr.init(tipo(), codice());
 }  
 
 TCli_for::TCli_for(const TCli_for & c) : TMultiple_rectype(c), _ven_rec(c._ven_rec),
 																				 _letint(LF_LETINT), _use_lettere(false), _lettera_found(false), _extended(false)
-{	init(); }  
+{
+	init();
+	_anagr.init(tipo(), codice());
+}  
    
 TCli_for::~TCli_for()
 { }

src/cg/f20.dir

@@ -1,3 +1,3 @@
 20
 0
-$clifo|0|0|916|0|Clienti/Fornitori|||
+$clifo|9617|9617|916|0|Clienti/Fornitori|NCF||