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_FILE_PUL 267
#define F_CODARTCOFIX 268
#define F_DESARTCOFIX 269
#define F_BACKUP 300
#define S_CODNUM_RIT 101

View File

@ -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

View File

@ -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())
{

View File

@ -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