root/campo-sirio
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Patch level : lv1064

Browse Source 
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:
luca 2011-09-12 13:02:42 +00:00
parent dcfb4ffa3f
commit 192c4280e3
3 changed files with 13 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lv/lv2500.cpp
View File

@ -581,8 +581,7 @@ void TFatturazione_lavanderie::post_process(TLista_documenti& doc_out, TLista_do
doc.put(DOC_NOTE, descr);
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)
doc.sort_rows(RDOC_CODART "|LVTYPE");

11
lv/lv3800.cpp
View File

@ -103,7 +103,7 @@ TInvia_articoli_skema::TInvia_articoli_skema()
create_field("PESO", -1, 20, _alfafld, true); //peso
create_field("LUNGHEZZA", -1, 5, _realfld, true); //lunghezza
create_field("LARGHEZZA", -1, 5, _realfld, true); //larghezza
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
}
//////////////////////////////////////
@ -139,11 +139,10 @@ void TInvia_dotazioni_skema::aggiungi_riga(const long codcf, const long codcont)
}
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("RAGSOC", -1, 50, _alfafld, true); //ragione sociale
create_field("CITTA", -1, 50, _alfafld, true); //cittŕ
create_field("CODCF", -1, 20, _alfafld, true); //codice cliente
create_field("CODART", -1, 20, _alfafld, true); //codice cliente
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");
//preparo il recodset che contiene tutti i contratti validi
TString query;
TString query;
query << "USE LVCONDV\n"
<< "SELECT (BETWEEN(DATAIN,\"\",#DATA))&&((NUM(ANSI(DATASC))>=" << datasc.date2ansi() << ")||(DATASC=\"\"))&&(CONTSPOR>0)\n"
<< "BY CODCF";

7
lv/verig22.uml
View File

@ -188,6 +188,13 @@ BEGIN
CHECKTYPE NORMAL
END
CURRENCY FR_PREZZO 15
BEGIN
PROMPT 13 7 "Prezzo "
FLAGS "U"
FIELD PREZZO
END
STRING FR_CAULAV 3
BEGIN
PROMPT 2 7 "Cau.Lav. "