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;
private:
const real convert_to_kg(const TString& codart, const TString& umkg);
const int convert_to_kg(const TString& codart, const TString& umkg);
public:
void aggiungi_riga(const long codcf, const TString& codart);
TInvcon_rec();
};
//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);
@ -54,7 +54,8 @@ const real TInvcon_rec::convert_to_kg(const TString& codart, const TString& umkg
if(fatconv != ZERO)
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
@ -84,7 +85,7 @@ void TInvcon_rec::aggiungi_riga(const long codcf, const TString& codart)
//recupero i dati di interesse da anamag
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 lavco2 = 0; //non serve
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("CODART", codart);
set("DESART", desart);
set("PESO", peso);
set("PESO", (TVariant)peso);
set("LAVCON1", (TVariant)lavco1);
set("LINDES1", (TVariant)linde1);
set("LINDES2", (TVariant)linde2);
set("LAVATR", (TVariant)lavatr);
set("CODARTLAV", (TVariant)codla1);
set("CODCLILAV", (TVariant)codla2);
set("CODARTLAV", (TVariant)codla2);
set("CODCLILAV", (TVariant)codla1);
set("MANGANO", (TVariant)mangan);
set("CONF", (TVariant)ppconf);
}
TInvcon_rec::TInvcon_rec()
:TAS400_recordset("AS400(185)")
:TAS400_recordset("AS400(186)")
{
create_field("FILLER1", -1, 1, _alfafld, false); //riempimento
create_field("CODCF", -1, 6, _longfld, true); //codice cliente
create_field("RAGSOC1", -1, 30, _alfafld, true); //ragione sociale 1
create_field("RAGSOC2", -1, 29, _alfafld, true); //ragione sociale 2
create_field("CITTA", -1, 40, _alfafld, true); //cittŕ (localitŕ + comune)
create_field("FILLER2", -1, 2, _alfafld, false); //riempimento
create_field("CODART", -1, 8, _alfafld, true); //codice articolo
create_field("DESART", -1, 30, _alfafld, true); //descrizione articolo
create_field("FILLER3", -1, 9, _alfafld, false); //riempimento
create_field("PESO", -1, 6, _realfld, true); //peso
create_field("LAVCON1", -1, 2, _intzerofld, true); //lavacontinua 1
create_field("LAVCON2", -1, 2, _intzerofld, false); //lavacontinua 2
create_field("LINDES1", -1, 2, _intzerofld, true); //linea di destinazione 1
create_field("LINDES2", -1, 2, _intzerofld, true); //linea di destinazione 2
create_field("LAVATR", -1, 2, _intzerofld, true); //lavatrice
create_field("CODARTLAV", -1, 3, _intzerofld, true); //codice lavaggio 1
create_field("CODCLILAV", -1, 3, _intzerofld, true); //codice lavaggio 2
create_field("MANGANO", -1, 3, _intzerofld, true); //mangano
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("FILLER1", -1, 1, _alfafld, false); //riempimento
create_field("CODCF", -1, 6, _longzerofld, true); //codice cliente
create_field("RAGSOC1", -1, 30, _alfafld, true); //ragione sociale 1
create_field("RAGSOC2", -1, 30, _alfafld, true); //ragione sociale 2
create_field("CITTA", -1, 40, _alfafld, true); //città (località + comune)
create_field("FILLER2", -1, 2, _alfafld, false); //riempimento
create_field("CODART", -1, 8, _alfafld, true); //codice articolo
create_field("DESART", -1, 30, _alfafld, true); //descrizione articolo
create_field("FILLER3", -1, 9, _alfafld, false); //riempimento
create_field("PESO", -1, 6, _intzerofld, true); //peso
create_field("LAVCON1", -1, 2, _intzerofld, true); //lavacontinua 1
create_field("LAVCON2", -1, 2, _intzerofld, false); //lavacontinua 2
create_field("LINDES1", -1, 2, _intzerofld, true); //linea di destinazione 1
create_field("LINDES2", -1, 2, _intzerofld, true); //linea di destinazione 2
create_field("LAVATR", -1, 2, _intzerofld, true); //lavatrice
create_field("CODARTLAV", -1, 3, _intzerofld, true); //codice lavaggio 1
create_field("CODCLILAV", -1, 3, _intzerofld, true); //codice lavaggio 2
create_field("MANGANO", -1, 3, _intzerofld, true); //mangano
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
_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
STRING DLG_PROFILE 50
BEGIN
PROMPT 1 -1 "Profilo "
PSELECT
FLAGS "H"
END
GROUPBOX DLG_NULL 78 4
BEGIN
PROMPT 1 1 "@bParametri file di output"
@ -29,7 +36,7 @@ END
STRING F_FILE 255 50
BEGIN
PROMPT 2 3 "Nome file "
FSELECT "*.dat"
FSELECT "*.*"
CHECKTYPE NORMAL
END