Patch level : lv1064
Files correlati : lv2 lv3 verig22.msk Ricompilazione Demo : [ ] Commento : Riportate modifiche di Bonazzi/Tassan git-svn-id: svn://10.65.10.50/branches/R_10_00@22413 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
parent
dcfb4ffa3f
commit
192c4280e3
@ -581,7 +581,6 @@ void TFatturazione_lavanderie::post_process(TLista_documenti& doc_out, TLista_do
|
|||||||
doc.put(DOC_NOTE, descr);
|
doc.put(DOC_NOTE, descr);
|
||||||
doc.destroy_row(1, true);
|
doc.destroy_row(1, true);
|
||||||
}
|
}
|
||||||
if (!contr.get_bool(LVCONDV_FORFNOCONS))
|
|
||||||
aggiorna_fattura(doc, contr.get_int(LVCONDV_CODCONT));
|
aggiorna_fattura(doc, contr.get_int(LVCONDV_CODCONT));
|
||||||
if (doc.physical_rows() > 0)
|
if (doc.physical_rows() > 0)
|
||||||
doc.sort_rows(RDOC_CODART "|LVTYPE");
|
doc.sort_rows(RDOC_CODART "|LVTYPE");
|
||||||
|
@ -139,11 +139,10 @@ void TInvia_dotazioni_skema::aggiungi_riga(const long codcf, const long codcont)
|
|||||||
}
|
}
|
||||||
|
|
||||||
TInvia_dotazioni_skema::TInvia_dotazioni_skema()
|
TInvia_dotazioni_skema::TInvia_dotazioni_skema()
|
||||||
: TAS400_recordset("AS400(122)")
|
: TAS400_recordset("AS400(42)")
|
||||||
{
|
{
|
||||||
create_field("CODCF", -1, 20, _longzerofld, true); //codice cliente
|
create_field("CODCF", -1, 20, _alfafld, true); //codice cliente
|
||||||
create_field("RAGSOC", -1, 50, _alfafld, true); //ragione sociale
|
create_field("CODART", -1, 20, _alfafld, true); //codice cliente
|
||||||
create_field("CITTA", -1, 50, _alfafld, true); //città
|
|
||||||
create_field("ACAPO", -1, 2, _alfafld, true, TVariant("\r\n")); //caratteri di a capo
|
create_field("ACAPO", -1, 2, _alfafld, true, TVariant("\r\n")); //caratteri di a capo
|
||||||
}
|
}
|
||||||
|
|
||||||
@ -178,7 +177,7 @@ void TInvcon_skema_msk::esporta() const
|
|||||||
TFilename file_dot = path; file_dot.add("dotazione.txt");
|
TFilename file_dot = path; file_dot.add("dotazione.txt");
|
||||||
|
|
||||||
//preparo il recodset che contiene tutti i contratti validi
|
//preparo il recodset che contiene tutti i contratti validi
|
||||||
TString query;
|
TString query;
|
||||||
query << "USE LVCONDV\n"
|
query << "USE LVCONDV\n"
|
||||||
<< "SELECT (BETWEEN(DATAIN,\"\",#DATA))&&((NUM(ANSI(DATASC))>=" << datasc.date2ansi() << ")||(DATASC=\"\"))&&(CONTSPOR>0)\n"
|
<< "SELECT (BETWEEN(DATAIN,\"\",#DATA))&&((NUM(ANSI(DATASC))>=" << datasc.date2ansi() << ")||(DATASC=\"\"))&&(CONTSPOR>0)\n"
|
||||||
<< "BY CODCF";
|
<< "BY CODCF";
|
||||||
|
@ -188,6 +188,13 @@ BEGIN
|
|||||||
CHECKTYPE NORMAL
|
CHECKTYPE NORMAL
|
||||||
END
|
END
|
||||||
|
|
||||||
|
CURRENCY FR_PREZZO 15
|
||||||
|
BEGIN
|
||||||
|
PROMPT 13 7 "Prezzo "
|
||||||
|
FLAGS "U"
|
||||||
|
FIELD PREZZO
|
||||||
|
END
|
||||||
|
|
||||||
STRING FR_CAULAV 3
|
STRING FR_CAULAV 3
|
||||||
BEGIN
|
BEGIN
|
||||||
PROMPT 2 7 "Cau.Lav. "
|
PROMPT 2 7 "Cau.Lav. "
|
||||||
|
Loading…
x
Reference in New Issue
Block a user