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

Patch level :

Browse Source 
Files correlati     :
Ricompilazione Demo : [ ]
Commento            :


git-svn-id: svn://10.65.10.50/trunk@17429 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
rajitgill 2008-10-20 08:18:31 +00:00
parent d741387e9b
commit c21d269c77
6 changed files with 465 additions and 275 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
lv/lv0300a.h
View File

@ -1,22 +1,40 @@
#define GEN 1 #define GEN 1
#define RIT 2 #define FAT 2
#define ANT 3 #define ORF 3
#define CONG 4 #define ORC 4
#define DOT 5 #define RIT 5
#define ANT 6
#define CONG 7
#define DOT 8
#define F_CODNUM_GEN 201 #define F_CODNUM_GEN 201
#define F_DESNUM_GEN 202 #define F_DESNUM_GEN 202
#define F_TIPODOC_GEN 203 #define F_TIPODOC_GEN 203
#define F_DESTIPODOC_GEN 204 #define F_DESTIPODOC_GEN 204
#define F_BUONIRIT 205
#define F_BUONIANT 206
#define F_DOCCONG 207
#define F_DOCDOT 208
#define F_TIPORIGDOT 209
#define F_TIPORIGDTMP 210
#define F_DESCRTR1 211
#define F_DESCRTR2 212
#define F_CODNUM_FAT 205
#define F_DESNUM_FAT 206
#define F_TIPODOC_FAT 207
#define F_DESTIPODOC_FAT 209
#define F_CODNUM_ORF 210
#define F_DESNUM_ORF 211
#define F_TIPODOC_ORF 212
#define F_DESTIPODOC_ORF 213
#define F_CODNUM_ORC 214
#define F_DESNUM_ORC 215
#define F_TIPODOC_ORC 216
#define F_DESTIPODOC_ORC 217
#define F_BUONIRIT 218
#define F_BUONIANT 219
#define F_DOCCONG 220
#define F_DOCDOT 221
#define F_TIPORIGDOT 222
#define F_TIPORIGDTMP 223
#define F_DESCRTR1 224
#define F_DESCRTR2 225
#define S_CODNUM_RIT 101 #define S_CODNUM_RIT 101
#define S_TIPODOC_RIT 102 #define S_TIPODOC_RIT 102

159
lv/lv0300a.uml
View File

@ -84,6 +84,165 @@ BEGIN
COPY OUTPUT F_TIPODOC_GEN COPY OUTPUT F_TIPODOC_GEN
END END
STRING F_CODNUM_FAT 4
BEGIN
PROMPT 2 5 "Numerazione "
FIELD NUM_FAT
HELP "Codice numerazione"
USE %NUM
INPUT CODTAB F_CODNUM_FAT
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODNUM_FAT CODTAB
OUTPUT F_DESNUM_FAT S0
CHECKTYPE REQUIRED
FLAGS "UPA"
WARNING "Numerazione assente"
END
STRING F_DESNUM_FAT 50
BEGIN
PROMPT 24 5 ""
HELP "Descrizione Numerazione"
USE %NUM KEY 2
INPUT S0 F_DESNUM_FAT
DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT F_CODNUM_FAT
END
STRING F_TIPODOC_FAT 4
BEGIN
PROMPT 2 6 "Tipo "
FIELD TIPODOC_FAT
HELP "Codice tipo documento"
USE %TIP
INPUT CODTAB F_TIPODOC_FAT
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_TIPODOC_FAT CODTAB
OUTPUT F_DESTIPODOC_FAT S0
CHECKTYPE REQUIRED
FLAGS "UP"
END
STRING F_DESTIPODOC_FAT 50
BEGIN
PROMPT 24 6 ""
HELP "Descrizione tipo documento"
USE %TIP KEY 2
INPUT S0 F_DESTIPODOC_FAT
DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT F_TIPODOC_FAT
END
STRING F_CODNUM_ORF 4
BEGIN
PROMPT 2 8 "Numerazione "
FIELD NUM_ORF
HELP "Codice numerazione"
USE %NUM
INPUT CODTAB F_CODNUM_ORF
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODNUM_ORF CODTAB
OUTPUT F_DESNUM_ORF S0
CHECKTYPE REQUIRED
FLAGS "UPA"
WARNING "Numerazione assente"
END
STRING F_DESNUM_ORF 50
BEGIN
PROMPT 24 8 ""
HELP "Descrizione Numerazione"
USE %NUM KEY 2
INPUT S0 F_DESNUM_ORF
DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT F_CODNUM_ORF
END
STRING F_TIPODOC_ORF 4
BEGIN
PROMPT 2 9 "Tipo "
FIELD TIPODOC_ORF
HELP "Codice tipo documento"
USE %TIP
INPUT CODTAB F_TIPODOC_ORF
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_TIPODOC_ORF CODTAB
OUTPUT F_DESTIPODOC_ORF S0
CHECKTYPE REQUIRED
FLAGS "UP"
END
STRING F_DESTIPODOC_ORF 50
BEGIN
PROMPT 24 9 ""
HELP "Descrizione tipo documento"
USE %TIP KEY 2
INPUT S0 F_DESTIPODOC_ORF
DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT F_TIPODOC_ORF
END
STRING F_CODNUM_ORC 4
BEGIN
PROMPT 2 10 "Numerazione "
FIELD NUM_ORC
HELP "Codice numerazione"
USE %NUM
INPUT CODTAB F_CODNUM_ORC
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_CODNUM_ORC CODTAB
OUTPUT F_DESNUM_ORC S0
CHECKTYPE REQUIRED
FLAGS "UPA"
WARNING "Numerazione assente"
END
STRING F_DESNUM_ORC 50
BEGIN
PROMPT 24 10 ""
HELP "Descrizione Numerazione"
USE %NUM KEY 2
INPUT S0 F_DESNUM_ORC
DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT F_CODNUM_ORC
END
STRING F_TIPODOC_ORC 4
BEGIN
PROMPT 2 11 "Tipo "
FIELD TIPODOC_ORC
HELP "Codice tipo documento"
USE %TIP
INPUT CODTAB F_TIPODOC_ORC
DISPLAY "Codice" CODTAB
DISPLAY "Descrizione@50" S0
OUTPUT F_TIPODOC_ORC CODTAB
OUTPUT F_DESTIPODOC_ORC S0
CHECKTYPE REQUIRED
FLAGS "UP"
END
STRING F_DESTIPODOC_ORC 50
BEGIN
PROMPT 24 11 ""
HELP "Descrizione tipo documento"
USE %TIP KEY 2
INPUT S0 F_DESTIPODOC_ORC
DISPLAY "Descrizione@50" S0
DISPLAY "Codice" CODTAB
COPY OUTPUT F_TIPODOC_ORC
END
ENDPAGE ENDPAGE
PAGE "Buoni" 0 2 0 0 PAGE "Buoni" 0 2 0 0

