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

Patch level : 10.0 patch ???

Browse Source 
Files correlati     : lv2
Ricompilazione Demo : [ ]
Commento            :
Correzioni segnalazioni mail di Tassan e Girardi


git-svn-id: svn://10.65.10.50/branches/R_10_00@21939 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca83 2011-04-13 10:32:37 +00:00
parent 0e8af67b13
commit 06e0e98f87
1 changed files with 27 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
lv/lv2500.cpp
View File

@ -53,7 +53,7 @@ class TFatturazione_lav_app: public TSkeleton_application
protected: protected:
virtual void main_loop(); virtual void main_loop();
void genera_bolle_nolo(TAssoc_array& cliela, TFatturazione_lavanderie& elab, int& numdocgen, real & totimp, real &imposta, real & totdoc, real & spese); void genera_bolle_nolo(TAssoc_array& cliela, TFatturazione_lavanderie& elab, int& numdocgen, real& totimp, real& imposta, real& totdoc, real& spese);
bool controlli_preliminari(); bool controlli_preliminari();
bool copy_file(const TFilename& src, const TFilename& dst) const; bool copy_file(const TFilename& src, const TFilename& dst) const;
bool copy_tree(const char* src_study, const char* dst_study) const; bool copy_tree(const char* src_study, const char* dst_study) const;
@ -270,6 +270,8 @@ void TFatturazione_lavanderie::pre_process_input(TLista_documenti& doc_in)
} }
} }
//aggiunge una riga fittizia al documento con qta a zero per gli articoli per cui è previsto il forfait
//e che non sono stati consegnati
void TFatturazione_lavanderie::aggiorna_fattura(TDocumento& doc, int codcont) void TFatturazione_lavanderie::aggiorna_fattura(TDocumento& doc, int codcont)
{ {
const int nrows = doc.physical_rows(); const int nrows = doc.physical_rows();
@ -744,7 +746,7 @@ void TFatturazione_lavanderie::post_process(TLista_documenti& doc_out, TLista_do
TArticolo_lavanderie& artlav = cached_article_laundry(codart, 'C', clifo, use_indsp ? indsped : 0); TArticolo_lavanderie& artlav = cached_article_laundry(codart, 'C', clifo, use_indsp ? indsped : 0);
//estraggo il record corrispondente su LF_CLIFOGIAC //estraggo il record corrispondente su LF_CLIFOGIAC
const TRecmag_lavanderie& reclav = artlav.find_rec(annoes); const TRecmag_lavanderie& reclav = artlav.find_rec(annoes);
//se lo trovo e se il tipo dotazione è iniziale 'I', allora leggo la dotazione iniziale //se il tipo dotazione è iniziale 'I', allora leggo la dotazione iniziale
//dalle giacenze articolo per cliente, altrimenti leggo la dotazione odierna //dalle giacenze articolo per cliente, altrimenti leggo la dotazione odierna
if (tipodot == "I") if (tipodot == "I")
dot = reclav.get_real("DOTIN"); dot = reclav.get_real("DOTIN");
@ -894,7 +896,7 @@ void TFatturazione_lavanderie::post_process(TLista_documenti& doc_out, TLista_do
//CLICLAGGIO = DOT * PREZZO(dalla riga contratto) * MINIMO CICLAGGIO //CLICLAGGIO = DOT * PREZZO(dalla riga contratto) * MINIMO CICLAGGIO
const real qta = rout.get_real(RDOC_QTA); const real qta = rout.get_real(RDOC_QTA);
const real consumo = qta * rout.get_real(RDOC_PREZZO); const real consumo = qta * rout.get_real(RDOC_PREZZO);
const real ciclaggio = dot * rcont.get_real(LVRCONDV_PREZZO) * rcont.get_real(LVRCONDV_MINCIC); const real ciclaggio = dot * rcont.get_real(LVRCONDV_PREZZO) * rcont.get_real(LVRCONDV_MINCIC);
//se il consumo è minore del ciclaggio, allora //se il consumo è minore del ciclaggio, allora
if (consumo < ciclaggio) if (consumo < ciclaggio)
{ {
@ -970,7 +972,7 @@ void TFatturazione_lavanderie::post_process(TLista_documenti& doc_out, TLista_do
TArticolo_lavanderie& art = cached_article_laundry(codart, 'C', clifo, use_indsp ? indsped : 0); TArticolo_lavanderie& art = cached_article_laundry(codart, 'C', clifo, use_indsp ? indsped : 0);
//estraggo il record corrispondente su LF_CLIFOGIAC //estraggo il record corrispondente su LF_CLIFOGIAC
const TRecmag_lavanderie& rec = art.find_rec(annoes); const TRecmag_lavanderie& rec = art.find_rec(annoes);
//se lo trovo e se il tipo dotazione è iniziale 'I', allora leggo la dotazione iniziale //se il tipo dotazione è iniziale 'I', allora leggo la dotazione iniziale
//dalle giacenze articolo per cliente, altrimenti leggo la dotazione odierna //dalle giacenze articolo per cliente, altrimenti leggo la dotazione odierna
if (tipodot == "I") if (tipodot == "I")
dot = rec.get_real("DOTIN"); dot = rec.get_real("DOTIN");
@ -1691,7 +1693,7 @@ TFatturazione_msk::TFatturazione_msk():TAutomask("lv2500a")
///////////////////////////////////// /////////////////////////////////////
//GENERA_BOLLE_NOLO: metodo che genera le fatture di solo nolo per quei clienti a cui non è stato consegnato niente //GENERA_BOLLE_NOLO: metodo che genera le fatture di solo nolo per quei clienti a cui non è stato consegnato niente
void TFatturazione_lav_app::genera_bolle_nolo(TAssoc_array& cliela, TFatturazione_lavanderie& elab, int& numdocgen, real & totimp, real &imposta, real & totdoc, real & spese) void TFatturazione_lav_app::genera_bolle_nolo(TAssoc_array& cliela, TFatturazione_lavanderie& elab, int& numdocgen, real& totimp, real& imposta, real& totdoc, real& spese)
{ {
TString4 codnum = ini_get_string(CONFIG_DITTA, "lv", "NUM_GEN"); TString4 codnum = ini_get_string(CONFIG_DITTA, "lv", "NUM_GEN");
TString4 tipodoc = ini_get_string(CONFIG_DITTA, "lv", "TIPODOC_GEN"); TString4 tipodoc = ini_get_string(CONFIG_DITTA, "lv", "TIPODOC_GEN");
@ -1868,8 +1870,11 @@ void TFatturazione_lav_app::genera_bolle_nolo(TAssoc_array& cliela, TFatturazion
rdoc.put(RDOC_CODART, riga.get(LVRCONDV_CODART)); rdoc.put(RDOC_CODART, riga.get(LVRCONDV_CODART));
rdoc.put(RDOC_CODARTMAG, riga.get(LVRCONDV_CODART)); rdoc.put(RDOC_CODARTMAG, riga.get(LVRCONDV_CODART));
rdoc.put(RDOC_QTA, UNO); real r = UNO;
rdoc.put(RDOC_QTAGG1, UNO); if(tipoforf == 3 || tipoforf == 4)
r = ZERO;
rdoc.put(RDOC_QTA, r);
rdoc.put(RDOC_QTAGG1, r);
rdoc.put(RDOC_PREZZO, riga.get_real(LVRCONDV_PREZNOL)); rdoc.put(RDOC_PREZZO, riga.get_real(LVRCONDV_PREZNOL));
rdoc.put(RDOC_CHECKED, true); rdoc.put(RDOC_CHECKED, true);
rdoc.put(RDOC_UMQTA, riga.get(LVRCONDV_UM)); rdoc.put(RDOC_UMQTA, riga.get(LVRCONDV_UM));
@ -2200,18 +2205,17 @@ void TFatturazione_lav_app::main_loop()
tmp << lastcli; tmp << lastcli;
cliela.add(tmp, tmp); cliela.add(tmp, tmp);
} }
else else if (!_solototali && docsout.items() == 0) //il messaggio deve comparire solo se non ho generato fatture
if (!_solototali) {
{ TToken_string key;
TString str; key.add('C');
TToken_string key; key.add(lastcli);
key.add('C'); TString str;
key.add(lastcli); str << "Cli." << lastcli << ' ' << cache().get(LF_CLIFO, key, CLI_RICALT) << " non ha generato la fattura pur avendo bolle";
str << "Cli." << lastcli << ' ' << cache().get(LF_CLIFO, key, CLI_RICALT) << " non ha generato la fattura pur avendo bolle"; _log->log(0, str);
_log->log(0, str); numdocscart++;
numdocscart++; }
}
docsout.destroy(-1); docsout.destroy(-1);
if (!_solototali) if (!_solototali)
docsin.rewrite(); docsin.rewrite();
@ -2492,16 +2496,16 @@ void TFatturazione_lav_app::main_loop()
message_box(TR("Elaborazione terminata")); message_box(TR("Elaborazione terminata"));
str = "Clienti Danneggati Articoli danneggiati"; str = "Clienti Danneggati Articoli danneggiati";
_log->log(0, str); _log->log(0, str);
str.format(" %5d %5d", elab.cli_damn(), elab.art_damn()); str.format(" %5d %5d", elab.cli_damn(), elab.art_damn());
_log->log(0, str); _log->log(0, str);
str = "Numero fatture Imponibile Imposta Totale Spese"; str = "Numero fatture Imponibile Imposta Totale Spese";
_log->log(0, str); _log->log(0, str);
str.format(" %5d", numdocgen); str.format(" %5d", numdocgen);
str << totimp.stringa(17) << imposta.stringa(15) << totdoc.stringa(15) << spese.stringa(13); str << totimp.stringa(17) << imposta.stringa(16) << totdoc.stringa(15) << spese.stringa(17);
_log->log(0, str); _log->log(0, str);
str = "Numero fatture scartate"; str = "Numero fatture scartate";
_log->log(0, str); _log->log(0, str);
str.format(" %5d", numdocscart); str.format(" %5d", numdocscart);
_log->log(0, str); _log->log(0, str);
_log->print_or_preview(); _log->print_or_preview();
delete _log; delete _log;