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:
parent
4b8dc4d98e
commit
39d4c1c9b0
@ -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
|
||||
|
@ -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
|
||||
|
@ -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())
|
||||
{
|
||||
|
@ -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
|
||||
|
||||
|
Loading…
x
Reference in New Issue
Block a user