46
lv/lv0400.cpp
View File

@ -26,22 +26,8 @@ bool TContratti_msk::on_art_select()
const TString80 codart(row.get(ss.cid2index(S_CODART))); const TString80 codart(row.get(ss.cid2index(S_CODART)));
const TString4 umcont(row.get(ss.cid2index(S_UM))); const TString4 umcont(row.get(ss.cid2index(S_UM)));
TArticolo artrec(codart); TArticolo artrec(codart);
TMask& rowmask=ss.sheet_mask();
set(F_GRMERC,artrec.get(ANAMAG_GRMERC).sleft(3));
set(F_COLORE,artrec.get(ANAMAG_COLORE));
set(F_LIVELLO,artrec.get(ANAMAG_LIVELLO));
set(F_PPCONF,artrec.get(ANAMAG_PPCONF));
set(F_PPCOLLO,artrec.get(ANAMAG_PPCOLLO));
set(F_PPPALLET,artrec.get(ANAMAG_PPPALLET));
set(F_TIPOPARTE,artrec.get(ANAMAG_TIPOPARTE));
set(F_CODLAV1,artrec.get(ANAMAG_CODLAV1));
set(F_CODLAV2,artrec.get(ANAMAG_CODLAV2));
set(F_LINDEST1,artrec.get(ANAMAG_LINDEST1));
set(F_LINDEST2,artrec.get(ANAMAG_LINDEST2));
set(F_LAVATRICE,artrec.get(ANAMAG_LAVATRICE));
set(F_ARTLAVCONT,artrec.get(ANAMAG_ARTLAVCONT));
set(F_MANGDEST,artrec.get(ANAMAG_MANGDEST));
const int indsped=get_int(F_INDSPED); const int indsped=get_int(F_INDSPED);
const TDate oggi(TODAY); const TDate oggi(TODAY);
@ -67,8 +53,11 @@ bool TContratti_msk::on_art_select()
consyear=artrec.convert_to_um(recgiac.get("ACQ").as_real()+recgiac.get("ENT").as_real(),umcont); consyear=artrec.convert_to_um(recgiac.get("ACQ").as_real()+recgiac.get("ENT").as_real(),umcont);
} }
set(F_DOTOD,dotod); rowmask.set(S_DOTOD,dotod);
set(F_CONSANNO,consyear); row.add(dotod.stringa(),ss.cid2index(S_DOTOD));
rowmask.set(S_CONSANNO,consyear);
row.add(consyear.stringa(),ss.cid2index(S_CONSANNO));
TDate imese(oggi); TDate imese(oggi);
imese.set_day(1); imese.set_day(1);
@ -115,13 +104,14 @@ bool TContratti_msk::on_art_select()
} }
} }
set(F_CONSMESE,consmonth); rowmask.set(S_CONSMESE,consmonth);
row.add(consmonth.stringa(),ss.cid2index(S_CONSMESE));
const bool varclcons = get_int(F_PPCONF)>0; const bool varclcons = rowmask.get_int(S_PPCONF)>0;
ss.enable_cell(ss.selected(),ss.cid2index(S_CALCCONS)); ss.enable_cell(ss.selected(),ss.cid2index(S_CALCCONS));
ss.sheet_mask().set(S_CALCCONS,"0"); rowmask.set(S_CALCCONS,"0");
row.add("0",ss.cid2index(S_CALCCONS)); row.add("0",ss.cid2index(S_CALCCONS));
return true; return true;
@ -149,14 +139,18 @@ bool TContratti_msk:: on_field_event(TOperable_field& o,TField_event e,long joll
{ {
TSheet_field& ss=sfield(F_RIGHE); TSheet_field& ss=sfield(F_RIGHE);
TToken_string& row=ss.row(ss.selected()); TToken_string& row=ss.row(ss.selected());
row.add(o.get(),0); row.add(o.get(),ss.cid2index(S_CODART));
TArticolo art(o.get());
const TString& um = art.um()[0].get(UMART_UM);
set(S_UM,um);
row.add(um,S_UM);
on_art_select(); on_art_select();
} }
break; else
case F_RIGHE: if (e==fe_init)
if (e==se_enter) on_art_select();
on_art_select(); break;
break;
default:break; default:break;
} }

