Merge branch 'R12.00' of http://10.65.20.33/sirio/CAMPO/campo into R12.00

# Conflicts:
#	src/ba/f9.dir

cd/test/ba1102.txt

@@ -0,0 +1,4 @@
+ba8.exe
+
+ricompilato ba8
+ 

cd/test/ba1102a.ini

@@ -0,0 +1,31 @@
+[Main]
+Demo=0
+
+[ba8]
+File(510) = ba8.exe|X
+Patch = 1102
+Versione = 21511200
+
+[ba99]
+Kill(0) = batbsce.txt|x
+Kill(1) = wxmsw240.dll|x
+Kill(2) = bastcms.rep|x
+Kill(3) = bastcms.msk|x
+Kill(4) = bastfsc.msk|x
+Kill(5) = bastfsc.rep|x
+Kill(6) = bastuue.msk|x
+Kill(7) = bastuue.rep|x
+
+[ba]
+Data = 14-12-2021
+Descrizione = Base
+Dischi = 1
+Moduli = sy
+OEM = 
+Patch = 1102
+PostProcess = bainst -0 BA
+PreProcess = 
+Prezzo(1) = 
+Prezzo(2) = 
+Versione = 21511200
+

src/ba/ba4300.h

@@ -143,6 +143,8 @@
 #define FLD_IN_UFFDOG                       203
 #define FLD_GD1_OGGETTI											204
 #define FLD_CODEORI													205
+#define FLD_GD1_PEC   											206
+#define FLD_GD1_PADESTIN										207
 
 #define F_INTCAF														303
 #define F_DICHP 														304

src/ba/ba4300a.uml

@@ -191,7 +191,7 @@ BEGIN
   WARNING "Attivita' assente"
 END
 
-GROUPBOX DLG_NULL 76 5
+GROUPBOX DLG_NULL 76 6
 BEGIN
   PROMPT 0 13 "@bRecapiti telefonici e telematici"
 END
@@ -231,16 +231,15 @@ BEGIN
   HELP "Indirizzo e-mail della ditta"
 END
 
-GOLEM FLD_GD1_OGGETTI 10 2
+STRING FLD_GD1_PEC 80 50
 BEGIN
-  PROMPT 64 18 ""
-  FIELD OGGETTI  
-  FLAGS "M"
+  PROMPT 1 17 "Pec      :          "
+  FIELD PEC
 END
 
 STRING FLD_GD1_VALUTA 3
 BEGIN
-  PROMPT 1 18 "Codice valuta di riferimento "
+  PROMPT 1 19 "Codice valuta di riferimento "
   FIELD VALUTA
   USE %VAL
   INPUT CODTAB FLD_GD1_VALUTA
@@ -251,6 +250,22 @@ BEGIN
   FLAGS "DU"
 END
 
+STRING FLD_GD1_PADESTIN 7
+BEGIN
+  PROMPT 1 20 "Destinatario                 "
+  FLAGS ""
+  MODULES PA,FP
+  HELP "Codice ufficio dell destinatario della fattura elettronica"
+  FIELD PADESTIN
+END
+
+GOLEM FLD_GD1_OGGETTI 10 2
+BEGIN
+  PROMPT 64 20 ""
+  FIELD OGGETTI  
+  FLAGS "M"
+END
+
 BUTTON DLG_ATT 10 2
 BEGIN
   PROMPT -14 -1 "~Attivita'"

src/ba/f9.dir

@@ -1,3 +1,7 @@
 9
 1
+<<<<<<< HEAD
 %nditte|0|0|652|0|Ditte|||
+=======
+%nditte|0|0|754|0|Ditte|||
+>>>>>>> 0cadcd6dee4a4a67021c26174d7dea2a761fe182

src/ba/f9.trr

@@ -1,5 +1,5 @@
 9
-62
+64
 CODDITTA|3|5|0|
 TIPOA|1|1|0|
 CODANAGR|3|5|0|
@@ -62,6 +62,8 @@ DATARFSO|5|8|0|Data immissione valore
 SOCIOUNICO|7|1|0|N Se la ditta ha un socio unico o +
 OGGETTI|11|10|0|Collegamenti esterni
 CODEORI|1|15|0|Codice EORI Ditta
+PEC|1|80|0|PEC
+PADESTIN|1|7|0|Codice destinatario SDI
 4
 CODDITTA| 
 UPPER(RAGSOC)|X

src/fp/fplib01.cpp

@@ -2848,6 +2848,8 @@ bool TReg_fp::initialize(const TMovimento_contabile& mov)
 	_log.log(-1, _bfatt);
 	// Controllo se il documento  almeno in stato di stampa
 	_is_pa = mov.clifo().get_int("ALLEG") == 7;
+	
+		// direi che la mia pec no si  trova cosi''
 	if (!get_coddest(mov.get_char(MOV_TIPO), mov.get_long(MOV_CODCF), _coddest, _pec))
 	{
 		_log.log(1, "Impossibile trovare il codice destinatario per la fattura");
@@ -3081,8 +3083,7 @@ bool TReg_fp::reg_to_paf(const TMovimento_contabile& mov)
 	}
 	 
 		ok &= insert(paf0200f);
-	
-		
+			
 		// </CedentePrestatore>
 		// </CedentePrestatore>
 		// <CessionarioCommittente>
@@ -3143,6 +3144,16 @@ bool TReg_fp::reg_to_paf(const TMovimento_contabile& mov)
 		paf0400f.set("P4_SEDECOMUNE", _ditta.comune_residenza());
 		paf0400f.set("P4_SEDEPROV", _ditta.provincia_residenza());
 		paf0400f.set("P4_SEDENAZ", _ditta.stato_residenza_ISO());
+		
+		TString coddest = _ditta.coddest();
+
+		if (coddest.blank())
+		{
+			if (_ditta.pec().full())
+				coddest = _ditta.pec();
+			else
+				coddest = "0000000";
+		}
 
 		// Titolo onorifico!
 		const TString& titolo = (mov.clifo().vendite().get(CFV_TITOLO));

src/include/nditte.h

@@ -60,5 +60,8 @@
 #define NDT_DICHP				"DICHP"
 #define NDT_SOCIOUNICO  "SOCIOUNICO"
 #define NDT_OGGETTI			"OGGETTI"
+#define NDT_CODEORI			"CODEORI"
+#define NDT_CODDEST			"CODDEST"
+#define NDT_PEC   			"PEC"
 
 #endif