Patch level : 10.0 no patch
Files correlati : ps0713.exe Ricompilazione Demo : [ ] Commento E' possibile ora copiare file da e verso ftp. git-svn-id: svn://10.65.10.50/branches/R_10_00@21019 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
		
							parent
							
								
									b872eeb0d5
								
							
						
					
					
						commit
						d9c82c675c
					
				@ -117,13 +117,13 @@ void TImporta_fat_for_app::scan_file(TVB_recset& file, TAssoc_array& righean, TA
 | 
			
		||||
      righean.add(keyan, imp);
 | 
			
		||||
 | 
			
		||||
    //riempio l'array della contabilità generale
 | 
			
		||||
    if(righecg.is_key((TString)idlavoro))
 | 
			
		||||
    if(righecg.is_key(keyan.contostr()))
 | 
			
		||||
    {
 | 
			
		||||
      real& imponibile = *(real*)righecg.objptr((TString)idlavoro);
 | 
			
		||||
      real& imponibile = *(real*)righecg.objptr(keyan.contostr());
 | 
			
		||||
      imponibile += imp;
 | 
			
		||||
    }
 | 
			
		||||
    else
 | 
			
		||||
      righecg.add((TString)idlavoro, imp);
 | 
			
		||||
      righecg.add(keyan.contostr(), imp);
 | 
			
		||||
  }
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
@ -362,8 +362,6 @@ void TImporta_fat_for_app::importa_fat(TAssoc_array& righecg, TCommessa_string&
 | 
			
		||||
    if (!pi.addstatus(1)) 
 | 
			
		||||
		  break;
 | 
			
		||||
 | 
			
		||||
    TString80 idlav(keyar1);
 | 
			
		||||
    
 | 
			
		||||
    real& imp = *(real*)itm1;  imp.round(2);
 | 
			
		||||
		
 | 
			
		||||
		if (!imp.is_zero())
 | 
			
		||||
@ -377,16 +375,15 @@ void TImporta_fat_for_app::importa_fat(TAssoc_array& righecg, TCommessa_string&
 | 
			
		||||
 | 
			
		||||
      real rimposta = imp * iva / CENTO;  rimposta.round(2);
 | 
			
		||||
      
 | 
			
		||||
      TCommessa comm(idlav);
 | 
			
		||||
      TCommessa_string cmsstr = comm.cmsstr();
 | 
			
		||||
      TToken_string bill(keyar1);
 | 
			
		||||
 | 
			
		||||
      configfile->set(RMI_ANNOES,     anno);
 | 
			
		||||
      configfile->set(RMI_IMPONIBILE, importo.valore().string());
 | 
			
		||||
      configfile->set(RMI_CODIVA,     codiva);
 | 
			
		||||
      configfile->set(RMI_IMPOSTA,    rimposta.string());
 | 
			
		||||
      configfile->set(RMI_GRUPPO,     cmsstr.gruppo());
 | 
			
		||||
      configfile->set(RMI_CONTO,      cmsstr.conto());
 | 
			
		||||
      configfile->set(RMI_SOTTOCONTO, cmsstr.sotco());
 | 
			
		||||
      configfile->set(RMI_GRUPPO,     bill.get(0));
 | 
			
		||||
      configfile->set(RMI_CONTO,      bill.get(1));
 | 
			
		||||
      configfile->set(RMI_SOTTOCONTO, bill.get(2));
 | 
			
		||||
      configfile->set(RMI_TIPOATT,    1);
 | 
			
		||||
    }
 | 
			
		||||
  }
 | 
			
		||||
@ -475,7 +472,6 @@ void TImporta_fat_for_app::importa_fat_ric(TAssoc_array& righecg, TCommessa_stri
 | 
			
		||||
    if (!pi.addstatus(1)) 
 | 
			
		||||
		  break;
 | 
			
		||||
 | 
			
		||||
    TString80 idlav(keyar);
 | 
			
		||||
    real& imp = *(real*)itm;  imp.round(2);
 | 
			
		||||
		
 | 
			
		||||
		if (!imp.is_zero())
 | 
			
		||||
@ -489,15 +485,15 @@ void TImporta_fat_for_app::importa_fat_ric(TAssoc_array& righecg, TCommessa_stri
 | 
			
		||||
 | 
			
		||||
      const real rimposta = imp * iva / CENTO;
 | 
			
		||||
 | 
			
		||||
      const TCommessa cms(idlav);
 | 
			
		||||
      TCommessa_string cmsstr = cms.cmsstr();
 | 
			
		||||
      TToken_string bill(keyar);
 | 
			
		||||
 | 
			
		||||
 | 
			
		||||
      configfile->set(RMV_ANNOES,     anno);
 | 
			
		||||
      configfile->set(RMV_SEZIONE,    causale2.get("SEZIONE"));
 | 
			
		||||
      configfile->set(RMV_IMPORTO,    importo.valore().string());
 | 
			
		||||
      configfile->set(RMV_GRUPPO,     cmsstr.gruppo());
 | 
			
		||||
      configfile->set(RMV_CONTO,      cmsstr.conto());
 | 
			
		||||
      configfile->set(RMV_SOTTOCONTO, cmsstr.sotco());
 | 
			
		||||
      configfile->set(RMV_GRUPPO,     bill.get(0));
 | 
			
		||||
      configfile->set(RMV_CONTO,      bill.get(1));
 | 
			
		||||
      configfile->set(RMV_SOTTOCONTO, bill.get(2));
 | 
			
		||||
    }
 | 
			
		||||
  }
 | 
			
		||||
 | 
			
		||||
