Patch level : 12.0 420

Files correlati     : tf
Commento            : 
Maschera: 
- Reso codcf disabilitato, lo imposto io in base al filtro

Programma:
- Aggiunta richiesta al primo avvio se si vuole proseguire l'esportazione dopo aver controllato PIVA e CODCF
- Sistemato bug sui nuovi movimenti, prima se il movimento era nuovo davo per scontato fosse a posto adesso invece lo controllo. Questo errore capitava se l'ultimo movimento non rientrava nei parametri

git-svn-id: svn://10.65.10.50/branches/R_10_00@23964 c028cbd2-c16b-5b4b-a496-9718f37d4682

src/tf/tf0100.cpp

@@ -726,12 +726,16 @@ bool TTrFa_app::send(TTrFa_mask* msk)
 	bool first = ini_get_bool(CONFIG_DITTA, "tf", "FirstExec", true);
 	if(first)
 	{
+		ini_set_bool(CONFIG_DITTA, "tf", "FirstExec", false);
 		if(yesno_box("Stai eseguendo il programma per la prima volta,\nvuoi controllare di avere tutti i Codici Fiscali e Partite IVA corrette?"))
 		{
 			TExternal_app checkApp("cg1 -2 L");
 			checkApp.run();
+			if(!yesno_box("Desideri proseguire con l'esportazione?"))
+			{
+				return false;
+			}
 		}
-		ini_set_bool(CONFIG_DITTA, "tf", "FirstExec", false);
 	}
 
 	// Mi carico i miei dati

src/tf/tf0100a.uml

@@ -237,6 +237,7 @@ BEGIN
   ITEM "C|Cliente"
   ITEM "F|Fornitore"
   FIELD TIPOCF
+  FLAGS "D"
 END
 
 NUMBER A_CODCF 6

src/tf/tf0101.cpp

@@ -58,6 +58,7 @@ bool TTrFa_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
       TSheet_field& s = (TSheet_field&)o;
       TToken_string& row = s.row(jolly);
       row.add(nuovo_progr(), s.cid2index(A_NUMERO));
+			row.add(get(F_TIPOCF), s.cid2index(A_TIPOCF));
     } else
     if (e == se_query_del)
     {
@@ -599,6 +600,7 @@ void TTrFa_mask::load_sheet()
 	{
 		TString tipocf, codcf, ocfpi;
 		int err = c.next(recimposte, ok, tipocf, codcf, ocfpi);
+
 		// Carico i clienti
 		TRectype cli = getCli(tipocf, codcf, ocfpi);
 		

src/tf/tf0102.cpp

@@ -56,8 +56,14 @@ int TTrFa_cursors::next(TAssoc_array& recimposte, bool& ok, TString& tipocf, TSt
 TRectype TTrFa_cursors::_next(return_code& code, TString& tipocf, TString& codcf, TString& ocfpi)
 {
 	TString numMov = c_rmoviva->get("23.NUMREG").as_string();
+
 	// Record di ritorno
 	TRectype retRec(LF_TRASFATT);
+	
+	// Variabile di appoggio per forzare il controllo sui movimenti nuovi,
+	//  così facendo riesco a entrare nel ciclo sotto. Prima c'era un else
+	bool newMov = _newMov;
+
 	// Controllo che non sia il primo record del movimento
 	if(_newMov)
 	{
@@ -66,7 +72,9 @@ TRectype TTrFa_cursors::_next(return_code& code, TString& tipocf, TString& codcf
 		codcf		= c_rmoviva->get("23.CODCF").as_string();
 		ocfpi		= c_rmoviva->get("23.OCFPI").as_string();
 	}
-	else
+
+	// Se non è un movimento o il controllo fallisce mi sposto
+	if(!newMov || !checkRecord(c_rmoviva))
 	{
 		TString codiva;
 		do