From 39d4c1c9b081ce61c0e5580f8ac0b5e5b54d078a Mon Sep 17 00:00:00 2001 From: alex Date: Wed, 10 Feb 2010 11:35:35 +0000 Subject: [PATCH] Patch level : 10.0 632 Files correlati : lv2.exe Ricompilazione Demo : [ ] Commento : NELLE FATTURE CHE HANNO IL CONGUAGLIO ESCE LA VOCE CONGUAGLIO CON UN CODICE ARTICOLO DEL CONTRATTO INVECE DI USCIRE SOLO UNA VOCE CONGUAGLIO AD ES. CLIENTI 682-723-1114 NEGLI ADDEBITI NON RIPORTA LA DESCRIZIONE ADDEBITI BIANCHERIA O ALTRA SPECIFICA PER DISTINGUERLI DAL NOLO (aagiunta la dicitura addebito capi biancheria ai rotti) git-svn-id: svn://10.65.10.50/trunk@20094 c028cbd2-c16b-5b4b-a496-9718f37d4682 --- lv/lv0300a.h | 3 +++ lv/lv0300a.uml | 29 ++++++++++++++++++++++++++--- lv/lv2500.cpp | 25 +++++++++++++++++++++++-- lv/lv2500a.uml | 6 ++++++ 4 files changed, 58 insertions(+), 5 deletions(-) diff --git a/lv/lv0300a.h b/lv/lv0300a.h index 2030c0ef7..69af4b086 100755 --- a/lv/lv0300a.h +++ b/lv/lv0300a.h @@ -85,6 +85,9 @@ #define F_PATH_PUL 266 #define F_FILE_PUL 267 +#define F_CODARTCOFIX 268 +#define F_DESARTCOFIX 269 + #define F_BACKUP 300 #define S_CODNUM_RIT 101 diff --git a/lv/lv0300a.uml b/lv/lv0300a.uml index ed7bd1f87..21ccccab9 100755 --- a/lv/lv0300a.uml +++ b/lv/lv0300a.uml @@ -722,7 +722,8 @@ BEGIN DISPLAY "Codice@20" CODART DISPLAY "Descrizione@50" DESCR OUTPUT F_CODARTFIX CODART - OUTPUT F_DESARTFIX DECSR + OUTPUT F_DESARTFIX DESCR + CHECKTYPE NORMAL END STRING F_DESARTFIX 50 28 @@ -743,6 +744,7 @@ BEGIN DISPLAY "Descrizione@50" DESCR OUTPUT F_CODARTCAFIX CODART OUTPUT F_DESARTCAFIX DESCR + CHECKTYPE NORMAL END STRING F_DESARTCAFIX 50 28 @@ -751,9 +753,30 @@ BEGIN FLAGS "D" END +STRING F_CODARTCOFIX 8 +BEGIN + PROMPT 1 19 "Art. per valore convenz." + FIELD Codartcofix + KEY 1 + FLAG "UG" + USE LF_ANAMAG + INPUT CODART F_CODARTCOFIX + DISPLAY "Codice@20" CODART + DISPLAY "Descrizione@50" DESCR + OUTPUT F_CODARTCOFIX CODART + OUTPUT F_DESARTCOFIX DESCR + CHECKTYPE NORMAL +END + +STRING F_DESARTCOFIX 50 28 +BEGIN + PROMPT 40 19 "" + FLAGS "D" +END + LISTBOX F_TIPOPR 1 19 BEGIN - PROMPT 1 19 "Tipo prezzo" + PROMPT 1 20 "Tipo prezzo" ITEM "0|Prezzo da contratto" ITEM "1|Prezzo da bolla" FIELD Tipopr @@ -761,7 +784,7 @@ END STRING F_UMPESO 3 BEGIN - PROMPT 40 19 "U.M. " + PROMPT 40 20 "U.M. " USE %UMS INPUT CODTAB F_UMPESO DISPLAY "Codice@6" CODTAB diff --git a/lv/lv2500.cpp b/lv/lv2500.cpp index 62bcf55ca..12b2de028 100755 --- a/lv/lv2500.cpp +++ b/lv/lv2500.cpp @@ -657,7 +657,8 @@ void TFatturazione_lavanderie::post_process(TLista_documenti& doc_out, TLista_do if (consumo < impconv) { const bool cicl2rig = contr.get_bool(LVCONDV_CICLAGGIO); - //se il ciclaggio è su due linee, allora aggiungo una riga merce, che contiene + + //se il ciclaggio è su due linee, allora aggiungo una riga merce, che contiene //il conguaglio al valore convenzionale, che ha come quantità la costante UNO //e come prezzo la differenza tra l'importo convenzionale e il consumo; //altimenti correggo quantità e prezzo direttamente sulla riga documento che sto analizzando @@ -665,12 +666,14 @@ void TFatturazione_lavanderie::post_process(TLista_documenti& doc_out, TLista_do { TRiga_documento& congrow = doc.insert_row(++i, "01"); doc.copy_data(congrow, rout); + congrow.put(RDOC_DESCR, "Conguaglio valore convenzionale"); congrow.put(RDOC_QTA, UNO); congrow.put(RDOC_PREZZO, impconv - consumo); } else { + rout.put(RDOC_DESCR, "Conguaglio valore convenzionale"); rout.put(RDOC_QTA, UNO); rout.put(RDOC_PREZZO, impconv); } @@ -724,7 +727,9 @@ void TFatturazione_lavanderie::post_process(TLista_documenti& doc_out, TLista_do if (consumotot < impconvtot) { const bool cicl2rig=contr.get_bool(LVCONDV_CICLAGGIO); - //se il ciclaggio è su due linee, allora aggiungo una riga merce, che contiene + const TString80 codartcon = ini_get_string(CONFIG_DITTA, "lv", "Codartcofix"); + + //se il ciclaggio è su due linee, allora aggiungo una riga merce, che contiene //il conguaglio al valore convenzionale, che ha come quantità la costante UNO //e come prezzo la differenza tra l'importo convenzionale totale e il consumo totale; //altimenti correggo quantità e prezzo direttamente sulla riga documento che sto analizzando @@ -734,12 +739,18 @@ void TFatturazione_lavanderie::post_process(TLista_documenti& doc_out, TLista_do { TRiga_documento& congrow=doc.insert_row(++i, "01"); doc.copy_data(congrow, rout); + congrow.put(RDOC_CODART, codartcon); + congrow.put(RDOC_CHECKED, "X"); + congrow.put(RDOC_CODARTMAG, codartcon); congrow.put(RDOC_DESCR, "Conguaglio valore convenzionale"); congrow.put(RDOC_QTA, UNO); congrow.put(RDOC_PREZZO, impconvtot - consumotot); } else { + rout.put(RDOC_CODART, codartcon); + rout.put(RDOC_CHECKED, "X"); + rout.put(RDOC_CODARTMAG, codartcon); rout.put(RDOC_DESCR, "Valore convenzionale"); rout.put(RDOC_QTA, UNO); rout.put(RDOC_PREZZO, impconvtot); @@ -1166,6 +1177,9 @@ void TFatturazione_lavanderie::create_row(TDocumento& doc_out, const TRiga_docum //che sto guardando adesso, altrimenti la creo; in ogni caso aggiungo la quantità da ritirare //al prezzo segnato in contratto TRiga_documento& rd = find_or_create_row(doc_out, rin ,'D'); + + rd.put(RDOC_DESCLUNGA, "X"); + rd.put(RDOC_DESCEST, "\nper addebito biancheria"); rd.add(RDOC_QTA, qta1); rd.put(RDOC_PREZZO, rcont.get_real(LVRCONDV_PREZDAN)); } @@ -1540,6 +1554,13 @@ bool TFatturazione_lav_app::controlli_preliminari() corretto = false; } + //controllo se l'articolo per il raggruppamento è configurato + if (ini_get_string(CONFIG_DITTA, "lv", "Codartcofix").empty()) + { + warning_box(TR("L'articolo per il valore convenzionale non è configurato correttamente")); + corretto = false; + } + //controllo se l'unità di misura per la fatturazioni a Kg è settata if(ini_get_string(CONFIG_DITTA, "lv", "UmKg").empty()) { diff --git a/lv/lv2500a.uml b/lv/lv2500a.uml index 035fca619..cb38fbfe9 100755 --- a/lv/lv2500a.uml +++ b/lv/lv2500a.uml @@ -15,6 +15,8 @@ END DATE F_ADATA BEGIN PROMPT 25 1 " Al " + VALIDATE DATE_CMP_FUNC >= F_DADATA + WARNING "La data di fine faturazione non può essere inferiore alla data di inizio" END DATE F_DATAFAT @@ -36,6 +38,7 @@ BEGIN DISPLAY "Ragione Sociale@50" RAGSOC OUTPUT F_DACODCF CODCF OUTPUT F_DARAGSOC RAGSOC + CHECKTYPE SEARCH ADD RUN cg0 -1 END @@ -49,6 +52,7 @@ BEGIN DISPLAY "Ragione Sociale@50" RAGSOC DISPLAY "Codice" CODCF COPY OUTPUT F_DACODCF + CHECKTYPE SEARCH ADD RUN cg0 -1 END @@ -64,6 +68,7 @@ BEGIN DISPLAY "Ragione Sociale@50" RAGSOC OUTPUT F_ACODCF CODCF OUTPUT F_ARAGSOC RAGSOC + CHECKTYPE SEARCH ADD RUN cg0 -1 END @@ -77,6 +82,7 @@ BEGIN DISPLAY "Ragione Sociale@50" RAGSOC DISPLAY "Codice" CODCF COPY OUTPUT F_ACODCF + CHECKTYPE SEARCH ADD RUN cg0 -1 END