@ -572,20 +568,17 @@ bool TImporta_fat_for_app::transfer()
 | 
			
		||||
  TAssoc_array righecg;  
 | 
			
		||||
  TCommessa_string kmax;
 | 
			
		||||
 | 
			
		||||
  for(int i = F_NAME1; i <= F_NAME2; i++)
 | 
			
		||||
  if(_msk->get(F_NAME1).full())
 | 
			
		||||
  {
 | 
			
		||||
    if(_msk->get(i).full())
 | 
			
		||||
    esiste = true;
 | 
			
		||||
 | 
			
		||||
    TFilename name = path;
 | 
			
		||||
    name.add(_msk->get(F_NAME1));
 | 
			
		||||
 | 
			
		||||
    if(name.exist())
 | 
			
		||||
    {
 | 
			
		||||
      esiste = true;
 | 
			
		||||
 | 
			
		||||
      TFilename name = path;
 | 
			
		||||
      name.add(_msk->get(i));
 | 
			
		||||
 | 
			
		||||
      if(name.exist())
 | 
			
		||||
      {
 | 
			
		||||
        trovato = true;
 | 
			
		||||
        importato = importa(name, righean, righecg);
 | 
			
		||||
      }
 | 
			
		||||
      trovato = true;
 | 
			
		||||
      importato = importa(name, righean, righecg);
 | 
			
		||||
    }
 | 
			
		||||
  }
 | 
			
		||||
 | 
			
		||||
 | 
			
		||||
@ -1,7 +1,6 @@
 | 
			
		||||
//campi maschera ps0713600a
 | 
			
		||||
#define F_PATH  			101
 | 
			
		||||
#define F_NAME1				102
 | 
			
		||||
#define F_NAME2				103
 | 
			
		||||
#define F_TIPOFAT     104
 | 
			
		||||
#define F_CODFOR      105
 | 
			
		||||
#define F_RAGSOC      106
 | 
			
		||||
 | 
			
		||||
@ -36,14 +36,6 @@ BEGIN
 | 
			
		||||
  CHECKTYPE NORMAL
 | 
			
		||||
END
 | 
			
		||||
 | 
			
		||||
STRING F_NAME2 50
 | 
			
		||||
BEGIN
 | 
			
		||||
  PROMPT 2 4 "File 2       "
 | 
			
		||||
  FSELECT "*.csv"
 | 
			
		||||
  FLAGS "B"
 | 
			
		||||
  CHECKTYPE NORMAL
 | 
			
		||||
END
 | 
			
		||||
 | 
			
		||||
GROUPBOX DLG_NULL 78 10
 | 
			
		||||
BEGIN
 | 
			
		||||
  PROMPT 1 6 "@bParametri documento"
 | 
			
		||||
 | 
			
		||||
@ -32,6 +32,15 @@ const long TCommessa_string::sotco()
 | 
			
		||||
  return get_long(3);
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
const TString16 TCommessa_string::contostr()
 | 
			
		||||
{
 | 
			
		||||
	TString & str = get_tmp_string(24);
 | 
			
		||||
 | 
			
		||||
	str.format("%d|%d|%ld", gruppo(), conto(), sotco());
 | 
			
		||||
  return str;
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
 | 
			
		||||
//metodo costruttore
 | 
			
		||||
TCommessa_string::TCommessa_string(const char* idlavoro, const int gruppo, const int conto, const long sotco)
 | 
			
		||||
{
 | 
			
		||||
 | 
			
		||||
@ -21,6 +21,7 @@ public:
 | 
			
		||||
  const int       gruppo();
 | 
			
		||||
  const int       conto();
 | 
			
		||||
  const long      sotco();
 | 
			
		||||
	const TString16 contostr();
 | 
			
		||||
  
 | 
			
		||||
  TCommessa_string& operator= (const char* key){ set(key); return *this; }
 | 
			
		||||
 | 
			
		||||
 | 
			
		||||
		Loading…
	
	
			
			x
			
			
		
	
		Reference in New Issue
	
	Block a user