Patch level : 10.0 patch 415

Files correlati     : lv2
Ricompilazione Demo : [ ]
Commento            :
Eliminati report per evitare errori durante l'esecuzione (???)


git-svn-id: svn://10.65.10.50/trunk@19206 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca83 2009-08-18 15:53:40 +00:00
parent 847fe54258
commit 55027b4d99
2 changed files with 21 additions and 64 deletions

View File

@ -48,8 +48,8 @@ class TGenera_documenti_app : public TSkeleton_application
private:
//Metodi per la generazione dei documenti
bool crea_documento(const TISAM_recordset& plan, TLog_report& rep);
void crea_riga(const TString& codart, const char modpas, const int tplis, const bool tmp, const bool prinbo,TDocumento& doc, TLog_report& rep);
bool crea_documento(const TISAM_recordset& plan);
void crea_riga(const TString& codart, const char modpas, const int tplis, const bool tmp, const bool prinbo,TDocumento& doc);
//Metodi per il recupero di codnum, tpdoc, stato
bool numerazione_ddt(TString& codnum, TString& tpdoc, TString& statoi, TString& statof) const;
bool numerazione_drit(const int cod, TString& codnum, TString& tpdoc, TString& statoi, TString& statof) const;
@ -63,7 +63,7 @@ private:
//Metodo per il calcolo delle quantità in bolla
void calcolo_quantita(const TDocumento& doc, const char ritoant);
//Metodi aggiornare il conguaglio sui contratti
void aggiorna_conguaglio(const long codcli, const long codcont, const TString& codart, const real arr) const;
void aggiorna_conguaglio(TRectype& rcondv, const real arr) const;
protected:
virtual bool create();
@ -111,7 +111,7 @@ bool TGenera_documenti_app::destroy()
///////////////////////////////////////////////////////
//CREA_DOCUMENTO: metodo che crea un nuovo documento di trasporto dai dati salvati
bool TGenera_documenti_app::crea_documento(const TISAM_recordset& plan, TLog_report& rep)
bool TGenera_documenti_app::crea_documento(const TISAM_recordset& plan)
{
//recupero i dati di interesse dalla maschera
const TDate datagen(TODAY);
@ -159,7 +159,7 @@ bool TGenera_documenti_app::crea_documento(const TISAM_recordset& plan, TLog_rep
//creo il documento corretto riempiendo i campi che già conosco
TDocumento doc('D',anno,codnum,0);
doc.put(DOC_TIPODOC, tpdoc);
doc.write();
//doc.write();
//calcola tutte le quantità riportate sui documenti di ritiro, sui documenti di anticipo e sulle bolle di consegna
//...eventualmente modificate a mano
@ -197,7 +197,7 @@ bool TGenera_documenti_app::crea_documento(const TISAM_recordset& plan, TLog_rep
FOR_EACH_ASSOC_OBJECT(_quantita,h,codart,obj)
{
crea_riga(codart, modpas, tplis, false, prinbo, doc, rep);
crea_riga(codart, modpas, tplis, false, prinbo, doc);
/*const TDate dadata = rcont.get(LVRCONDV_INDTTMP).as_date();
const TDate adata = rcont.get(LVRCONDV_FIDTTMP).as_date();
@ -206,7 +206,7 @@ bool TGenera_documenti_app::crea_documento(const TISAM_recordset& plan, TLog_rep
}
if (doc.rows() > 0)
err = doc.rewrite();
err = doc.write();
else
doc.remove();
@ -224,7 +224,7 @@ bool TGenera_documenti_app::crea_documento(const TISAM_recordset& plan, TLog_rep
}
//CREA_RIGA: questa funzione crea una riga merce per una bolla di consegna
void TGenera_documenti_app::crea_riga(const TString& codart, const char modpas, const int tplis, const bool tmp, const bool prinbo, TDocumento& doc, TLog_report& rep)
void TGenera_documenti_app::crea_riga(const TString& codart, const char modpas, const int tplis, const bool tmp, const bool prinbo, TDocumento& doc)
{
const int perarr = _configlv->get_int("Perarr");
@ -298,7 +298,7 @@ void TGenera_documenti_app::crea_riga(const TString& codart, const char modpas,
rdoc.put(RDOC_CODAGG1, causale); //causale presa dalla configurazione
//aggiorno il conguaglio sulla riga del contratto
aggiorna_conguaglio(codcli, codcont, codart, quantita_arr - quantita_noarr);
aggiorna_conguaglio((TRectype&)rcont, quantita_arr - quantita_noarr);
//elaborazione sul prezzo da utilizzare
real prezzo;
@ -388,17 +388,6 @@ void TGenera_documenti_app::crea_riga(const TString& codart, const char modpas,
rdoc.put(RDOC_CODMAG, magazzino);
rdoc.put(RDOC_CODMAGC, magazzinoc);
//se il record di riga contratto è vuoto aggiorno il log
if (rcont.empty())
{
TString str;
str << "L'articolo " << codart << " inserito nel documento " << doc.get(DOC_CODNUM) << "-" << doc.get(DOC_TIPODOC)
<< " numero " << doc.get(DOC_NDOC) << " in quantità " << quantita_arr
<< "non è prsente sul contratto del cliente " << codcli;
rep.log(1, str);
}
}
//////////////////////////////////////////////////////////////
@ -747,17 +736,11 @@ void TGenera_documenti_app::calcolo_quantita(const TDocumento& doc, const char r
//////////////////////////////////////////////////////////////
//AGGIORNA_CONGUAGLIO: questa funzione aggiorna il parametro conguaglio sulla riga del contratto
void TGenera_documenti_app::aggiorna_conguaglio(const long codcli, const long codcont, const TString& codart, const real arr) const
void TGenera_documenti_app::aggiorna_conguaglio(TRectype& rcondv, const real arr) const
{
TLocalisamfile rcondv(LF_LVRCONDV);
rcondv.put(LVRCONDV_CODCF,codcli);
rcondv.put(LVRCONDV_CODCONT,codcont);
rcondv.put(LVRCONDV_CODART,codart);
if (rcondv.read() == NOERR)
{
rcondv.put(LVRCONDV_QTACONG,arr);
rcondv.rewrite();
}
TLocalisamfile rcont(LF_LVRCONDV);
rcondv.put(LVRCONDV_QTACONG,arr);
rcondv.rewrite(rcont);
}
////////////////////////////////
@ -783,9 +766,6 @@ bool TGenera_documenti_app::transfer()
TString4 statof;
// bool err;
TLog_report rep("Articoli non in contratto");
rep.kill_duplicates();
numerazione_drit(0, codnum, tpdoc, statoi, statof);
//instanzio un recordset che contiene tutti i documenti di interesse
@ -849,16 +829,11 @@ bool TGenera_documenti_app::transfer()
{
_quantita.destroy();
_quantita_ritirata.destroy();
crea_documento(plan, rep);
crea_documento(plan);
}
}
TReport_book buc;
buc.add(rep);
if (buc.pages() > 0)
buc.preview();
else
message_box(TR("Generazione terminata"));
message_box(TR("Generazione terminata"));
return true;
}
void TGenera_documenti_app::main_loop()

View File

@ -127,7 +127,7 @@ TObject* TAcquisizione_cache::key2obj(const char* key)
doc->put("DATACON", datadoc); //data conteggio
doc->put("DATAGEN", datagen); //data generazione del documento
doc->put("DATAPRCO", dataprco); //data prevista consegna
doc->write(); // Scrivo subito per prenotare il numero documento
//doc->write(); // Scrivo subito per prenotare il numero documento
}
return doc;
}
@ -164,7 +164,7 @@ protected:
virtual bool create();
virtual bool destroy();
void elabora_file(const TString& file, bool new_file, TLog_report &rep);
void elabora_file(const TString& file, bool new_file);
public:
@ -192,7 +192,7 @@ bool TAcquisizione_lavanderie_app::destroy()
}
//ELABORA_FILE: metodo che effettivamente fa l'elaborazione del file, creando i documenti
void TAcquisizione_lavanderie_app::elabora_file(const TString& file, bool new_file, TLog_report &rep)
void TAcquisizione_lavanderie_app::elabora_file(const TString& file, bool new_file)
{
TAcquisizione_cache ca;
@ -277,16 +277,6 @@ void TAcquisizione_lavanderie_app::elabora_file(const TString& file, bool new_fi
default: return;
}
}
else
{
if (!doc.get_date("DATAPRCO").ok())
{
TString msg;
msg << TR("Il documento ") << doc.get(DOC_NDOC) << TR(" del ") << doc.get(DOC_DATADOC)
<< TR(" del cliente ") << codcf << TR(" non ha data di prevista consegna.");
rep.log(1,msg);
}
}
//se voglio sovrascrivere i file, e non l'ho mai cancellato, allora svuotalo effettivamente
const TString8 numdoc = doc.get(DOC_NDOC);
@ -364,9 +354,6 @@ bool TAcquisizione_lavanderie_app::transfer()
const TString& path = _msk->get(F_PATH);
TSheet_field& sheet = _msk->sfield(F_SHEET_NAME);
TFilename file;
TLog_report logrep("Aquisizione da contapezzi");
logrep.kill_duplicates(true);
//per ogni riga dello sheet, leggo il suo contenuto, se contiene dei caratteri jolly
//preparo la lista dei file che soddisfano la maschera in quella directory e li elaboro
@ -389,19 +376,14 @@ bool TAcquisizione_lavanderie_app::transfer()
list_files(file, lista_file);
FOR_EACH_ARRAY_ROW(lista_file, r2, row2)
elabora_file(*row2, true, logrep);
elabora_file(*row2, true);
}
else
elabora_file(file, true, logrep);
elabora_file(file, true);
}
}
TReport_book buc;
buc.add(logrep);
if (buc.pages() > 0)
buc.preview();
else
message_box(TR("Generazione terminata"));
message_box(TR("Generazione terminata"));
return true;
}