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
This commit is contained in:
alex 2010-02-10 11:35:35 +00:00
parent 4b8dc4d98e
commit 39d4c1c9b0
4 changed files with 58 additions and 5 deletions

View File

@ -85,6 +85,9 @@
#define F_PATH_PUL 266 #define F_PATH_PUL 266
#define F_FILE_PUL 267 #define F_FILE_PUL 267
#define F_CODARTCOFIX 268
#define F_DESARTCOFIX 269
#define F_BACKUP 300 #define F_BACKUP 300
#define S_CODNUM_RIT 101 #define S_CODNUM_RIT 101

View File

@ -722,7 +722,8 @@ BEGIN
DISPLAY "Codice@20" CODART DISPLAY "Codice@20" CODART
DISPLAY "Descrizione@50" DESCR DISPLAY "Descrizione@50" DESCR
OUTPUT F_CODARTFIX CODART OUTPUT F_CODARTFIX CODART
OUTPUT F_DESARTFIX DECSR OUTPUT F_DESARTFIX DESCR
CHECKTYPE NORMAL
END END
STRING F_DESARTFIX 50 28 STRING F_DESARTFIX 50 28
@ -743,6 +744,7 @@ BEGIN
DISPLAY "Descrizione@50" DESCR DISPLAY "Descrizione@50" DESCR
OUTPUT F_CODARTCAFIX CODART OUTPUT F_CODARTCAFIX CODART
OUTPUT F_DESARTCAFIX DESCR OUTPUT F_DESARTCAFIX DESCR
CHECKTYPE NORMAL
END END
STRING F_DESARTCAFIX 50 28 STRING F_DESARTCAFIX 50 28
@ -751,9 +753,30 @@ BEGIN
FLAGS "D" FLAGS "D"
END 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 LISTBOX F_TIPOPR 1 19
BEGIN BEGIN
PROMPT 1 19 "Tipo prezzo" PROMPT 1 20 "Tipo prezzo"
ITEM "0|Prezzo da contratto" ITEM "0|Prezzo da contratto"
ITEM "1|Prezzo da bolla" ITEM "1|Prezzo da bolla"
FIELD Tipopr FIELD Tipopr
@ -761,7 +784,7 @@ END
STRING F_UMPESO 3 STRING F_UMPESO 3
BEGIN BEGIN
PROMPT 40 19 "U.M. " PROMPT 40 20 "U.M. "
USE %UMS USE %UMS
INPUT CODTAB F_UMPESO INPUT CODTAB F_UMPESO
DISPLAY "Codice@6" CODTAB DISPLAY "Codice@6" CODTAB

View File

