Merge branch 'R_10_00' of http://10.65.20.33/sirio/CAMPO/campo into R_10_00

cd/test/fp0722.txt

@@ -0,0 +1,3 @@
+fp0.exe
+
+Corretta lettura codice IVA incasso

cd/test/fp0722a.ini

@@ -0,0 +1,19 @@
+[Main]
+Demo=0
+
+[fp1]
+File(0) = fp0.exe|X
+Patch = 0722
+Versione = 21511200
+
+[fp]
+Data = 06-03-2019
+Descrizione = Fattura Elettronica
+Dischi = 1
+Moduli = cg,ve
+OEM = 
+Patch = 722
+PostProcess = 
+PreProcess = 
+Versione = 21511200
+

src/fp/fp0400.cpp

@@ -166,12 +166,16 @@ void TPassive_mask::aggiungi_riga(TLocalisamfile& clifo, TSheet_field& sf, TShee
 	const TString paa_codpaese	= fp_db().sq_get("COD_PAESE");
 	const TString paa_codsdi		= fp_db().sq_get("COD_SDI");
 	TString				prot					= fp_db().sq_get("TIPO_PROT");
+	TString				filter_elab		= get(F_FATTSEL);
 
 	TToken_string& row = sf.row(-1);
 	
 	clifo.zero();
 	clifo.put(CLI_TIPOCF, 'F');
 
+	forn_code = find_fornitore(clifo);
+	if( filter_elab.blank() && forn_code != 0 || filter_elab == "E" && forn_code == 0 || filter_elab == "A")
+	{
 		if (denom.blank()) {
 			denom = fp_db().sq_get("NOME");
 			denom << " " << fp_db().sq_get("COGNOME");
@@ -187,7 +191,6 @@ void TPassive_mask::aggiungi_riga(TLocalisamfile& clifo, TSheet_field& sf, TShee
 		row.add(fp_db().sq_get("TOT_DOC"));
 
 		// Dopo aver fatto le ricerche se lo trovo lo segno e lo aggiungo, se no coloro la cella
-	forn_code = find_fornitore(clifo);
 		TString forn_str; forn_str << forn_code;
 		TString nr_row; nr_row << sf.items();
 		_forn_code.add(forn_str);
@@ -196,7 +199,7 @@ void TPassive_mask::aggiungi_riga(TLocalisamfile& clifo, TSheet_field& sf, TShee
 		if (forn_code == 0) row.add("X");
 		else row.add("");
 
-	if(forn_code >= 0)
+		if (forn_code >= 0)
 		{
 			row.add(clifo.get(CLI_CODCF));
 			row.add(clifo.get(CLI_RAGSOC));
@@ -218,6 +221,8 @@ void TPassive_mask::aggiungi_riga(TLocalisamfile& clifo, TSheet_field& sf, TShee
 		row.add(fp_db().sq_get("ANNO_PROT") << (prot.empty() ? "" : "-") << prot << "/" << fp_db().sq_get("NUM_PROT") << (prot.empty() ? " (no prot.)" : ""));
 		TString key_prot; key_prot << fp_db().sq_get("KEYPROG") << ";" << fp_db().sq_get("KEYHEAD") << ";" << fp_db().sq_get("KEYFATT");
 		row.add(key_prot);
+	}
+	
 }
 
 void TPassive_mask::aggiungi_prot() const
@@ -539,9 +544,13 @@ bool TPassive_mask::on_field_event(TOperable_field& o, TField_event e, long joll
 		break;
 	case F_DATAINI:
 		if (e == fe_init) 
-			o.set(ini_get_string(CONFIG_DITTA, "fp", "LastXML", "01-01-2019"));
+		{
-		else if (e == fe_close)
+			TDate inizio_mese = TDate(TODAY); inizio_mese.set_day(1);
-			ini_set_string(CONFIG_DITTA, "fp", "LastXML", o.get());
+			o.set(inizio_mese);
+			//o.set(ini_get_string(CONFIG_DITTA, "fp", "LastXML", "01-01-2019"));
+		}
+		//else if (e == fe_close)
+		//	ini_set_string(CONFIG_DITTA, "fp", "LastXML", o.get());
 		break;
 	case F_DATAEND:
 		if (e == fe_init)

src/fp/fp0400a.h

@@ -2,6 +2,7 @@
 #define F_DATAINI				501
 #define F_DATAEND				502
 #define F_SAVEFOR				503
+#define F_FATTSEL				504
 #define END_MASK				599
 
 

src/fp/fp0400a.uml

@@ -48,6 +48,15 @@ BEGIN
   CHECKTYPE REQUIRED
 END
 
+RADIOBUTTON F_FATTSEL 3 80
+BEGIN
+  PROMPT 1 2 "Fatture da visualizzare"
+  ITEM "|Non elaborate"
+  ITEM "E|Elaborate"
+  ITEM "A|Tutte"
+  FLAGS "Z"
+END
+
 SPREADSHEET F_PROT 25 10
 BEGIN
   PROMPT 1 6 "Selezionare o aggiungere un filtro sul Tipo Progressivo"