Patch level :
Files correlati : Ricompilazione Demo : [ ] Commento : git-svn-id: svn://10.65.10.50/trunk@17150 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
rajitgill
parent
2d7dcdd28c
commit
bf8a3d98e1
@ -1,3 +1,3 @@
|
||||
169
|
||||
0
|
||||
$lvrcondv|||312|0|Righe del contratto|||
|
||||
$lvrcondv|0|0|272|0|Righe del contratto|||
|
||||
|
||||
16
lv/f169.trr
16
lv/f169.trr
@ -1,5 +1,5 @@
|
||||
169
|
||||
38
|
||||
28
|
||||
CODCF|3|6|0|Codice cliente
|
||||
CODCONT|3|6|0|Codice contratto
|
||||
CODART|1|20|0|Codice articolo
|
||||
@ -28,17 +28,5 @@ FATTKG|8|1|0|Fatturazione in Kg
|
||||
ARTBLOC|2|1|0|Articolo bloccato
|
||||
CALCCONS|2|1|0|Calcolo consegnato
|
||||
TIPONOL|2|1|0|Tipo noleggio
|
||||
COLORE|1|20|0|Colore
|
||||
LIVELLO|1|1|0|Livello
|
||||
TIPOPARTE|1|1|0|Tipo parte
|
||||
CODLAV1|1|3|0|Codice lavaggio 1
|
||||
CODLAV2|1|3|0|Codice lavaggio 2
|
||||
LINDEST1|1|3|0|Linea destinazione 1
|
||||
LINDEST2|1|3|0|Linea destinazione 2
|
||||
LAVATRICE|1|3|0|Lavatrice
|
||||
ARTLAVCONT|1|4|0|Art. Lavacont
|
||||
MANGDEST|1|3|0|Mangano destinazione
|
||||
1
|
||||
CODCF+CODCONT+CODART|
|
||||
|
||||
|
||||
CODCF+CODCONT+CODART|
|
||||
|
||||
@ -1,13 +1,13 @@
|
||||
#include <msksheet.h>
|
||||
#include <relapp.h>
|
||||
#include <recarray.h>
|
||||
#include <recset.h>
|
||||
|
||||
#include "lv0400.h"
|
||||
|
||||
class TContratti_app: public TRelation_application
|
||||
{
|
||||
TMask* _amsk;
|
||||
TMask* _bmsk;
|
||||
TMask* _msk;
|
||||
TRelation* _rel;
|
||||
bool _unicont;
|
||||
|
||||
@ -17,8 +17,7 @@ private:
|
||||
int find_art(TSheet_field& s,const TString& art) const;
|
||||
|
||||
protected:
|
||||
virtual bool changing_mask (int mode) { return true;}
|
||||
virtual TMask* get_mask (int mode) {return mode==MODE_QUERY?_amsk:_bmsk; }
|
||||
virtual TMask* get_mask (int mode) {return _msk; }
|
||||
virtual TRelation* get_relation() const {return _rel;}
|
||||
|
||||
virtual bool user_create();
|
||||
@ -29,21 +28,22 @@ protected:
|
||||
virtual int write(const TMask& m);
|
||||
virtual int rewrite(const TMask& m);
|
||||
virtual bool remove();
|
||||
static bool notify(TSheet_field& ss, int r, KEY key);
|
||||
|
||||
};
|
||||
|
||||
bool TContratti_app:: user_create()
|
||||
{
|
||||
_rel=new TRelation (LF_LVCONDV);
|
||||
_amsk= new TMask ("lv0400a");
|
||||
_bmsk= new TMask ("lv0400b");
|
||||
_msk= new TMask ("lv0400a");
|
||||
TSheet_field& sheet = _msk->sfield(F_RIGHE);
|
||||
sheet.set_notify(notify );
|
||||
return true;
|
||||
}
|
||||
|
||||
bool TContratti_app:: user_destroy()
|
||||
{
|
||||
delete _bmsk;
|
||||
delete _amsk;
|
||||
delete _msk;
|
||||
delete _rel;
|
||||
return true;
|
||||
}
|
||||
@ -56,7 +56,7 @@ void TContratti_app:: on_config_change()
|
||||
|
||||
bool TContratti_app:: get_next_key(TToken_string& key)
|
||||
{
|
||||
const long cliente=_amsk->get_long(F_CODCF);
|
||||
const long cliente=_msk->get_long(F_CODCF);
|
||||
if (cliente<=0) return false;
|
||||
key.add(F_CODCF);
|
||||
key.add(cliente);
|
||||
@ -91,6 +91,28 @@ bool TContratti_app:: get_next_key(TToken_string& key)
|
||||
return true;
|
||||
}
|
||||
|
||||
bool TContratti_app::notify( TSheet_field& ss, int r, KEY key )
|
||||
{
|
||||
TMask& m = ss.mask();
|
||||
|
||||
switch (key)
|
||||
{
|
||||
case K_TAB: // modifica
|
||||
{
|
||||
TToken_string & row = ss.row(ss.selected());
|
||||
const TString80 codart(row.get(ss.cid2index(S_CODART)));
|
||||
const TRectype & artrec = cache().get(LF_ANAMAG, codart);
|
||||
|
||||
|
||||
}
|
||||
break;
|
||||
default:
|
||||
break;
|
||||
}
|
||||
return true;
|
||||
}
|
||||
|
||||
|
||||
void TContratti_app:: build_query(const TMask& m,TString& query) const
|
||||
{
|
||||
query="";
|
||||
@ -194,7 +216,7 @@ bool TContratti_app::remove()
|
||||
if(ok)
|
||||
{
|
||||
TString query;
|
||||
build_query(*_bmsk,query);
|
||||
build_query(*_msk,query);
|
||||
TISAM_recordset righeset(query);
|
||||
TLocalisamfile& file=righeset.cursor()->file();
|
||||
for (bool ok=righeset.move_first(); ok; ok=righeset.move_next())
|
||||
|
||||
75
lv/lv0400.h
75
lv/lv0400.h
@ -6,39 +6,48 @@
|
||||
#define F_RIGHE 206
|
||||
#define F_TIPOLOGIA 207
|
||||
#define F_COLORE 208
|
||||
#define F_PPCONF 209
|
||||
#define F_PPCOLLO 210
|
||||
#define F_PPPALLET 211
|
||||
#define F_PERFAT 212
|
||||
#define F_TIPOCAN 213
|
||||
#define F_INPERFAT 214
|
||||
#define F_DTLASTFAT 215
|
||||
#define F_ATTFATNODT 216
|
||||
#define F_FORFNOCONS 217
|
||||
#define F_TIPOSTPRZ 218
|
||||
#define F_TIPOLIS 219
|
||||
#define F_TIPOIMB 220
|
||||
#define F_CAUSMAG 221
|
||||
#define F_CAUSMAGDESC 222
|
||||
#define F_CONTSPOR 223
|
||||
#define F_SSCONS 224
|
||||
#define F_RIFBOLFAT 225
|
||||
#define F_ADDCAPROT 226
|
||||
#define F_PROFORME 227
|
||||
#define F_STRCONS 228
|
||||
#define F_FATTSOSP 229
|
||||
#define F_STDICITURA 230
|
||||
#define F_CICLAGGIO 231
|
||||
#define F_STPRZBOL 232
|
||||
#define F_STETIMATI 233
|
||||
#define F_STETITS 234
|
||||
#define F_STDDTPTS 235
|
||||
#define F_IMPMINFAT 236
|
||||
#define F_PERCNOCONT 237
|
||||
#define F_PERCTOLPES 238
|
||||
#define F_NUMUT 239
|
||||
#define F_NUMETI 240
|
||||
#define F_RITAUDTTMP 241
|
||||
#define F_LIVELLO 209
|
||||
#define F_PPCONF 210
|
||||
#define F_PPCOLLO 211
|
||||
#define F_PPPALLET 212
|
||||
#define F_TIPOPARTE 213
|
||||
#define F_CODLAV1 214
|
||||
#define F_CODLAV2 215
|
||||
#define F_LINDEST1 216
|
||||
#define F_LINDEST2 217
|
||||
#define F_LAVATRICE 218
|
||||
#define F_ARTLAVONCT 219
|
||||
#define F_MANGDEST 220
|
||||
#define F_PERFAT 221
|
||||
#define F_TIPOCAN 222
|
||||
#define F_INPERFAT 223
|
||||
#define F_DTLASTFAT 224
|
||||
#define F_ATTFATNODT 225
|
||||
#define F_FORFNOCONS 226
|
||||
#define F_TIPOSTPRZ 227
|
||||
#define F_TIPOLIS 228
|
||||
#define F_TIPOIMB 229
|
||||
#define F_CAUSMAG 230
|
||||
#define F_CAUSMAGDESC 231
|
||||
#define F_CONTSPOR 232
|
||||
#define F_SSCONS 233
|
||||
#define F_RIFBOLFAT 234
|
||||
#define F_ADDCAPROT 235
|
||||
#define F_PROFORME 236
|
||||
#define F_STRCONS 237
|
||||
#define F_FATTSOSP 238
|
||||
#define F_STDICITURA 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 S_CODART 101
|
||||
#define S_DESCR 102
|
||||
#define S_UM 103
|
||||
|
||||
624
lv/lv0400a.uml
624
lv/lv0400a.uml
@ -4,16 +4,16 @@ TOOLBAR "" 0 0 0 2
|
||||
#include <relapbar.h>
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Contratti" 0 2 0 0
|
||||
PAGE "Contratto" 0 2 0 0
|
||||
|
||||
GROUPBOX DLG_NULL 78 6
|
||||
GROUPBOX DLG_NULL 78 4
|
||||
BEGIN
|
||||
PROMPT 0 4 "@bContratti"
|
||||
PROMPT 1 1 "@bContratti"
|
||||
END
|
||||
|
||||
NUMBER F_CODCF 6
|
||||
BEGIN
|
||||
PROMPT 2 5 "Cliente "
|
||||
PROMPT 2 2 "Cliente "
|
||||
FIELD CODCF
|
||||
FLAGS "U"
|
||||
KEY 1
|
||||
@ -24,12 +24,13 @@ BEGIN
|
||||
DISPLAY "Ragione Sociale@50" RAGSOC
|
||||
OUTPUT F_CODCF CODCF
|
||||
OUTPUT F_RAGSOC RAGSOC
|
||||
CHECKTYPE REQUIRED
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
STRING F_RAGSOC 50
|
||||
BEGIN
|
||||
PROMPT 25 5 ""
|
||||
PROMPT 26 2 ""
|
||||
KEY 2
|
||||
USE LF_CLIFO KEY 2
|
||||
INPUT TIPOCF "C"
|
||||
INPUT RAGSOC F_RAGSOC
|
||||
@ -41,7 +42,7 @@ END
|
||||
|
||||
NUMBER F_CODCONT 6
|
||||
BEGIN
|
||||
PROMPT 2 6 "Contratto N."
|
||||
PROMPT 2 3 "Contratto N."
|
||||
USE LF_LVCONDV
|
||||
JOIN LF_CLIFO INTO TIPOCF="C" CODCF=CODCF
|
||||
INPUT CODCF F_CODCF
|
||||
@ -56,10 +57,613 @@ BEGIN
|
||||
OUTPUT F_CODCONT CODCONT
|
||||
FLAGS "U"
|
||||
FIELD CODCONT
|
||||
KEY 1
|
||||
KEY 1 2
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
DATE F_DATAIN
|
||||
BEGIN
|
||||
PROMPT 24 3 "Data di inizio"
|
||||
FIELD DATAIN
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
DATE F_DATASC
|
||||
BEGIN
|
||||
PROMPT 51 3 "Data di scadenza"
|
||||
FIELD DATASC
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
SPREADSHEET F_RIGHE 0 -6
|
||||
BEGIN
|
||||
PROMPT 0 5 "Righe contratto"
|
||||
ITEM "Articolo@20"
|
||||
ITEM "Descrizione@50"
|
||||
ITEM "UM"
|
||||
ITEM "Cong."
|
||||
ITEM "Prezzo in vigore"
|
||||
ITEM "Prezzo di Rinnovo"
|
||||
ITEM "Importo fisso"
|
||||
ITEM "Sconto %"
|
||||
ITEM "Dot.Iniziale"
|
||||
ITEM "Dot.Odierna"
|
||||
ITEM "Consegnato Mese*"
|
||||
ITEM "Consegnato anno"
|
||||
ITEM "Dot.Temporanea"
|
||||
ITEM "Prezzo Dot.Temp."
|
||||
ITEM "Inizio Dot.Temp."
|
||||
ITEM "Fine Dot.Temp."
|
||||
ITEM "Prezzo Danneggiati"
|
||||
ITEM "Val. convenzionale"
|
||||
ITEM "Articolo bloccato"
|
||||
ITEM "Calcolo consegnato"
|
||||
ITEM "Tipo Forfait"
|
||||
ITEM "%Forfait Cliente"
|
||||
ITEM "Causale default"
|
||||
ITEM "Tipo Noleggio"
|
||||
ITEM "Ritiro aut.Dot.Temp."
|
||||
ITEM "Fatturazione a kg"
|
||||
ITEM "Arrotondamento"
|
||||
END
|
||||
|
||||
LISTBOX F_TIPOLOGIA 12
|
||||
BEGIN
|
||||
PROMPT 1 -5 "Tipologia:"
|
||||
ITEM "0|Nessuno"
|
||||
ITEM "1|Sala bianca"
|
||||
ITEM "2|Sala colore"
|
||||
ITEM "3|Camera"
|
||||
ITEM "4|Bagno cotone"
|
||||
ITEM "5|Bagno spugna"
|
||||
ITEM "6|Di proprietà"
|
||||
ITEM "7|Sala bianca"
|
||||
END
|
||||
|
||||
STRING F_COLORE 20
|
||||
BEGIN
|
||||
PROMPT 28 -5 "Colore"
|
||||
END
|
||||
|
||||
STRING F_LIVELLO 1
|
||||
BEGIN
|
||||
PROMPT 57 -5 "Livello"
|
||||
END
|
||||
|
||||
NUMBER F_PPCONF 9
|
||||
BEGIN
|
||||
PROMPT 1 -4 "Pezzi per Pacco:"
|
||||
END
|
||||
|
||||
NUMBER F_PPCOLLO 9
|
||||
BEGIN
|
||||
PROMPT 28 -4 "Per Sacco:"
|
||||
END
|
||||
|
||||
NUMBER F_PPPALLET 9
|
||||
BEGIN
|
||||
PROMPT 50 -4 "Per Carrello:"
|
||||
END
|
||||
|
||||
STRING F_TIPOPARTE 1
|
||||
BEGIN
|
||||
PROMPT 1 -3 "Tipo Parte"
|
||||
END
|
||||
|
||||
STRING F_CODLAV1 3
|
||||
BEGIN
|
||||
PROMPT 25 -3 "Cod. Lavaggio 1"
|
||||
END
|
||||
|
||||
STRING F_CODLAV2 3
|
||||
BEGIN
|
||||
PROMPT 50 -3 "Cod. Lavaggio 2"
|
||||
END
|
||||
|
||||
STRING F_LINDEST1 3
|
||||
BEGIN
|
||||
PROMPT 1 -2 "Linea destinazione 1"
|
||||
END
|
||||
|
||||
STRING F_LINDEST2 3
|
||||
BEGIN
|
||||
PROMPT 25 -2 "Linea destinazione 2"
|
||||
END
|
||||
|
||||
STRING F_LAVATRICE 3
|
||||
BEGIN
|
||||
PROMPT 50 -2 "Lavatrice"
|
||||
END
|
||||
|
||||
STRING F_ARTLAVONCT 4
|
||||
BEGIN
|
||||
PROMPT 1 -1 "Art. Lavacont"
|
||||
END
|
||||
|
||||
STRING F_MANGDEST 3
|
||||
BEGIN
|
||||
PROMPT 50 -1 "Mangano Destinazione"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Opzioni" 0 2 0 0
|
||||
|
||||
GROUPBOX DLG_NULL 30 6
|
||||
BEGIN
|
||||
PROMPT 1 1 "@bPeriodicità di fatturazione"
|
||||
END
|
||||
|
||||
RADIOBUTTON F_PERFAT 1 30
|
||||
BEGIN
|
||||
PROMPT 1 1 "@bPeriodicità di fatturazione"
|
||||
ITEM "0|Giornaliero"
|
||||
ITEM "1|Settimanale"
|
||||
ITEM "2|Quindicinale"
|
||||
ITEM "3|Mensile"
|
||||
FIELD PERFAT
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 50 6
|
||||
BEGIN
|
||||
PROMPT 31 1 ""
|
||||
END
|
||||
|
||||
DATE F_INPERFAT
|
||||
BEGIN
|
||||
PROMPT 32 2 "Inizio primo periodo di fatturazione"
|
||||
FIELD INPERFAT
|
||||
END
|
||||
|
||||
DATE F_DTLASTFAT
|
||||
BEGIN
|
||||
PROMPT 32 3 "Data ultima fattura "
|
||||
FIELD DTLASTFAT
|
||||
END
|
||||
|
||||
CURRENCY F_IMPMINFAT 15
|
||||
BEGIN
|
||||
PROMPT 32 4 "Importo minimo fatturabile "
|
||||
FIELD IMPMINFAT
|
||||
END
|
||||
|
||||
BOOLEAN F_FATTSOSP
|
||||
BEGIN
|
||||
PROMPT 32 5 "Escluso da fatturazione"
|
||||
FIELD FATTSOSP
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 38 9
|
||||
BEGIN
|
||||
PROMPT 1 7 "@bTipo canone"
|
||||
END
|
||||
|
||||
RADIOBUTTON F_TIPOCAN 1 38
|
||||
BEGIN
|
||||
PROMPT 1 7 ""
|
||||
ITEM "0|Nessuno"
|
||||
ITEM "1|Importo fisso"
|
||||
ITEM "2|Raggruppa su unico art."
|
||||
ITEM "3|Calcolato con elenco art."
|
||||
ITEM "4|% sul val. convenzionale per cliente"
|
||||
ITEM "5|% sul val. convenzionale per articolo"
|
||||
FIELD TIPOCAN
|
||||
END
|
||||
|
||||
RADIOBUTTON F_TIPOLIS 1 25
|
||||
BEGIN
|
||||
PROMPT 40 7 "@bTipo Listino:"
|
||||
ITEM "0|Prezzo nel contratto"
|
||||
ITEM "1|Listino in anag.Articoli"
|
||||
FIELD TIPOLIS
|
||||
END
|
||||
|
||||
RADIOBUTTON F_TIPOIMB 1 14
|
||||
BEGIN
|
||||
PROMPT 66 7 "@bTipo imballo:"
|
||||
ITEM "0|Sacco"
|
||||
ITEM "1|Carrello"
|
||||
FIELD TIPOIMB
|
||||
END
|
||||
|
||||
RADIOBUTTON F_TIPOSTPRZ 1 40
|
||||
BEGIN
|
||||
PROMPT 40 11 "@bTipo di stampa prezzo"
|
||||
ITEM "0|Prezzo in DDT/Bolla"
|
||||
ITEM "1|Richiesta stampa in sede bollettaz."
|
||||
ITEM "2|Prezzo e totale DOC. in DDT"
|
||||
FIELD TIPOSTPRZ
|
||||
END
|
||||
|
||||
NUMBER F_PERCNOCONT 6 2
|
||||
BEGIN
|
||||
PROMPT 1 16 "Percentuale aumento per mancato conteggio "
|
||||
FIELD PERCNOCONT
|
||||
END
|
||||
|
||||
NUMBER F_PERCTOLPES 6 2
|
||||
BEGIN
|
||||
PROMPT 1 17 "Percentuale tolleranza peso teorico/effettivo"
|
||||
FIELD PERCTOLPES
|
||||
END
|
||||
|
||||
NUMBER F_NUMUT 5
|
||||
BEGIN
|
||||
PROMPT 60 16 "Num. utente "
|
||||
FIELD NUMUT
|
||||
END
|
||||
|
||||
NUMBER F_NUMETI 5
|
||||
BEGIN
|
||||
PROMPT 60 17 "Num. etichette"
|
||||
FIELD NUMETI
|
||||
END
|
||||
|
||||
STRING F_CAUSMAG 4
|
||||
BEGIN
|
||||
PROMPT 1 18 "Causale di default:"
|
||||
USE CAU
|
||||
INPUT CODTAB F_CAUSMAG
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_CAUSMAG CODTAB
|
||||
OUTPUT F_CAUSMAGDESC S0
|
||||
FIELD CAUSMAG
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING F_CAUSMAGDESC 50
|
||||
BEGIN
|
||||
PROMPT 1 19 "Descrizione "
|
||||
USE CAU KEY 2
|
||||
INPUT S0 F_CAUSMAGDESC
|
||||
DISPLAY "Descrizione@50" S0
|
||||
DISPLAY "Codice" CODTAB
|
||||
COPY OUTPUT F_CAUSMAG
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
RADIOBUTTON F_CONTSPOR 1 80
|
||||
BEGIN
|
||||
PROMPT 1 20 "@bConta dello sporco"
|
||||
ITEM "0|Nessuno"
|
||||
ITEM "1|Sporco"
|
||||
ITEM "2|Solo pulito"
|
||||
ITEM "3|Touch-Screen"
|
||||
FIELD CONTSPOR
|
||||
FLAG "Z"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Opzioni 2" 0 2 0 0
|
||||
|
||||
GROUPBOX DLG_NULL 58 16
|
||||
BEGIN
|
||||
PROMPT 15 2 ""
|
||||
END
|
||||
|
||||
BOOLEAN F_ATTFATNODT
|
||||
BEGIN
|
||||
PROMPT 16 3 "Attiva fatturazione indipendentemente dalla data"
|
||||
FIELD ATTFATNODT
|
||||
END
|
||||
|
||||
BOOLEAN F_FORFNOCONS
|
||||
BEGIN
|
||||
PROMPT 16 4 "Non fatturare forfait se senza consegne"
|
||||
FIELD FORFNOCONS
|
||||
END
|
||||
|
||||
BOOLEAN F_SSCONS
|
||||
BEGIN
|
||||
PROMPT 16 5 "Spese di spedizione alla consegna"
|
||||
FIELD SSCONS
|
||||
END
|
||||
|
||||
BOOLEAN F_RIFBOLFAT
|
||||
BEGIN
|
||||
PROMPT 16 6 "Riferimenti bolle in fattura"
|
||||
FIELD RIFBOLFAT
|
||||
END
|
||||
|
||||
BOOLEAN F_ADDCAPROT
|
||||
BEGIN
|
||||
PROMPT 16 7 "Addebita capi rotti in fattura"
|
||||
FIELD ADDCAPROT
|
||||
END
|
||||
|
||||
BOOLEAN F_PROFORME
|
||||
BEGIN
|
||||
PROMPT 16 8 "Proforme(progetti)"
|
||||
FIELD PROFORME
|
||||
END
|
||||
|
||||
BOOLEAN F_STRCONS
|
||||
BEGIN
|
||||
PROMPT 16 9 "Stampa di riepilogo consegne"
|
||||
FIELD STRCONS
|
||||
END
|
||||
|
||||
BOOLEAN F_CICLAGGIO
|
||||
BEGIN
|
||||
PROMPT 16 10 "Ciclaggio su 2 righe"
|
||||
FIELD CICLAGGIO
|
||||
END
|
||||
|
||||
BOOLEAN F_STPRZBOL
|
||||
BEGIN
|
||||
PROMPT 16 11 "Visualizza prezzo in bolla"
|
||||
FIELD STPRZBOL
|
||||
END
|
||||
|
||||
BOOLEAN F_STETIMATI
|
||||
BEGIN
|
||||
PROMPT 16 12 "Stampa etichette con MATI"
|
||||
FIELD STETIMATI
|
||||
END
|
||||
|
||||
BOOLEAN F_STETITS
|
||||
BEGIN
|
||||
PROMPT 16 13 "Stampa etic. con Touch-Screen"
|
||||
FIELD STETITS
|
||||
END
|
||||
|
||||
BOOLEAN F_STDDTPTS
|
||||
BEGIN
|
||||
PROMPT 16 14 "Stampa DDT da pulito con Touch-Screen"
|
||||
FIELD STDDTPTS
|
||||
END
|
||||
|
||||
BOOLEAN F_STDICITURA
|
||||
BEGIN
|
||||
PROMPT 16 15 "Stampa dicitura '..COME DA ELENCO CONSEGNE'"
|
||||
FIELD STDICITURA
|
||||
END
|
||||
|
||||
BOOLEAN F_RITAUDTTMP
|
||||
BEGIN
|
||||
PROMPT 16 16 "Ritiro automatico dotazione temporanea"
|
||||
FIELD RITAUDTTMP
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
|
||||
PAGE "" -1 -1 80 20
|
||||
|
||||
GROUPBOX DLG_NULL 78 3
|
||||
BEGIN
|
||||
PROMPT 1 1 "@bArt"
|
||||
END
|
||||
|
||||
STRING S_CODART 20
|
||||
BEGIN
|
||||
PROMPT 1 2 ""
|
||||
FLAGS "U"
|
||||
USE LF_ANAMAG
|
||||
INPUT CODART S_CODART
|
||||
DISPLAY "Articolo" CODART
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT S_CODART CODART
|
||||
OUTPUT S_DESCR DESCR
|
||||
OUTPUT S_PREZZOST COSTSTD
|
||||
FIELD CODART
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
STRING S_DESCR 50
|
||||
BEGIN
|
||||
PROMPT 26 2 ""
|
||||
USE LF_ANAMAG KEY 2
|
||||
INPUT DESCR S_DESCR
|
||||
DISPLAY "Descrizone@50" DESCR
|
||||
DISPLAY "Articolo" CODART
|
||||
COPY OUTPUT S_CODART
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
CURRENCY S_PREZZOST 15
|
||||
BEGIN
|
||||
PROMPT 1 4 "Prezzo in vigore "
|
||||
FIELD PREZZO
|
||||
END
|
||||
|
||||
CURRENCY S_PREZZORN 15
|
||||
BEGIN
|
||||
PROMPT 45 4 "Prezzo di rinnovo "
|
||||
FIELD PREZRIN
|
||||
END
|
||||
|
||||
CURRENCY S_IMPFISART 15
|
||||
BEGIN
|
||||
PROMPT 1 5 "Importo fisso "
|
||||
FIELD IMPFISART
|
||||
END
|
||||
|
||||
NUMBER S_SCONTO 6 2
|
||||
BEGIN
|
||||
PROMPT 45 5 "Sconto % "
|
||||
FIELD SCONTPERC
|
||||
END
|
||||
|
||||
NUMBER S_CONG 9
|
||||
BEGIN
|
||||
PROMPT 1 6 "Conguaglio "
|
||||
FIELD QTACONG
|
||||
END
|
||||
|
||||
CURRENCY S_VALCONV 15
|
||||
BEGIN
|
||||
PROMPT 45 6 "Val. convenzionale"
|
||||
FLAGS "U"
|
||||
FIELD VALCONV
|
||||
END
|
||||
|
||||
LISTBOX S_ARTBLOC 25
|
||||
BEGIN
|
||||
PROMPT 1 7 "Articolo bloccato "
|
||||
ITEM "0|Nessuna"
|
||||
ITEM "1|Articolo in sostituzione"
|
||||
ITEM "2|Cliente in chiusura"
|
||||
ITEM "3|Contratto in rinnovo"
|
||||
FIELD ARTBLOC
|
||||
END
|
||||
|
||||
STRING S_UM 2
|
||||
BEGIN
|
||||
PROMPT 59 7 "Unità di misura"
|
||||
USE LF_UMART KEY 2
|
||||
JOIN UMS INTO CODTAB=UM
|
||||
INPUT CODART S_CODART SELECT
|
||||
INPUT UM S_UM
|
||||
DISPLAY "U.M." UM
|
||||
DISPLAY "Descrione@50" LF_TAB->S0
|
||||
OUTPUT S_UM UM
|
||||
FIELD UM
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
LISTBOX S_TIPOFORF 34
|
||||
BEGIN
|
||||
PROMPT 1 8 "Tipo Forfait"
|
||||
ITEM "0|Nessuno"
|
||||
ITEM "1|A valore fisso"
|
||||
ITEM "2|Nolo in base a dot. iniziale"
|
||||
ITEM "3|Nolo in base a dot. odierna"
|
||||
ITEM "4|Ciclaggio in base a dot. odierna"
|
||||
ITEM "5|Ciclaggio in base a dot. iniziale"
|
||||
ITEM "6|% sul val. convenz. per articolo"
|
||||
ITEM "7|% sul val. convenz. per cliente"
|
||||
ITEM "8|Fisso in base alla dot. iniziale"
|
||||
FIELD TIPOFORF
|
||||
END
|
||||
|
||||
NUMBER S_FORFPERCL 6 2
|
||||
BEGIN
|
||||
PROMPT 55 8 "% Forfait cliente"
|
||||
FIELD FORFPERCL
|
||||
END
|
||||
|
||||
CURRENCY S_PREZDAN 15
|
||||
BEGIN
|
||||
PROMPT 1 9 "Prezzo danneggiati "
|
||||
FLAGS "U"
|
||||
FIELD PREZDAN
|
||||
END
|
||||
|
||||
STRING S_CAUSMAG 4
|
||||
BEGIN
|
||||
PROMPT 52 9 "Causale di default: "
|
||||
USE CAU
|
||||
INPUT CODTAB S_CAUSMAG
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT S_CAUSMAG CODTAB
|
||||
FIELD CAUSMAG
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
LISTBOX S_CALCCONS 26
|
||||
BEGIN
|
||||
PROMPT 14 10 "Calcolo del consegnato "
|
||||
ITEM "0|Conguaglio alla confezione"
|
||||
ITEM "1|Uguale al ritirato"
|
||||
FIELD CALCCONS
|
||||
END
|
||||
|
||||
NUMBER S_CONSMESE 9
|
||||
BEGIN
|
||||
PROMPT 14 11 "Qtà. consegnata nel mese "
|
||||
FIELD CONSMESE
|
||||
END
|
||||
|
||||
NUMBER S_CONSANNO 9
|
||||
BEGIN
|
||||
PROMPT 14 12 "Qtà. consegnata nell'anno "
|
||||
FIELD CONSANNO
|
||||
END
|
||||
|
||||
NUMBER S_DOTIN 9
|
||||
BEGIN
|
||||
PROMPT 1 13 "Dotazione iniziale "
|
||||
FIELD DOTIN
|
||||
END
|
||||
|
||||
NUMBER S_DOTOD 9
|
||||
BEGIN
|
||||
PROMPT 40 13 "Dotazione odierna "
|
||||
FIELD DOTOD
|
||||
END
|
||||
|
||||
NUMBER S_DOTTMP 9
|
||||
BEGIN
|
||||
PROMPT 1 14 "Dotazione temporanea "
|
||||
FIELD DOTTMP
|
||||
END
|
||||
|
||||
CURRENCY S_PRZDTTMP 15
|
||||
BEGIN
|
||||
PROMPT 40 14 "Prezzo dot. temporanea"
|
||||
FLAGS "U"
|
||||
FIELD PRZDTTMP
|
||||
END
|
||||
|
||||
DATE S_INDTTMP
|
||||
BEGIN
|
||||
PROMPT 1 15 "Inizio dot. temporanea "
|
||||
FIELD INDTTMP
|
||||
END
|
||||
|
||||
DATE S_FIDTTMP
|
||||
BEGIN
|
||||
PROMPT 40 15 "Fine dot. temporanea "
|
||||
FIELD FIDTTMP
|
||||
END
|
||||
|
||||
LISTBOX S_TIPONOL 15
|
||||
BEGIN
|
||||
PROMPT 1 16 "Tipo Noleggio"
|
||||
FIELD TIPONOL
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
BOOLEAN S_RITAUDTTMP
|
||||
BEGIN
|
||||
PROMPT 40 16 "Ritiro automatico dotazione temporanea"
|
||||
FIELD RITAUDTTMP
|
||||
END
|
||||
|
||||
BOOLEAN S_FATTKG
|
||||
BEGIN
|
||||
PROMPT 1 17 "Fatturazione a Kg."
|
||||
FIELD FATTKG
|
||||
END
|
||||
|
||||
BOOLEAN S_ARROT
|
||||
BEGIN
|
||||
PROMPT 40 17 "Arrotondamento"
|
||||
FIELD ARROT
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 10 2
|
||||
BEGIN
|
||||
PROMPT -13 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_DELREC 10 2
|
||||
BEGIN
|
||||
PROMPT -23 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_CANCEL 10 2
|
||||
BEGIN
|
||||
PROMPT -33 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
|
||||
|
||||
ENDMASK
|
||||
609
lv/lv0400b.uml
609
lv/lv0400b.uml
@ -1,609 +0,0 @@
|
||||
#include "lv0400.h"
|
||||
|
||||
TOOLBAR "" 0 0 0 2
|
||||
#include <relapbar.h>
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Contratto" 0 2 0 0
|
||||
|
||||
GROUPBOX DLG_NULL 78 4
|
||||
BEGIN
|
||||
PROMPT 1 1 "@bContratti"
|
||||
END
|
||||
|
||||
NUMBER F_CODCF 6
|
||||
BEGIN
|
||||
PROMPT 2 2 "Cliente "
|
||||
FIELD CODCF
|
||||
FLAGS "UD"
|
||||
KEY 1
|
||||
USE LF_CLIFO
|
||||
INPUT TIPOCF "C"
|
||||
INPUT CODCF F_CODCF
|
||||
DISPLAY "Codice" CODCF
|
||||
DISPLAY "Ragione Sociale@50" RAGSOC
|
||||
OUTPUT F_CODCF CODCF
|
||||
OUTPUT F_RAGSOC RAGSOC
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
STRING F_RAGSOC 50
|
||||
BEGIN
|
||||
PROMPT 27 2 ""
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
NUMBER F_CODCONT 6
|
||||
BEGIN
|
||||
PROMPT 2 3 "Contratto N."
|
||||
FLAGS "UD"
|
||||
FIELD CODCONT
|
||||
KEY 1
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
DATE F_DATAIN
|
||||
BEGIN
|
||||
PROMPT 23 3 "Data di inizio"
|
||||
FIELD DATAIN
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
DATE F_DATASC
|
||||
BEGIN
|
||||
PROMPT 51 3 "Data di scadenza"
|
||||
FIELD DATASC
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
SPREADSHEET F_RIGHE 0 -6
|
||||
BEGIN
|
||||
PROMPT 0 5 "Righe contratto"
|
||||
ITEM "Articolo@20"
|
||||
ITEM "Descrizione@50"
|
||||
ITEM "UM"
|
||||
ITEM "Cong."
|
||||
ITEM "Prezzo in vigore"
|
||||
ITEM "Prezzo di Rinnovo"
|
||||
ITEM "Importo fisso"
|
||||
ITEM "Sconto %"
|
||||
ITEM "Dot.Iniziale"
|
||||
ITEM "Dot.Odierna"
|
||||
ITEM "Consegnato Mese*"
|
||||
ITEM "Consegnato anno"
|
||||
ITEM "Dot.Temporanea"
|
||||
ITEM "Prezzo Dot.Temp."
|
||||
ITEM "Inizio Dot.Temp."
|
||||
ITEM "Fine Dot.Temp."
|
||||
ITEM "Prezzo Danneggiati"
|
||||
ITEM "Val. convenzionale"
|
||||
ITEM "Articolo bloccato"
|
||||
ITEM "Calcolo consegnato"
|
||||
ITEM "Tipo Forfait"
|
||||
ITEM "%Forfait Cliente"
|
||||
ITEM "Causale default"
|
||||
ITEM "Tipo Noleggio"
|
||||
ITEM "Ritiro aut.Dot.Temp."
|
||||
ITEM "Fatturazione a kg"
|
||||
ITEM "Arrotondamento"
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 78 3
|
||||
BEGIN
|
||||
PROMPT 1 17 "@bDettaglio Articolo selezionato"
|
||||
END
|
||||
|
||||
LISTBOX F_TIPOLOGIA 12
|
||||
BEGIN
|
||||
PROMPT 1 -4 "Tipologia: "
|
||||
ITEM "0|Nessuno"
|
||||
ITEM "1|Sala bianca"
|
||||
ITEM "2|Sala colore"
|
||||
ITEM "3|Camera"
|
||||
ITEM "4|Bagno cotone"
|
||||
ITEM "5|Bagno spugna"
|
||||
ITEM "6|Di proprietà"
|
||||
ITEM "7|Sala bianca"
|
||||
END
|
||||
|
||||
STRING F_COLORE 20
|
||||
BEGIN
|
||||
PROMPT 35 -4 "Colore "
|
||||
END
|
||||
|
||||
NUMBER F_PPCONF 9
|
||||
BEGIN
|
||||
PROMPT 1 -3 "Pezzi per Pacco:"
|
||||
END
|
||||
|
||||
NUMBER F_PPCOLLO 9
|
||||
BEGIN
|
||||
PROMPT 35 -3 "Per Sacco:"
|
||||
END
|
||||
|
||||
NUMBER F_PPPALLET 9
|
||||
BEGIN
|
||||
PROMPT 1 -2 "Per Carrello: "
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Opzioni" 0 2 0 0
|
||||
|
||||
GROUPBOX DLG_NULL 30 6
|
||||
BEGIN
|
||||
PROMPT 1 1 "@bPeriodicità di fatturazione"
|
||||
END
|
||||
|
||||
RADIOBUTTON F_PERFAT 1 30
|
||||
BEGIN
|
||||
PROMPT 1 1 "@bPeriodicità di fatturazione"
|
||||
ITEM "0|Giornaliero"
|
||||
ITEM "1|Settimanale"
|
||||
ITEM "2|Quindicinale"
|
||||
ITEM "3|Mensile"
|
||||
FIELD PERFAT
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 50 6
|
||||
BEGIN
|
||||
PROMPT 31 1 ""
|
||||
END
|
||||
|
||||
DATE F_INPERFAT
|
||||
BEGIN
|
||||
PROMPT 32 2 "Inizio primo periodo di fatturazione"
|
||||
FIELD INPERFAT
|
||||
END
|
||||
|
||||
DATE F_DTLASTFAT
|
||||
BEGIN
|
||||
PROMPT 32 3 "Data ultima fattura "
|
||||
FIELD DTLASTFAT
|
||||
END
|
||||
|
||||
CURRENCY F_IMPMINFAT 15
|
||||
BEGIN
|
||||
PROMPT 32 4 "Importo minimo fatturabile "
|
||||
FIELD IMPMINFAT
|
||||
END
|
||||
|
||||
BOOLEAN F_FATTSOSP
|
||||
BEGIN
|
||||
PROMPT 32 5 "Escluso da fatturazione"
|
||||
FIELD FATTSOSP
|
||||
END
|
||||
|
||||
GROUPBOX DLG_NULL 38 9
|
||||
BEGIN
|
||||
PROMPT 1 7 "@bTipo canone"
|
||||
END
|
||||
|
||||
RADIOBUTTON F_TIPOCAN 1 38
|
||||
BEGIN
|
||||
PROMPT 1 7 ""
|
||||
ITEM "0|Nessuno"
|
||||
ITEM "1|Importo fisso"
|
||||
ITEM "2|Raggruppa su unico art."
|
||||
ITEM "3|Calcolato con elenco art."
|
||||
ITEM "4|% sul val. convenzionale per cliente"
|
||||
ITEM "5|% sul val. convenzionale per articolo"
|
||||
FIELD TIPOCAN
|
||||
END
|
||||
|
||||
RADIOBUTTON F_TIPOLIS 1 25
|
||||
BEGIN
|
||||
PROMPT 40 7 "@bTipo Listino:"
|
||||
ITEM "0|Prezzo nel contratto"
|
||||
ITEM "1|Listino in anag.Articoli"
|
||||
FIELD TIPOLIS
|
||||
END
|
||||
|
||||
RADIOBUTTON F_TIPOIMB 1 14
|
||||
BEGIN
|
||||
PROMPT 66 7 "@bTipo imballo:"
|
||||
ITEM "0|Sacco"
|
||||
ITEM "1|Carrello"
|
||||
FIELD TIPOIMB
|
||||
END
|
||||
|
||||
RADIOBUTTON F_TIPOSTPRZ 1 40
|
||||
BEGIN
|
||||
PROMPT 40 11 "@bTipo di stampa prezzo"
|
||||
ITEM "0|Prezzo in DDT/Bolla"
|
||||
ITEM "1|Richiesta stampa in sede bollettaz."
|
||||
ITEM "2|Prezzo e totale DOC. in DDT"
|
||||
FIELD TIPOSTPRZ
|
||||
END
|
||||
|
||||
NUMBER F_PERCNOCONT 6 2
|
||||
BEGIN
|
||||
PROMPT 1 16 "Percentuale aumento per mancato conteggio "
|
||||
FIELD PERCNOCONT
|
||||
END
|
||||
|
||||
NUMBER F_PERCTOLPES 6 2
|
||||
BEGIN
|
||||
PROMPT 1 17 "Percentuale tolleranza peso teorico/effettivo"
|
||||
FIELD PERCTOLPES
|
||||
END
|
||||
|
||||
NUMBER F_NUMUT 5
|
||||
BEGIN
|
||||
PROMPT 60 16 "Num. utente "
|
||||
FIELD NUMUT
|
||||
END
|
||||
|
||||
NUMBER F_NUMETI 5
|
||||
BEGIN
|
||||
PROMPT 60 17 "Num. etichette"
|
||||
FIELD NUMETI
|
||||
END
|
||||
|
||||
STRING F_CAUSMAG 4
|
||||
BEGIN
|
||||
PROMPT 1 18 "Causale di default:"
|
||||
USE CAU
|
||||
INPUT CODTAB F_CAUSMAG
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT F_CAUSMAG CODTAB
|
||||
OUTPUT F_CAUSMAGDESC S0
|
||||
FIELD CAUSMAG
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
STRING F_CAUSMAGDESC 50
|
||||
BEGIN
|
||||
PROMPT 1 19 "Descrizione "
|
||||
USE CAU KEY 2
|
||||
INPUT S0 F_CAUSMAGDESC
|
||||
DISPLAY "Descrizione@50" S0
|
||||
DISPLAY "Codice" CODTAB
|
||||
COPY OUTPUT F_CAUSMAG
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
RADIOBUTTON F_CONTSPOR 1 80
|
||||
BEGIN
|
||||
PROMPT 1 20 "@bConta dello sporco"
|
||||
ITEM "0|Nessuno"
|
||||
ITEM "1|Sporco"
|
||||
ITEM "2|Solo pulito"
|
||||
ITEM "3|Touch-Screen"
|
||||
FIELD CONTSPOR
|
||||
FLAG "Z"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Opzioni 2" 0 2 0 0
|
||||
|
||||
GROUPBOX DLG_NULL 58 16
|
||||
BEGIN
|
||||
PROMPT 15 2 ""
|
||||
END
|
||||
|
||||
BOOLEAN F_ATTFATNODT
|
||||
BEGIN
|
||||
PROMPT 16 3 "Attiva fatturazione indipendentemente dalla data"
|
||||
FIELD ATTFATNODT
|
||||
END
|
||||
|
||||
BOOLEAN F_FORFNOCONS
|
||||
BEGIN
|
||||
PROMPT 16 4 "Non fatturare forfait se senza consegne"
|
||||
FIELD FORFNOCONS
|
||||
END
|
||||
|
||||
BOOLEAN F_SSCONS
|
||||
BEGIN
|
||||
PROMPT 16 5 "Spese di spedizione alla consegna"
|
||||
FIELD SSCONS
|
||||
END
|
||||
|
||||
BOOLEAN F_RIFBOLFAT
|
||||
BEGIN
|
||||
PROMPT 16 6 "Riferimenti bolle in fattura"
|
||||
FIELD RIFBOLFAT
|
||||
END
|
||||
|
||||
BOOLEAN F_ADDCAPROT
|
||||
BEGIN
|
||||
PROMPT 16 7 "Addebita capi rotti in fattura"
|
||||
FIELD ADDCAPROT
|
||||
END
|
||||
|
||||
BOOLEAN F_PROFORME
|
||||
BEGIN
|
||||
PROMPT 16 8 "Proforme(progetti)"
|
||||
FIELD PROFORME
|
||||
END
|
||||
|
||||
BOOLEAN F_STRCONS
|
||||
BEGIN
|
||||
PROMPT 16 9 "Stampa di riepilogo consegne"
|
||||
FIELD STRCONS
|
||||
END
|
||||
|
||||
BOOLEAN F_CICLAGGIO
|
||||
BEGIN
|
||||
PROMPT 16 10 "Ciclaggio su 2 righe"
|
||||
FIELD CICLAGGIO
|
||||
END
|
||||
|
||||
BOOLEAN F_STPRZBOL
|
||||
BEGIN
|
||||
PROMPT 16 11 "Visualizza prezzo in bolla"
|
||||
FIELD STPRZBOL
|
||||
END
|
||||
|
||||
BOOLEAN F_STETIMATI
|
||||
BEGIN
|
||||
PROMPT 16 12 "Stampa etichette con MATI"
|
||||
FIELD STETIMATI
|
||||
END
|
||||
|
||||
BOOLEAN F_STETITS
|
||||
BEGIN
|
||||
PROMPT 16 13 "Stampa etic. con Touch-Screen"
|
||||
FIELD STETITS
|
||||
END
|
||||
|
||||
BOOLEAN F_STDDTPTS
|
||||
BEGIN
|
||||
PROMPT 16 14 "Stampa DDT da pulito con Touch-Screen"
|
||||
FIELD STDDTPTS
|
||||
END
|
||||
|
||||
BOOLEAN F_STDICITURA
|
||||
BEGIN
|
||||
PROMPT 16 15 "Stampa dicitura '..COME DA ELENCO CONSEGNE'"
|
||||
FIELD STDICITURA
|
||||
END
|
||||
|
||||
BOOLEAN F_RITAUDTTMP
|
||||
BEGIN
|
||||
PROMPT 16 16 "Ritiro automatico dotazione temporanea"
|
||||
FIELD RITAUDTTMP
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
|
||||
PAGE "" -1 -1 80 20
|
||||
|
||||
GROUPBOX DLG_NULL 78 3
|
||||
BEGIN
|
||||
PROMPT 1 1 "@bArt"
|
||||
END
|
||||
|
||||
STRING S_CODART 20
|
||||
BEGIN
|
||||
PROMPT 1 2 ""
|
||||
FLAGS "U"
|
||||
USE LF_ANAMAG
|
||||
INPUT CODART S_CODART
|
||||
DISPLAY "Articolo" CODART
|
||||
DISPLAY "Descrizione@50" DESCR
|
||||
OUTPUT S_CODART CODART
|
||||
OUTPUT S_DESCR DESCR
|
||||
OUTPUT S_PREZZOST COSTSTD
|
||||
FIELD CODART
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
STRING S_DESCR 50
|
||||
BEGIN
|
||||
PROMPT 26 2 ""
|
||||
USE LF_ANAMAG KEY 2
|
||||
INPUT DESCR S_DESCR
|
||||
DISPLAY "Descrizone@50" DESCR
|
||||
DISPLAY "Articolo" CODART
|
||||
COPY OUTPUT S_CODART
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
CURRENCY S_PREZZOST 15
|
||||
BEGIN
|
||||
PROMPT 1 4 "Prezzo in vigore "
|
||||
FIELD PREZZO
|
||||
END
|
||||
|
||||
CURRENCY S_PREZZORN 15
|
||||
BEGIN
|
||||
PROMPT 45 4 "Prezzo di rinnovo "
|
||||
FIELD PREZRIN
|
||||
END
|
||||
|
||||
CURRENCY S_IMPFISART 15
|
||||
BEGIN
|
||||
PROMPT 1 5 "Importo fisso "
|
||||
FIELD IMPFISART
|
||||
END
|
||||
|
||||
NUMBER S_SCONTO 6 2
|
||||
BEGIN
|
||||
PROMPT 45 5 "Sconto % "
|
||||
FIELD SCONTPERC
|
||||
END
|
||||
|
||||
NUMBER S_CONG 9
|
||||
BEGIN
|
||||
PROMPT 1 6 "Conguaglio "
|
||||
FIELD QTACONG
|
||||
END
|
||||
|
||||
CURRENCY S_VALCONV 15
|
||||
BEGIN
|
||||
PROMPT 45 6 "Val. convenzionale"
|
||||
FLAGS "U"
|
||||
FIELD VALCONV
|
||||
END
|
||||
|
||||
LISTBOX S_ARTBLOC 25
|
||||
BEGIN
|
||||
PROMPT 1 7 "Articolo bloccato "
|
||||
ITEM "0|Nessuna"
|
||||
ITEM "1|Articolo in sostituzione"
|
||||
ITEM "2|Cliente in chiusura"
|
||||
ITEM "3|Contratto in rinnovo"
|
||||
FIELD ARTBLOC
|
||||
END
|
||||
|
||||
STRING S_UM 2
|
||||
BEGIN
|
||||
PROMPT 59 7 "Unità di misura"
|
||||
USE LF_UMART KEY 2
|
||||
JOIN UMS INTO CODTAB=UM
|
||||
INPUT CODART S_CODART SELECT
|
||||
INPUT UM S_UM
|
||||
DISPLAY "U.M." UM
|
||||
DISPLAY "Descrione@50" LF_TAB->S0
|
||||
OUTPUT S_UM UM
|
||||
FIELD UM
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
LISTBOX S_TIPOFORF 34
|
||||
BEGIN
|
||||
PROMPT 1 8 "Tipo Forfait"
|
||||
ITEM "0|Nessuno"
|
||||
ITEM "1|A valore fisso"
|
||||
ITEM "2|Nolo in base a dot. iniziale"
|
||||
ITEM "3|Nolo in base a dot. odierna"
|
||||
ITEM "4|Ciclaggio in base a dot. odierna"
|
||||
ITEM "5|Ciclaggio in base a dot. iniziale"
|
||||
ITEM "6|% sul val. convenz. per articolo"
|
||||
ITEM "7|% sul val. convenz. per cliente"
|
||||
ITEM "8|Fisso in base alla dot. iniziale"
|
||||
FIELD TIPOFORF
|
||||
END
|
||||
|
||||
NUMBER S_FORFPERCL 6 2
|
||||
BEGIN
|
||||
PROMPT 55 8 "% Forfait cliente"
|
||||
FIELD FORFPERCL
|
||||
END
|
||||
|
||||
CURRENCY S_PREZDAN 15
|
||||
BEGIN
|
||||
PROMPT 1 9 "Prezzo danneggiati "
|
||||
FLAGS "U"
|
||||
FIELD PREZDAN
|
||||
END
|
||||
|
||||
STRING S_CAUSMAG 4
|
||||
BEGIN
|
||||
PROMPT 52 9 "Causale di default: "
|
||||
USE CAU
|
||||
INPUT CODTAB S_CAUSMAG
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@50" S0
|
||||
OUTPUT S_CAUSMAG CODTAB
|
||||
FIELD CAUSMAG
|
||||
CHECKTYPE NORMAL
|
||||
END
|
||||
|
||||
LISTBOX S_CALCCONS 26
|
||||
BEGIN
|
||||
PROMPT 14 10 "Calcolo del consegnato "
|
||||
ITEM "0|Conguaglio alla confezione"
|
||||
ITEM "1|Uguale al ritirato"
|
||||
FIELD CALCCONS
|
||||
END
|
||||
|
||||
NUMBER S_CONSMESE 9
|
||||
BEGIN
|
||||
PROMPT 14 11 "Qtà. consegnata nel mese "
|
||||
FIELD CONSMESE
|
||||
END
|
||||
|
||||
NUMBER S_CONSANNO 9
|
||||
BEGIN
|
||||
PROMPT 14 12 "Qtà. consegnata nell'anno "
|
||||
FIELD CONSANNO
|
||||
END
|
||||
|
||||
NUMBER S_DOTIN 9
|
||||
BEGIN
|
||||
PROMPT 1 13 "Dotazione iniziale "
|
||||
FIELD DOTIN
|
||||
END
|
||||
|
||||
NUMBER S_DOTOD 9
|
||||
BEGIN
|
||||
PROMPT 40 13 "Dotazione odierna "
|
||||
FIELD DOTOD
|
||||
END
|
||||
|
||||
NUMBER S_DOTTMP 9
|
||||
BEGIN
|
||||
PROMPT 1 14 "Dotazione temporanea "
|
||||
FIELD DOTTMP
|
||||
END
|
||||
|
||||
CURRENCY S_PRZDTTMP 15
|
||||
BEGIN
|
||||
PROMPT 40 14 "Prezzo dot. temporanea"
|
||||
FLAGS "U"
|
||||
FIELD PRZDTTMP
|
||||
END
|
||||
|
||||
DATE S_INDTTMP
|
||||
BEGIN
|
||||
PROMPT 1 15 "Inizio dot. temporanea "
|
||||
FIELD INDTTMP
|
||||
END
|
||||
|
||||
DATE S_FIDTTMP
|
||||
BEGIN
|
||||
PROMPT 40 15 "Fine dot. temporanea "
|
||||
FIELD FIDTTMP
|
||||
END
|
||||
|
||||
LISTBOX S_TIPONOL 15
|
||||
BEGIN
|
||||
PROMPT 1 16 "Tipo Noleggio"
|
||||
FIELD TIPONOL
|
||||
FLAGS "D"
|
||||
END
|
||||
|
||||
BOOLEAN S_RITAUDTTMP
|
||||
BEGIN
|
||||
PROMPT 40 16 "Ritiro automatico dotazione temporanea"
|
||||
FIELD RITAUDTTMP
|
||||
END
|
||||
|
||||
BOOLEAN S_FATTKG
|
||||
BEGIN
|
||||
PROMPT 1 17 "Fatturazione a Kg."
|
||||
FIELD FATTKG
|
||||
END
|
||||
|
||||
BOOLEAN S_ARROT
|
||||
BEGIN
|
||||
PROMPT 40 17 "Arrotondamento"
|
||||
FIELD ARROT
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 10 2
|
||||
BEGIN
|
||||
PROMPT -13 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_DELREC 10 2
|
||||
BEGIN
|
||||
PROMPT -23 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_CANCEL 10 2
|
||||
BEGIN
|
||||
PROMPT -33 -1 ""
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
|
||||
@ -1,3 +1,3 @@
|
||||
47
|
||||
0
|
||||
$anamag|0|0|833|0|Anagrafica di magazzino|NART||
|
||||
$anamag|0|0|878|0|Anagrafica di magazzino|NART||
|
||||
|
||||
16
ve/f47.trr
16
ve/f47.trr
@ -1,5 +1,5 @@
|
||||
47
|
||||
75
|
||||
85
|
||||
CODART|1|20|0|Codice Articolo
|
||||
DESCR|1|50|0|Descrizione
|
||||
DESCRAGG|11|10|0|Descrizione aggiuntiva
|
||||
@ -62,9 +62,19 @@ COLLTYPE|1|1|0|Tipo collegamento DB
|
||||
CODMAG|1|5|0|Codice magazzino
|
||||
VALDIST|2|2|0|Tipo di Valorizzazione per Distinta Base
|
||||
DATAVDIST|5|8|0|Data di inizio Valorizzazione Distinta Base
|
||||
SOSPESO|8|1|0|Codice sospeso (obsoleto)
|
||||
SOSPESO|8|1|0|Codice sospeso
|
||||
REPARTO|1|3|0|Codice reparto
|
||||
STAGIONE|1|4|0|Codcie Stagione
|
||||
STAGIONE|1|4|0|Codice Stagione
|
||||
COLORE|1|20|0|Colore (Lavanderie)
|
||||
LIVELLO|1|1|0|Livello (Lavanderie)
|
||||
TIPOPARTE|1|1|0|Tipo Parte (Lavanderie)
|
||||
CODLAV1|1|3|0|Cod. Lavaggio 1 (Lavanderie)
|
||||
CODLAV2|1|3|0|Cod. Lavaggio 2 (Lavanderie)
|
||||
LINDEST1|1|3|0|Linea destinazione 1 (Lavanderie)
|
||||
LINDEST2|1|3|0|Linea destinzaione 2 (Lavanderie)
|
||||
LAVATRICE|1|3|0|Lavatrice (Lavanderie)
|
||||
ARTLAVCONT|1|4|0|Art. Lavacont (Lavanderie)
|
||||
MANGDEST|1|3|0|Mangano destinazione (Lavanderie)
|
||||
USER1|1|40|0|Campo libero 1
|
||||
USER2|1|20|0|Campo libero 2
|
||||
USER3|1|20|0|Campo libero 3
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user