@ -657,7 +657,8 @@ void TFatturazione_lavanderie::post_process(TLista_documenti& doc_out, TLista_do
if (consumo < impconv) if (consumo < impconv)
{ {
const bool cicl2rig = contr.get_bool(LVCONDV_CICLAGGIO); 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 //il conguaglio al valore convenzionale, che ha come quantità la costante UNO
//e come prezzo la differenza tra l'importo convenzionale e il consumo; //e come prezzo la differenza tra l'importo convenzionale e il consumo;
//altimenti correggo quantità e prezzo direttamente sulla riga documento che sto analizzando //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"); TRiga_documento& congrow = doc.insert_row(++i, "01");
doc.copy_data(congrow, rout); doc.copy_data(congrow, rout);
congrow.put(RDOC_DESCR, "Conguaglio valore convenzionale"); congrow.put(RDOC_DESCR, "Conguaglio valore convenzionale");
congrow.put(RDOC_QTA, UNO); congrow.put(RDOC_QTA, UNO);
congrow.put(RDOC_PREZZO, impconv - consumo); congrow.put(RDOC_PREZZO, impconv - consumo);
} }
else else
{ {
rout.put(RDOC_DESCR, "Conguaglio valore convenzionale");
rout.put(RDOC_QTA, UNO); rout.put(RDOC_QTA, UNO);
rout.put(RDOC_PREZZO, impconv); rout.put(RDOC_PREZZO, impconv);
} }
@ -724,7 +727,9 @@ void TFatturazione_lavanderie::post_process(TLista_documenti& doc_out, TLista_do
if (consumotot < impconvtot) if (consumotot < impconvtot)
{ {
const bool cicl2rig=contr.get_bool(LVCONDV_CICLAGGIO); 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 //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; //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 //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"); TRiga_documento& congrow=doc.insert_row(++i, "01");
doc.copy_data(congrow, rout); 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_DESCR, "Conguaglio valore convenzionale");
congrow.put(RDOC_QTA, UNO); congrow.put(RDOC_QTA, UNO);
congrow.put(RDOC_PREZZO, impconvtot - consumotot); congrow.put(RDOC_PREZZO, impconvtot - consumotot);
} }
else 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_DESCR, "Valore convenzionale");
rout.put(RDOC_QTA, UNO); rout.put(RDOC_QTA, UNO);
rout.put(RDOC_PREZZO, impconvtot); 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 //che sto guardando adesso, altrimenti la creo; in ogni caso aggiungo la quantità da ritirare
//al prezzo segnato in contratto //al prezzo segnato in contratto
TRiga_documento& rd = find_or_create_row(doc_out, rin ,'D'); 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.add(RDOC_QTA, qta1);
rd.put(RDOC_PREZZO, rcont.get_real(LVRCONDV_PREZDAN)); rd.put(RDOC_PREZZO, rcont.get_real(LVRCONDV_PREZDAN));
} }
@ -1540,6 +1554,13 @@ bool TFatturazione_lav_app::controlli_preliminari()
corretto = false; 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 //controllo se l'unità di misura per la fatturazioni a Kg è settata
if(ini_get_string(CONFIG_DITTA, "lv", "UmKg").empty()) if(ini_get_string(CONFIG_DITTA, "lv", "UmKg").empty())
{ {

View File

@ -15,6 +15,8 @@ END
DATE F_ADATA DATE F_ADATA
BEGIN BEGIN
PROMPT 25 1 " Al " 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 END
DATE F_DATAFAT DATE F_DATAFAT
@ -36,6 +38,7 @@ BEGIN
DISPLAY "Ragione Sociale@50" RAGSOC DISPLAY "Ragione Sociale@50" RAGSOC
OUTPUT F_DACODCF CODCF OUTPUT F_DACODCF CODCF
OUTPUT F_DARAGSOC RAGSOC OUTPUT F_DARAGSOC RAGSOC
CHECKTYPE SEARCH
ADD RUN cg0 -1 ADD RUN cg0 -1
END END
@ -49,6 +52,7 @@ BEGIN
DISPLAY "Ragione Sociale@50" RAGSOC DISPLAY "Ragione Sociale@50" RAGSOC
DISPLAY "Codice" CODCF DISPLAY "Codice" CODCF
COPY OUTPUT F_DACODCF COPY OUTPUT F_DACODCF
CHECKTYPE SEARCH
ADD RUN cg0 -1 ADD RUN cg0 -1
END END
@ -64,6 +68,7 @@ BEGIN
DISPLAY "Ragione Sociale@50" RAGSOC DISPLAY "Ragione Sociale@50" RAGSOC
OUTPUT F_ACODCF CODCF OUTPUT F_ACODCF CODCF
OUTPUT F_ARAGSOC RAGSOC OUTPUT F_ARAGSOC RAGSOC
CHECKTYPE SEARCH
ADD RUN cg0 -1 ADD RUN cg0 -1
END END
@ -77,6 +82,7 @@ BEGIN
DISPLAY "Ragione Sociale@50" RAGSOC DISPLAY "Ragione Sociale@50" RAGSOC
DISPLAY "Codice" CODCF DISPLAY "Codice" CODCF
COPY OUTPUT F_ACODCF COPY OUTPUT F_ACODCF
CHECKTYPE SEARCH
ADD RUN cg0 -1 ADD RUN cg0 -1
END END