143
lv/lv0400.h
View File

@ -6,82 +6,83 @@
#define F_DATAIN 204 #define F_DATAIN 204
#define F_DATASC 205 #define F_DATASC 205
#define F_RIGHE 206 //sheet righe contratto #define F_RIGHE 206 //sheet righe contratto
#define F_GRMERC 207 #define F_PERFAT 207
#define F_COLORE 208 #define F_TIPOCAN 208
#define F_LIVELLO 209 #define F_INPERFAT 209
#define F_PPCONF 210 #define F_DTLASTFAT 210
#define F_PPCOLLO 211 #define F_ATTFATNODT 211
#define F_PPPALLET 212 #define F_FORFNOCONS 212
#define F_TIPOPARTE 213 #define F_TIPOSTPRZ 213
#define F_CODLAV1 214 #define F_TIPOLIS 214
#define F_CODLAV2 215 #define F_TIPOIMB 215
#define F_LINDEST1 216 #define F_CAUSMAG 216
#define F_LINDEST2 217 #define F_CAUSMAGDESC 217
#define F_LAVATRICE 218 #define F_CONTSPOR 218
#define F_ARTLAVCONT 219 #define F_SSCONS 219
#define F_MANGDEST 220 #define F_RIFBOLFAT 220
#define F_PERFAT 221 #define F_ADDCAPROT 221
#define F_TIPOCAN 222 #define F_PROFORME 222
#define F_INPERFAT 223 #define F_STRCONS 223
#define F_DTLASTFAT 224 #define F_FATTSOSP 224
#define F_ATTFATNODT 225 #define F_STDICITURA 225
#define F_FORFNOCONS 226 #define F_CICLAGGIO 226
#define F_TIPOSTPRZ 227 #define F_STPRZBOL 227
#define F_TIPOLIS 228 #define F_STETIMATI 228
#define F_TIPOIMB 229 #define F_STETITS 229
#define F_CAUSMAG 230 #define F_STDDTPTS 230
#define F_CAUSMAGDESC 231 #define F_IMPMINFAT 231
#define F_CONTSPOR 232 #define F_PERCNOCONT 232
#define F_SSCONS 233 #define F_PERCTOLPES 233
#define F_RIFBOLFAT 234 #define F_NUMUT 234
#define F_ADDCAPROT 235 #define F_NUMETI 235
#define F_PROFORME 236 #define F_RITAUDTTMP 236
#define F_STRCONS 237 #define DLG_PLANNING 237
#define F_FATTSOSP 238 #define F_INDSPED 238
#define F_STDICITURA 239 #define F_INDIR 239
#define F_CICLAGGIO 240
#define F_STPRZBOL 241
#define F_STETIMATI 242
#define F_STETITS 243
#define F_STDDTPTS 244
#define F_IMPMINFAT 245
#define F_PERCNOCONT 246
#define F_PERCTOLPES 247
#define F_NUMUT 248
#define F_NUMETI 249
#define F_RITAUDTTMP 250
#define F_DOTOD 251
#define F_CONSMESE 252
#define F_CONSANNO 253
#define DLG_PLANNING 254
#define F_INDSPED 255
#define F_INDIR 256
#define S_CODART 101 #define S_CODART 101
#define S_DESCR 102 #define S_DESCR 102
#define S_UM 103 #define S_UM 103
#define S_CONG 104 #define S_CONG 104
#define S_PREZZOST 105 #define S_PREZZOST 105
#define S_PREZZORN 106 #define S_PREZZORN 106
#define S_IMPFISART 107 #define S_SCONTO 107
#define S_SCONTO 108 #define S_DOTIN 108
#define S_DOTIN 109 #define S_DOTOD 109
#define S_DOTTMP 110 #define S_CONSMESE 110
#define S_PRZDTTMP 111 #define S_CONSANNO 111
#define S_INDTTMP 112 #define S_DOTTMP 112
#define S_FIDTTMP 113 #define S_PRZDTTMP 113
#define S_PREZDAN 114 #define S_INDTTMP 114
#define S_VALCONV 115 #define S_FIDTTMP 115
#define S_ARTBLOC 116 #define S_IMPFISART 116
#define S_CALCCONS 117 #define S_PREZDAN 117
#define S_TIPOFORF 118 #define S_VALCONV 118
#define S_NOLCIC 119 #define S_ARTBLOC 119
#define S_VCARTCLI 120 #define S_CALCCONS 120
#define S_MINCIC 121 #define S_TIPOFORF 121
#define S_FORFPERCL 122 #define S_NOLCIC 122
#define S_CAUSMAG 123 #define S_VCARTCLI 123
#define S_TIPONOL 124 #define S_MINCIC 124
#define S_RITAUDTTMP 125 #define S_FORFPERCL 125
#define S_FATTKG 126 #define S_CAUSMAG 126
#define S_ARROT 127 #define S_TIPONOL 127
#define S_RITAUDTTMP 128
#define S_FATTKG 129
#define S_ARROT 130
#define S_GRMERC 131
#define S_COLORE 132
#define S_LIVELLO 133
#define S_PPCONF 134
#define S_PPCOLLO 135
#define S_PPPALLET 136
#define S_TIPOPARTE 137
#define S_CODLAV1 138
#define S_CODLAV2 139
#define S_LINDEST1 140
#define S_LINDEST2 141
#define S_LAVATRICE 142
#define S_ARTLAVCONT 143
#define S_MANGDEST 144

