Patch level : 12.0 430
Files correlati : tf Commento : Corretta logica FLAG_FORZATO e FLAG_ERRORE git-svn-id: svn://10.65.10.50/branches/R_10_00@24037 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
		
							parent
							
								
									028b14c0df
								
							
						
					
					
						commit
						cd683ff589
					
				@ -185,7 +185,7 @@ BEGIN
 | 
			
		||||
  ITEM "Forzata@10"
 | 
			
		||||
  ITEM "N.\nRegistraz.@10"
 | 
			
		||||
  ITEM "Codici Errori@10"
 | 
			
		||||
  DEFAULT "*"  // Impedisce il salvataggio su profilo .ini
 | 
			
		||||
 | 
			
		||||
END
 | 
			
		||||
 | 
			
		||||
ENDPAGE
 | 
			
		||||
@ -204,10 +204,10 @@ END
 | 
			
		||||
LIST A_INVIO 1 15
 | 
			
		||||
BEGIN
 | 
			
		||||
  PROMPT 1 10 "Da inviare"
 | 
			
		||||
  ITEM "X|Da Inviare"
 | 
			
		||||
  ITEM "N|Disabilitato"
 | 
			
		||||
  ITEM "F|Forzato"
 | 
			
		||||
  ITEM "E|Errato"
 | 
			
		||||
  ITEM "X|X, Da Inviare"
 | 
			
		||||
  ITEM "N|N, Disabilitato"
 | 
			
		||||
  ITEM "F|F, Forzato"
 | 
			
		||||
  ITEM "E|E, Errato"
 | 
			
		||||
  FIELD INVIO
 | 
			
		||||
END
 | 
			
		||||
 | 
			
		||||
 | 
			
		||||
@ -305,7 +305,9 @@ bool TTrFa_mask::on_field_event(TOperable_field& o, TField_event e, long jolly)
 | 
			
		||||
				o.mask().set(A_FORZATA, true);
 | 
			
		||||
			else
 | 
			
		||||
			{
 | 
			
		||||
				changeInvio(o.mask().get(A_TIPOCF), o.mask().get(A_CODCF), o.mask().get(A_NUMDOC), o.mask().get(A_INVIO));
 | 
			
		||||
				TString invio = o.mask().get(A_INVIO);
 | 
			
		||||
				if(invio != FLAG_FORZATO || invio != FLAG_ERRORE)
 | 
			
		||||
					changeInvio(o.mask().get(A_TIPOCF), o.mask().get(A_CODCF), o.mask().get(A_NUMDOC), invio);
 | 
			
		||||
			}
 | 
			
		||||
    }
 | 
			
		||||
	}
 | 
			
		||||
@ -580,14 +582,15 @@ TRecnotype TTrFa_mask::nuovo_progr() const
 | 
			
		||||
void TTrFa_mask::changeInvio(TString tipocf, TString codcf, TString numdoc, TString invio) const
 | 
			
		||||
{
 | 
			
		||||
	TSheet_field& sheet = sfield(F_RIGHE);
 | 
			
		||||
	TString rtipo, rcod, rnum;
 | 
			
		||||
	TString rtipo, rcod, rnum, rinvio;
 | 
			
		||||
	FOR_EACH_SHEET_ROW(sheet, r, strarr)
 | 
			
		||||
	{
 | 
			
		||||
		// Ricevo i parametri della riga
 | 
			
		||||
		rtipo.cut(0); rtipo << strarr->get_char(_tipocf);
 | 
			
		||||
		rcod.cut(0);	rcod	<< strarr->get_int(_codcf);
 | 
			
		||||
		rnum.cut(0);	rnum	<< strarr->get(_numdoc);
 | 
			
		||||
		if(tipocf == rtipo && codcf == rcod && rnum == numdoc)
 | 
			
		||||
		rinvio.cut(0);	rinvio	<< strarr->get(_invio);
 | 
			
		||||
		if(rinvio != FLAG_FORZATO && invio != FLAG_ERRORE && tipocf == rtipo && codcf == rcod && rnum == numdoc)
 | 
			
		||||
		{
 | 
			
		||||
			strarr->add(invio, _invio);
 | 
			
		||||
			// Aggiorno la riga
 | 
			
		||||
 | 
			
		||||
		Loading…
	
	
			
			x
			
			
		
	
		Reference in New Issue
	
	Block a user