root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Patch level :5.0

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :importazione movimenti di budget con fase e controlli!


git-svn-id: svn://10.65.10.50/trunk@16710 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca 2008-06-10 14:26:46 +00:00
parent 4f3b3bb920
commit bcf75e7bb5
1 changed files with 49 additions and 48 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

97
crpa/crpa1.cpp
View File

@ -143,6 +143,7 @@ protected:
void movana_killer(const TAssoc_array& elenco, const bool kill_all); void movana_killer(const TAssoc_array& elenco, const bool kill_all);
void transfer_movimento(const TArray& righe, TLog_report& log); void transfer_movimento(const TArray& righe, TLog_report& log);
const TString& ana2bill(const TString& contone) const; const TString& ana2bill(const TString& contone) const;
const TDate str2date(const TString& stringdata);
long get_next_key(); long get_next_key();
@ -191,6 +192,24 @@ const TString& TBudget_Import::ana2bill(const TString& contone) const
return tmp; return tmp;
} }
const TDate TBudget_Import::str2date(const TString& stringdata)
{
const int stringdata_len = stringdata.len();
TString4 gg = stringdata.left(2);
TString4 mm = stringdata.mid(3,2);
TString4 yy;
if (stringdata_len == 8) //se la data ha 8 caratteri (es. 12/06/08)...
{
yy = stringdata.right(2);
yy.insert("20", 0);
}
else //se invece ne ha 10 (es.12/06/2008)...
yy = stringdata.right(4);
const TDate data(atoi(gg),atoi(mm),atoi(yy));
return data;
}
//metodo di bassa lega che scrive veramente i movimenti analitici sui file movana e rmovana //metodo di bassa lega che scrive veramente i movimenti analitici sui file movana e rmovana
void TBudget_Import::transfer_movimento(const TArray& righe, TLog_report& log) void TBudget_Import::transfer_movimento(const TArray& righe, TLog_report& log)
{ {
@ -207,43 +226,16 @@ void TBudget_Import::transfer_movimento(const TArray& righe, TLog_report& log)
if (rec_cms.empty()) if (rec_cms.empty())
{ {
TString errore; TString errore;
errore << "La commessa " << codcms << " NON esiste!"; errore << "La commessa " << codcms << " non esiste";
log.log(2, errore); log.log(2, errore);
} }
const TString16 str_dataini = curr.get(4);
const TString16 str_datafine = curr.get(5);
//Controllo del formato date! //Controllo del formato date!
//Preso atto che il nostro invincibile fuhrer cambia formato date ad ogni importazione, proviamo a.. //Preso atto che il nostro invincibile fuhrer cambia formato date ad ogni importazione, proviamo a..
//..rendere piu' intelligente il povero programma //..rendere piu' intelligente il povero programma
const int dataini_len = str_dataini.len(); const TDate dataini = str2date(curr.get(4));
TString4 gg = str_dataini.left(2);
TString4 mm = str_dataini.mid(3,2);
TString4 yy;
if (dataini_len == 8) //se la data ha 8 caratteri (es. 12/06/08)...
{
yy = str_dataini.right(2);
yy.insert("20", 0);
}
else //se invece ne ha 10 (es.12/06/2008)...
yy = str_dataini.right(4);
const TDate dataini(atoi(gg),atoi(mm),atoi(yy));
const int annoes = dataini.year(); const int annoes = dataini.year();
const TDate datafine = str2date(curr.get(5));
const int datafine_len = str_datafine.len();
gg = str_datafine.left(2);
mm = str_datafine.mid(3,2);
if (datafine_len == 8)
{
yy = str_datafine.right(2);
yy.insert("20", 0);
}
else
yy = str_datafine.right(4);
const TDate datafine(atoi(gg),atoi(mm),atoi(yy));
//cerca il primo posto libero in movana //cerca il primo posto libero in movana
long numreg = get_next_key(); long numreg = get_next_key();
@ -286,7 +278,7 @@ void TBudget_Import::transfer_movimento(const TArray& righe, TLog_report& log)
if (rec_fase.empty()) if (rec_fase.empty())
{ {
TString errore; TString errore;
errore << "La fase " << fase << " NON esiste legata alla commessa" << codcms << "!"; errore << "La fase " << fase << " non esiste legata alla commessa" << codcms << "";
log.log(2, errore); log.log(2, errore);
} }
} //fase.full... } //fase.full...
@ -300,7 +292,7 @@ void TBudget_Import::transfer_movimento(const TArray& righe, TLog_report& log)
if (rec_sede.empty()) if (rec_sede.empty())
{ {
TString errore; TString errore;
errore << "La sede " << sede << " NON esiste!"; errore << "La sede " << sede << " non esiste";
log.log(2, errore); log.log(2, errore);
} }
} }
@ -318,7 +310,7 @@ void TBudget_Import::transfer_movimento(const TArray& righe, TLog_report& log)
if (items <= 0) if (items <= 0)
{ {
TString errore; TString errore;
errore << "Il sottoconto " << codconto << " NON esiste!"; errore << "Il sottoconto " << codconto << " non esiste";
log.log(2, errore); log.log(2, errore);
} }
@ -331,11 +323,11 @@ void TBudget_Import::transfer_movimento(const TArray& righe, TLog_report& log)
pconana.move_last(); //si posiziona sul record corretto pconana.move_last(); //si posiziona sul record corretto
const TString& contone = pconana.get(PCONANA_CODCONTO).as_string(); const TString& contone = pconana.get(PCONANA_CODCONTO).as_string();
const TString& contcon = ana2bill(contone); const TString contcon = ana2bill(contone);
if (contcon.empty()) if (contcon.empty())
{ {
TString errore; TString errore;
errore << "Il conto analitico " << contone << " non corrisponde ad alcun conto contabile!"; errore << "Il conto analitico " << contone << " non corrisponde ad alcun conto contabile";
log.log(2, errore); log.log(2, errore);
} }
//deve stabilire se la sezione e' D o A in base all'indbil del conto analitico //deve stabilire se la sezione e' D o A in base all'indbil del conto analitico
@ -347,7 +339,7 @@ void TBudget_Import::transfer_movimento(const TArray& righe, TLog_report& log)
else else
{ {
TString errore; TString errore;
errore << "Il conto analitico " << contone << " non ha un indicatore di bilancio!"; errore << "Il conto analitico " << contone << " non ha un indicatore di bilancio";
log.log(2, errore); log.log(2, errore);
} }
//incrementa l'importo totlae del documento in base a quanto trovato su questa riga //incrementa l'importo totlae del documento in base a quanto trovato su questa riga
@ -355,15 +347,15 @@ void TBudget_Import::transfer_movimento(const TArray& righe, TLog_report& log)
totdoc += imp_riga; totdoc += imp_riga;
//controllo sulle date //controllo sulle date
const TString16 curr_str_dataini = curr.get(4); const TDate curr_dataini = str2date(curr.get(4));
const TString16 curr_str_datafine = curr.get(5); const TDate curr_datafine = str2date(curr.get(5));
if (curr_str_dataini != str_dataini) if (curr_dataini != dataini)
{ {
TString errore; TString errore;
errore << "La commessa " << codcms << " ha movimenti con date inizio competenza incongruenti"; errore << "La commessa " << codcms << " ha movimenti con date inizio competenza incongruenti";
log.log(1, errore); log.log(1, errore);
} }
if (curr_str_datafine != str_datafine) if (curr_datafine != datafine)
{ {
TString errore; TString errore;
errore << "La commessa " << codcms << " ha movimenti con date fine competenza incongruenti"; errore << "La commessa " << codcms << " ha movimenti con date fine competenza incongruenti";
@ -451,7 +443,7 @@ void TBudget_Import::movana_killer(const TAssoc_array& elenco, const bool kill_a
void TBudget_Import::elabora_input(const TFilename& file, TLog_report& log) void TBudget_Import::elabora_input(const TFilename& file, TLog_report& log)
{ {
//array con le commesse da accoppare //array con le commesse da accoppare
TAssoc_array commesse; TAssoc_array movimenti, commesse;
//per cominciare apre il file di input //per cominciare apre il file di input
const long dimension = fsize(file); const long dimension = fsize(file);
@ -460,23 +452,32 @@ void TBudget_Import::elabora_input(const TFilename& file, TLog_report& log)
_trasfile->open(file,'r'); _trasfile->open(file,'r');
TRecord_text curr; TRecord_text curr;
TToken_string key;
TString codcms; TString codcms;
TProgind pi(dimension, TR("Lettura file di input in corso...")); TProgind pi(dimension, TR("Lettura file di input in corso..."));
//crea un assoc_array di array (e la madona!!!) in cui la chiave e' il codice commessa e gli elementi.. //crea un assoc_array di array (e la madona!!!) in cui la chiave e' il codice commessa|dataini|datafine..
//..sono array con le righe del file di input (con la stessa commessa ma fase\conto etc. diversi) //..e gli elementi sono array con le righe del file di input (con la stessa key ma fase\conto etc. diversi)
while (_trasfile->read(curr) == NOERR) while (_trasfile->read(curr) == NOERR)
{ {
pi.setstatus(_trasfile->read_file()->tellg()); pi.setstatus(_trasfile->read_file()->tellg());
codcms = curr.get(0); codcms = curr.get(0);
codcms.replace('_', '/'); codcms.replace('_', '/');
key = codcms;
TArray* righe = (TArray*)commesse.objptr(codcms); //date
const TString16 str_dataini = curr.get(4);
key.add(str_dataini);
const TString16 str_datafine = curr.get(5);
key.add(str_datafine);
TArray* righe = (TArray*)movimenti.objptr(key);
if (righe == NULL) if (righe == NULL)
{ {
righe = new TArray; righe = new TArray;
commesse.add(codcms, righe); movimenti.add(key, righe);
commesse.add(codcms); //commesse e' l'assoc_array di supporto che si usa nella cancellazione
} }
righe->add(curr); righe->add(curr);
} }
@ -492,9 +493,9 @@ void TBudget_Import::elabora_input(const TFilename& file, TLog_report& log)
_codcaus = _msk->get(F_COD_CAUS); _codcaus = _msk->get(F_COD_CAUS);
//scrittura dei record memorizzati sui files di testata e righe dei movimenti analitici //scrittura dei record memorizzati sui files di testata e righe dei movimenti analitici
const int items = commesse.items(); const int items = movimenti.items();
TProgind pi(items, "Generazione movimenti preventivi in corso..."); TProgind pi(items, "Generazione movimenti preventivi in corso...");
FOR_EACH_ASSOC_OBJECT(commesse, obj, key, itm) FOR_EACH_ASSOC_OBJECT(movimenti, obj, key, itm)
{ {
pi.addstatus(1); pi.addstatus(1);
TArray* righe = (TArray*)itm; TArray* righe = (TArray*)itm;