345
lv/lv0400a.uml
View File

@ -103,22 +103,25 @@ BEGIN
PROMPT 66 2 "~Giri" PROMPT 66 2 "~Giri"
END END
SPREADSHEET F_RIGHE 0 8 SPREADSHEET F_RIGHE 0 14
BEGIN BEGIN
PROMPT 0 5 "Righe contratto" PROMPT 0 5 "Righe contratto"
ITEM "Articolo@20" ITEM "Articolo@10"
ITEM "Descrizione@50" ITEM "Descrizione@30"
ITEM "UM" ITEM "UM@3"
ITEM "Cong." ITEM "Cong.@4"
ITEM "Prezzo in vigore" ITEM "Prezzo in vigore@8"
ITEM "Prezzo di Rinnovo" ITEM "Prezzo di Rinnovo@8"
ITEM "Importo fisso" ITEM "Sconto %@4"
ITEM "Sconto %" ITEM "Dot.Iniziale@5"
ITEM "Dot.Iniziale" ITEM "Dotaz. odierna@5"
ITEM "Dot.Temporanea" ITEM "Cons. mese@6"
ITEM "Cons.anno@6"
ITEM "Dot.Temporanea@5"
ITEM "Prezzo Dot.Temp." ITEM "Prezzo Dot.Temp."
ITEM "Inizio Dot.Temp." ITEM "Inizio Dot.Temp."
ITEM "Fine Dot.Temp." ITEM "Fine Dot.Temp."
ITEM "Importo fisso"
ITEM "Prezzo Danneggiati" ITEM "Prezzo Danneggiati"
ITEM "Val. convenzionale" ITEM "Val. convenzionale"
ITEM "Articolo bloccato" ITEM "Articolo bloccato"
@ -133,119 +136,20 @@ BEGIN
ITEM "Ritiro aut.Dot.Temp." ITEM "Ritiro aut.Dot.Temp."
ITEM "Fatturazione a kg" ITEM "Fatturazione a kg"
ITEM "Arrotondamento" ITEM "Arrotondamento"
END ITEM "Tipologia"
ITEM "Colore"
GROUPBOX DLG_NULL 78 8 ITEM "Livello"
BEGIN ITEM "Pezzi per pacco"
PROMPT 1 14 "@bDettaglio" ITEM "Pezzi per sacco"
END ITEM "Pezzi per carrello"
ITEM "Tipo parte"
NUMBER F_DOTOD 9 ITEM "Cod. lavaggio 1"
BEGIN ITEM "Cod. lavaggio 2"
PROMPT 2 15 "Dotaz. odierna " ITEM "Linea dest. 1"
FLAGS "D" ITEM "Linea dest. 2"
END ITEM "Lavatrice"
ITEM "Art.lavacont"
STRING F_COLORE 20 10 ITEM "Mangano Dest."
BEGIN
PROMPT 30 15 "Colore "
FLAGS "D"
END
STRING F_GRMERC 3
BEGIN
PROMPT 55 15 "Tipologia "
FLAG "UD"
USE GMC KEY 1 SELECT CODTAB[4,5]==""
INPUT CODTAB F_GRMERC
DISPLAY "Codice" CODTAB[1,3]
DISPLAY "Descrizione@50" S0
OUTPUT F_GRMERC CODTAB[1,3]
CHECKTYPE NORMAL
END
NUMBER F_PPCONF 9
BEGIN
PROMPT 2 16 "Pz. per Pacco "
FLAGS "D"
END
NUMBER F_PPCOLLO 9
BEGIN
PROMPT 30 16 "Per Sacco "
FLAGS "D"
END
NUMBER F_PPPALLET 9
BEGIN
PROMPT 55 16 "Per Carrello "
FLAGS "D"
END
STRING F_MANGDEST 3
BEGIN
PROMPT 2 17 "Mangano Dest. "
FLAGS "D"
END
STRING F_ARTLAVCONT 4
BEGIN
PROMPT 30 17 "Art.Lav.cont."
FLAGS "D"
END
STRING F_LAVATRICE 4
BEGIN
PROMPT 55 17 "Lavatrice "
FLAGS "D"
END
STRING F_CODLAV1 3
BEGIN
PROMPT 2 18 "Cod. Lavag. 1 "
FLAGS "D"
END
STRING F_CODLAV2 3
BEGIN
PROMPT 30 18 "Cod. Lavag. 2"
FLAGS "D"
END
STRING F_TIPOPARTE 1
BEGIN
PROMPT 55 18 "Tipo Parte "
FLAGS "D"
END
STRING F_LINDEST1 3
BEGIN
PROMPT 2 19 "Linea dest. 1 "
FLAGS "D"
END
STRING F_LINDEST2 3
BEGIN
PROMPT 30 19 "Linea dest. 2"
FLAGS "D"
END
STRING F_LIVELLO 1
BEGIN
PROMPT 55 19 "Livello "
FLAGS "D"
END
NUMBER F_CONSMESE 9
BEGIN
PROMPT 2 20 "Consegnato mese"
FLAGS "D"
END
NUMBER F_CONSANNO 9
BEGIN
PROMPT 30 20 "Consegn. anno"
FLAGS "D"
END END
ENDPAGE ENDPAGE
@ -485,6 +389,27 @@ ENDPAGE
ENDMASK ENDMASK
TOOLBAR "" 0 0 0 2
BUTTON DLG_OK 2 2
BEGIN
PROMPT 1 1 ""
END
BUTTON DLG_DELREC 2 2
BEGIN
PROMPT 2 1 "Elimina"
MESSAGE EXIT,K_DEL
PICTURE BMP_DELREC
END
BUTTON DLG_CANCEL 2 2
BEGIN
PROMPT 4 1 ""
END
ENDPAGE
PAGE "" -1 -1 80 20 PAGE "" -1 -1 80 20
GROUPBOX DLG_NULL 78 3 GROUPBOX DLG_NULL 78 3
@ -523,73 +448,73 @@ LISTBOX S_TIPOFORF 1 25
BEGIN BEGIN
PROMPT 1 3 "Tipo Forfait " PROMPT 1 3 "Tipo Forfait "
ITEM "0|Nessuno" ITEM "0|Nessuno"
MESSAGE HIDE,1@|DISABLE, S_IMPFISART|DISABLE,3@|DISABLE,S_MINCIC|ENABLE,2@ MESSAGE DISABLE,1@|DISABLE, S_IMPFISART|DISABLE,3@|DISABLE,S_MINCIC|ENABLE,2@
ITEM "1|A valore fisso" ITEM "1|A valore fisso"
MESSAGE HIDE,1@|ENABLE,S_IMPFISART|DISABLE,3@|DISABLE,S_MINCIC|DISABLE,2@ MESSAGE DISABLE,1@|ENABLE,S_IMPFISART|DISABLE,3@|DISABLE,S_MINCIC|DISABLE,2@
ITEM "2|Nolo" ITEM "2|Nolo"
MESSAGE SHOW,S_NOLCIC|HIDE,S_VCARTCLI|DISABLE,S_IMPFISART|DISABLE,3@|DISABLE,S_MINCIC|ENABLE,2@ MESSAGE ENABLE,S_NOLCIC|DISABLE,S_VCARTCLI|DISABLE,S_IMPFISART|DISABLE,3@|DISABLE,S_MINCIC|ENABLE,2@
ITEM "3|Ciclaggio" ITEM "3|Ciclaggio"
MESSAGE SHOW,S_NOLCIC|HIDE,S_VCARTCLI|DISABLE,S_IMPFISART|DISABLE,3@|ENABLE,S_MINCIC|ENABLE,2@ MESSAGE ENABLE,S_NOLCIC|DISABLE,S_VCARTCLI|DISABLE,S_IMPFISART|DISABLE,3@|ENABLE,S_MINCIC|ENABLE,2@
ITEM "4|% sul val. convenz." ITEM "4|% sul val. convenz."
MESSAGE HIDE,S_NOLCIC|SHOW,S_VCARTCLI|DISABLE,S_IMPFISART|ENABLE,3@|DISABLE,S_MINCIC|DISABLE,2@ MESSAGE DISABLE,S_NOLCIC|ENABLE,S_VCARTCLI|DISABLE,S_IMPFISART|ENABLE,3@|DISABLE,S_MINCIC|DISABLE,2@
ITEM "5|Fisso su dot. iniziale" ITEM "5|Fisso su dot. iniziale"
MESSAGE HIDE,1@|ENABLE,S_IMPFISART|DISABLE,3@|DISABLE,S_MINCIC|DISABLE,2@ MESSAGE DISABLE,1@|ENABLE,S_IMPFISART|DISABLE,3@|DISABLE,S_MINCIC|DISABLE,2@
FIELD TIPOFORF FIELD TIPOFORF
END END
LISTBOX S_NOLCIC 1 20 LISTBOX S_NOLCIC 1 20
BEGIN BEGIN
PROMPT 46 3 "In base a " PROMPT 46 3 "In base a "
ITEM "N|Nessuno"
ITEM "I|Dot. iniziale" ITEM "I|Dot. iniziale"
ITEM "O|Dot. odierna" ITEM "O|Dot. odierna"
FLAGS "H"
GROUP 1 GROUP 1
END END
LISTBOX S_VCARTCLI 1 20 LISTBOX S_VCARTCLI 1 20
BEGIN BEGIN
PROMPT 46 3 "Per " PROMPT 46 4 "Per "
ITEM "N|Nessuno"
ITEM "C|Cliente" ITEM "C|Cliente"
ITEM "A|Articolo" ITEM "A|Articolo"
FLAGS "H"
GROUP 1 GROUP 1
END END
CURRENCY S_PREZZOST 15 CURRENCY S_PREZZOST 15
BEGIN BEGIN
PROMPT 1 4 "Prezzo in vigore " PROMPT 1 5 "Prezzo in vigore "
FIELD PREZZO FIELD PREZZO
GROUP 2 GROUP 2
END END
CURRENCY S_PREZZORN 15 CURRENCY S_PREZZORN 15
BEGIN BEGIN
PROMPT 43 4 "Prezzo di rinnovo " PROMPT 43 5 "Prezzo di rinnovo "
FIELD PREZRIN FIELD PREZRIN
GROUP 2 GROUP 2
END END
CURRENCY S_IMPFISART 15 CURRENCY S_IMPFISART 15
BEGIN BEGIN
PROMPT 1 5 "Importo fisso " PROMPT 1 6 "Importo fisso "
FIELD IMPFISART FIELD IMPFISART
END END
NUMBER S_SCONTO 6 2 NUMBER S_SCONTO 6 2
BEGIN BEGIN
PROMPT 43 5 "Sconto % " PROMPT 43 6 "Sconto % "
FIELD SCONTPERC FIELD SCONTPERC
END END
NUMBER S_CONG 9 NUMBER S_CONG 9
BEGIN BEGIN
PROMPT 1 6 "Conguaglio " PROMPT 1 7 "Conguaglio "
FIELD QTACONG FIELD QTACONG
END END
CURRENCY S_VALCONV 15 CURRENCY S_VALCONV 15
BEGIN BEGIN
PROMPT 43 6 "Val. convenzionale" PROMPT 43 7 "Val. convenzionale"
FLAGS "U" FLAGS "U"
FIELD VALCONV FIELD VALCONV
GROUP 3 GROUP 3
@ -597,21 +522,20 @@ END
NUMBER S_FORFPERCL 6 2 NUMBER S_FORFPERCL 6 2
BEGIN BEGIN
PROMPT 1 7 "% Forfait cliente " PROMPT 1 8 "% Forfait cliente "
FIELD FORFPERCL FIELD FORFPERCL
GROUP 3 GROUP 3
END END
NUMBER S_MINCIC 4 2 NUMBER S_MINCIC 4 2
BEGIN BEGIN
PROMPT 43 7 "Minimo cilcaggio " PROMPT 43 8 "Minimo cilcaggio "
FIELD MINCIC FIELD MINCIC
END END
STRING S_UM 2 STRING S_UM 2
BEGIN BEGIN
PROMPT 1 8 "Unità di misura " PROMPT 1 9 "Unità di misura "
USE LF_UMART KEY 2 USE LF_UMART KEY 2
JOIN UMS INTO CODTAB=UM JOIN UMS INTO CODTAB=UM
INPUT CODART S_CODART SELECT INPUT CODART S_CODART SELECT
@ -625,7 +549,7 @@ END
STRING S_CAUSMAG 4 STRING S_CAUSMAG 4
BEGIN BEGIN
PROMPT 43 8 "Causale di default" PROMPT 43 9 "Causale di default"
USE CAU USE CAU
INPUT CODTAB S_CAUSMAG INPUT CODTAB S_CAUSMAG
DISPLAY "Codice" CODTAB DISPLAY "Codice" CODTAB
@ -637,45 +561,45 @@ END
CURRENCY S_PREZDAN 15 CURRENCY S_PREZDAN 15
BEGIN BEGIN
PROMPT 1 9 "Prezzo danneggiati " PROMPT 1 10 "Prezzo danneggiati "
FLAGS "U" FLAGS "U"
FIELD PREZDAN FIELD PREZDAN
END END
CURRENCY S_PRZDTTMP 15 CURRENCY S_PRZDTTMP 15
BEGIN BEGIN
PROMPT 43 9 "Prezzo dot. temp. " PROMPT 43 10 "Prezzo dot. temp. "
FLAGS "U" FLAGS "U"
FIELD PRZDTTMP FIELD PRZDTTMP
END END
NUMBER S_DOTIN 9 NUMBER S_DOTIN 9
BEGIN BEGIN
PROMPT 1 10 "Dot. iniziale " PROMPT 1 11 "Dot. iniziale "
FIELD DOTIN FIELD DOTIN
END END
NUMBER S_DOTTMP 9 NUMBER S_DOTTMP 9
BEGIN BEGIN
PROMPT 43 10 "Dot. temporanea " PROMPT 43 11 "Dot. temporanea "
FIELD DOTTMP FIELD DOTTMP
END END
DATE S_INDTTMP DATE S_INDTTMP
BEGIN BEGIN
PROMPT 1 11 "Inizio dot. temporanea " PROMPT 1 12 "Inizio dot. temporanea "
FIELD INDTTMP FIELD INDTTMP
END END
DATE S_FIDTTMP DATE S_FIDTTMP
BEGIN BEGIN
PROMPT 43 11 "Fine dot. temp " PROMPT 43 12 "Fine dot. temp "
FIELD FIDTTMP FIELD FIDTTMP
END END
LISTBOX S_ARTBLOC 1 34 LISTBOX S_ARTBLOC 1 34
BEGIN BEGIN
PROMPT 1 12 "Articolo bloccato " PROMPT 1 13 "Articolo bloccato "
ITEM "0|Nessuna" ITEM "0|Nessuna"
ITEM "1|Articolo in sostituzione" ITEM "1|Articolo in sostituzione"
ITEM "2|Cliente in chiusura" ITEM "2|Cliente in chiusura"
@ -685,7 +609,7 @@ END
LISTBOX S_CALCCONS 1 34 LISTBOX S_CALCCONS 1 34
BEGIN BEGIN
PROMPT 1 13 "Calcolo del consegnato " PROMPT 1 14 "Calcolo del consegnato "
ITEM "0|Conguaglio alla confezione" ITEM "0|Conguaglio alla confezione"
ITEM "1|Uguale al ritirato" ITEM "1|Uguale al ritirato"
FIELD CALCCONS FIELD CALCCONS
@ -693,48 +617,139 @@ END
LISTBOX S_TIPONOL 1 34 LISTBOX S_TIPONOL 1 34
BEGIN BEGIN
PROMPT 1 14 "Tipo Noleggio " PROMPT 1 15 "Tipo Noleggio "
FIELD TIPONOL FIELD TIPONOL
FLAGS "D" FLAGS "D"
END END
BOOLEAN S_RITAUDTTMP BOOLEAN S_RITAUDTTMP
BEGIN BEGIN
PROMPT 1 15 "Ritiro automatico dotazione temporanea" PROMPT 1 16 "Ritiro automatico dotazione temporanea"
FIELD RITAUDTTMP FIELD RITAUDTTMP
END END
BOOLEAN S_FATTKG BOOLEAN S_FATTKG
BEGIN BEGIN
PROMPT 1 16 "Fatturazione a Kg." PROMPT 1 17 "Fatturazione a Kg."
FIELD FATTKG FIELD FATTKG
END END
BOOLEAN S_ARROT BOOLEAN S_ARROT
BEGIN BEGIN
PROMPT 1 17 "Arrotondamento" PROMPT 1 18 "Arrotondamento"
FIELD ARROT FIELD ARROT
END END
ENDPAGE ENDPAGE
TOOLBAR "" 0 0 0 2 PAGE "" -1 -1 80 20
BUTTON DLG_OK 2 2 NUMBER S_DOTOD 9
BEGIN BEGIN
PROMPT 1 1 "" PROMPT 2 5 "Dotaz. odierna "
FLAGS "D"
END END
BUTTON DLG_DELREC 2 2 STRING S_COLORE 20 10
BEGIN BEGIN
PROMPT 2 1 "Elimina" PROMPT 30 5 "Colore "
MESSAGE EXIT,K_DEL FLAGS "D"
PICTURE BMP_DELREC END
STRING S_GRMERC 3
BEGIN
PROMPT 55 5 "Tipologia "
FLAG "UD"
USE GMC KEY 1 SELECT CODTAB[4,5]==""
INPUT CODTAB S_GRMERC
DISPLAY "Codice" CODTAB[1,3]
DISPLAY "Descrizione@50" S0
OUTPUT S_GRMERC CODTAB[1,3]
CHECKTYPE NORMAL
END END
BUTTON DLG_CANCEL 2 2 NUMBER S_PPCONF 9
BEGIN
PROMPT 2 6 "Pz. per Pacco "
FLAGS "D"
END
NUMBER S_PPCOLLO 9
BEGIN
PROMPT 30 6 "Per Sacco "
FLAGS "D"
END
NUMBER S_PPPALLET 9
BEGIN
PROMPT 55 6 "Per Carrello "
FLAGS "D"
END
STRING S_MANGDEST 3
BEGIN BEGIN
PROMPT 4 1 "" PROMPT 2 7 "Mangano Dest. "
FLAGS "D"
END
STRING S_ARTLAVCONT 4
BEGIN
PROMPT 30 7 "Art.Lav.cont."
FLAGS "D"
END
STRING S_LAVATRICE 4
BEGIN
PROMPT 55 7 "Lavatrice "
FLAGS "D"
END
STRING S_CODLAV1 3
BEGIN
PROMPT 2 8 "Cod. Lavag. 1 "
FLAGS "D"
END
STRING S_CODLAV2 3
BEGIN
PROMPT 30 8 "Cod. Lavag. 2"
FLAGS "D"
END
STRING S_TIPOPARTE 1
BEGIN
PROMPT 55 8 "Tipo Parte "
FLAGS "D"
END
STRING S_LINDEST1 3
BEGIN
PROMPT 2 9 "Linea dest. 1 "
FLAGS "D"
END
STRING S_LINDEST2 3
BEGIN
PROMPT 30 9 "Linea dest. 2"
FLAGS "D"
END
STRING S_LIVELLO 1
BEGIN
PROMPT 55 9 "Livello "
FLAGS "D"
END
NUMBER S_CONSMESE 9
BEGIN
PROMPT 2 10 "Consegnato mese"
FLAGS "D"
END
NUMBER S_CONSANNO 9
BEGIN
PROMPT 30 10 "Consegn. anno"
FLAGS "D"
END END
ENDPAGE ENDPAGE

