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

Patch level : 10.0 patch 6??

Browse Source 
Files correlati     : lv3 lv3600
Ricompilazione Demo : [ ]
Commento            :
non salva il percorso dell'ultimo lancio

non accetta il file .txt ma solo .dat

il cliente deve essere fillato di 0

il peso deve essere fillato di zero e senza punti

sono invertiti i campi clienti e articolo per lavacontinua
con i codici lavaggio 1 e 2

c'è uno spazio in meno dalla descrizione in poi


git-svn-id: svn://10.65.10.50/trunk@20200 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
luca83 2010-03-08 06:09:39 +00:00
parent c3f0ac1e2f
commit 9498f3a754
2 changed files with 37 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

57
lv/lv3600.cpp
View File

@ -20,14 +20,14 @@ class TInvcon_rec: public TAS400_recordset
{ {
TString4 _umkg; TString4 _umkg;
private: private:
const real convert_to_kg(const TString& codart, const TString& umkg); const int convert_to_kg(const TString& codart, const TString& umkg);
public: public:
void aggiungi_riga(const long codcf, const TString& codart); void aggiungi_riga(const long codcf, const TString& codart);
TInvcon_rec(); TInvcon_rec();
}; };
//CONVERT_TO_KG: metodo che converte il peso di un articolo //CONVERT_TO_KG: metodo che converte il peso di un articolo
const real TInvcon_rec::convert_to_kg(const TString& codart, const TString& umkg) const int TInvcon_rec::convert_to_kg(const TString& codart, const TString& umkg)
{ {
TArticolo& art = cached_article(codart); TArticolo& art = cached_article(codart);
@ -54,7 +54,8 @@ const real TInvcon_rec::convert_to_kg(const TString& codart, const TString& umkg
if(fatconv != ZERO) if(fatconv != ZERO)
qtaconv = fatconv * peso; qtaconv = fatconv * peso;
} }
return qtaconv; TString8 tmp = qtaconv.string(); tmp.replace('.', ' '); tmp.strip_spaces();
return atoi(tmp);
} }
//metodo per aggiungere righe al recordset da stampare //metodo per aggiungere righe al recordset da stampare
@ -84,7 +85,7 @@ void TInvcon_rec::aggiungi_riga(const long codcf, const TString& codart)
//recupero i dati di interesse da anamag //recupero i dati di interesse da anamag
TString80 desart = anamag.get(ANAMAG_DESCR); TString80 desart = anamag.get(ANAMAG_DESCR);
real peso = convert_to_kg(codart, _umkg); long peso = convert_to_kg(codart, _umkg);
long lavco1 = atoi(anamag.get(ANAMAG_ARTLAVCONT).left(2)); long lavco1 = atoi(anamag.get(ANAMAG_ARTLAVCONT).left(2));
long lavco2 = 0; //non serve long lavco2 = 0; //non serve
long linde1 = anamag.get_int(ANAMAG_LINDEST1); long linde1 = anamag.get_int(ANAMAG_LINDEST1);
@ -103,40 +104,40 @@ void TInvcon_rec::aggiungi_riga(const long codcf, const TString& codart)
set("CITTA", citta); set("CITTA", citta);
set("CODART", codart); set("CODART", codart);
set("DESART", desart); set("DESART", desart);
set("PESO", peso); set("PESO", (TVariant)peso);
set("LAVCON1", (TVariant)lavco1); set("LAVCON1", (TVariant)lavco1);
set("LINDES1", (TVariant)linde1); set("LINDES1", (TVariant)linde1);
set("LINDES2", (TVariant)linde2); set("LINDES2", (TVariant)linde2);
set("LAVATR", (TVariant)lavatr); set("LAVATR", (TVariant)lavatr);
set("CODARTLAV", (TVariant)codla1); set("CODARTLAV", (TVariant)codla2);
set("CODCLILAV", (TVariant)codla2); set("CODCLILAV", (TVariant)codla1);
set("MANGANO", (TVariant)mangan); set("MANGANO", (TVariant)mangan);
set("CONF", (TVariant)ppconf); set("CONF", (TVariant)ppconf);
} }
TInvcon_rec::TInvcon_rec() TInvcon_rec::TInvcon_rec()
:TAS400_recordset("AS400(185)") :TAS400_recordset("AS400(186)")
{ {
create_field("FILLER1", -1, 1, _alfafld, false); //riempimento create_field("FILLER1", -1, 1, _alfafld, false); //riempimento
create_field("CODCF", -1, 6, _longfld, true); //codice cliente create_field("CODCF", -1, 6, _longzerofld, true); //codice cliente
create_field("RAGSOC1", -1, 30, _alfafld, true); //ragione sociale 1 create_field("RAGSOC1", -1, 30, _alfafld, true); //ragione sociale 1
create_field("RAGSOC2", -1, 29, _alfafld, true); //ragione sociale 2 create_field("RAGSOC2", -1, 30, _alfafld, true); //ragione sociale 2
create_field("CITTA", -1, 40, _alfafld, true); //cittŕ (localitŕ + comune) create_field("CITTA", -1, 40, _alfafld, true); //città (località + comune)
create_field("FILLER2", -1, 2, _alfafld, false); //riempimento create_field("FILLER2", -1, 2, _alfafld, false); //riempimento
create_field("CODART", -1, 8, _alfafld, true); //codice articolo create_field("CODART", -1, 8, _alfafld, true); //codice articolo
create_field("DESART", -1, 30, _alfafld, true); //descrizione articolo create_field("DESART", -1, 30, _alfafld, true); //descrizione articolo
create_field("FILLER3", -1, 9, _alfafld, false); //riempimento create_field("FILLER3", -1, 9, _alfafld, false); //riempimento
create_field("PESO", -1, 6, _realfld, true); //peso create_field("PESO", -1, 6, _intzerofld, true); //peso
create_field("LAVCON1", -1, 2, _intzerofld, true); //lavacontinua 1 create_field("LAVCON1", -1, 2, _intzerofld, true); //lavacontinua 1
create_field("LAVCON2", -1, 2, _intzerofld, false); //lavacontinua 2 create_field("LAVCON2", -1, 2, _intzerofld, false); //lavacontinua 2
create_field("LINDES1", -1, 2, _intzerofld, true); //linea di destinazione 1 create_field("LINDES1", -1, 2, _intzerofld, true); //linea di destinazione 1
create_field("LINDES2", -1, 2, _intzerofld, true); //linea di destinazione 2 create_field("LINDES2", -1, 2, _intzerofld, true); //linea di destinazione 2
create_field("LAVATR", -1, 2, _intzerofld, true); //lavatrice create_field("LAVATR", -1, 2, _intzerofld, true); //lavatrice
create_field("CODARTLAV", -1, 3, _intzerofld, true); //codice lavaggio 1 create_field("CODARTLAV", -1, 3, _intzerofld, true); //codice lavaggio 1
create_field("CODCLILAV", -1, 3, _intzerofld, true); //codice lavaggio 2 create_field("CODCLILAV", -1, 3, _intzerofld, true); //codice lavaggio 2
create_field("MANGANO", -1, 3, _intzerofld, true); //mangano create_field("MANGANO", -1, 3, _intzerofld, true); //mangano
create_field("CONF", -1, 3, _intzerofld, true); //numero di pezzi per confezione create_field("CONF", -1, 3, _intzerofld, true); //numero di pezzi per confezione
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
_umkg = ini_get_string(CONFIG_DITTA, "lv", "UmKg"); _umkg = ini_get_string(CONFIG_DITTA, "lv", "UmKg");
} }

9
lv/lv3600a.uml
View File

@ -14,6 +14,13 @@ ENDPAGE
PAGE "Esportazione a contapezzi" 0 0 0 0 PAGE "Esportazione a contapezzi" 0 0 0 0
STRING DLG_PROFILE 50
BEGIN
PROMPT 1 -1 "Profilo "
PSELECT
FLAGS "H"
END
GROUPBOX DLG_NULL 78 4 GROUPBOX DLG_NULL 78 4
BEGIN BEGIN
PROMPT 1 1 "@bParametri file di output" PROMPT 1 1 "@bParametri file di output"
@ -29,7 +36,7 @@ END
STRING F_FILE 255 50 STRING F_FILE 255 50
BEGIN BEGIN
PROMPT 2 3 "Nome file " PROMPT 2 3 "Nome file "
FSELECT "*.dat" FSELECT "*.*"
CHECKTYPE NORMAL CHECKTYPE NORMAL
END END