5
lv/lvmenu.men
View File

@ -7,7 +7,10 @@ Item_01 = "Archivi e Tabelle di Base", [LVMENU_001]
Item_02 = "Gestione Giri", [LVMENU_040] Item_02 = "Gestione Giri", [LVMENU_040]
Item_03 = "Configurazione", [LVMENU_090] Item_03 = "Configurazione", [LVMENU_090]
Item_04 = "Contratti", "lv0 -3", "F" Item_04 = "Contratti", "lv0 -3", "F"
Item_05 = "DDT", "ve0 -1 -filtI==2 -defnumbol|tipbol|lv", "F" Item_05 = "DDT", "ve0 -1 -filtI1=1 -defNUM_GEN|TIPODOC_GEN|lv", "F"
Item_05 = "FAT", "ve0 -1 -filtI1=2 -defNUM_FAT|TIPODOC_FAT|lv", "F"
Item_05 = "ORF", "ve0 -1 -filtI1=3 -defNUM_ORF|TIPODOC_ORF|lv", "F"
Item_05 = "ORC", "ve0 -1 -filtI1=3 -defNUM_ORC|TIPODOC_ORC|lv", "F"
[LVMENU_001] [LVMENU_001]
Caption = "Archivi e Tabelle di Base" Caption = "Archivi e Tabelle di Base"