Aggiunto storico giacenze e modificate maschere
git-svn-id: svn://10.65.10.50/trunk@4196 c028cbd2-c16b-5b4b-a496-9718f37d4682
This commit is contained in:
augusto
parent
6370101038
commit
99877066c8
35
ve/ve2400.h
35
ve/ve2400.h
@ -62,32 +62,23 @@
|
||||
#define F_RICARICO 174
|
||||
#define F_RIORDINO 175
|
||||
|
||||
#define F_INDBILA 176
|
||||
#define F_INDBILV 177
|
||||
|
||||
#define F_ANNO 180
|
||||
#define F_ANNORIF 181
|
||||
#define H_ANNO 182
|
||||
|
||||
/*
|
||||
#define F_DESLIV1 180
|
||||
#define F_DESLIV2 181
|
||||
#define F_DESLIV3 182
|
||||
#define F_DESLIV4 183
|
||||
#define F_LOADLIV 184
|
||||
#define F_LOADLIV1 185
|
||||
#define F_LOADLIV2 186
|
||||
#define F_LOADLIV3 187
|
||||
#define F_LOADLIV4 188
|
||||
#define F_LENLIV1 189
|
||||
#define F_LENLIV2 190
|
||||
#define F_LENLIV3 191
|
||||
#define F_LENLIV4 192
|
||||
#define H_ANNO 180
|
||||
#define F_ANNO 181
|
||||
#define F_ANNORIF 182
|
||||
|
||||
#define F_STOANNO 183
|
||||
#define F_STOANNORIF 184
|
||||
|
||||
*/
|
||||
|
||||
#define F_SHEETUM 200
|
||||
#define F_SHEETDESLIN 201
|
||||
#define F_SHEETCOD 202
|
||||
#define F_SHEETGIAC 203
|
||||
#define F_SHEETSTOMAG 204
|
||||
|
||||
// definizioni per l'archivio di misura articoli
|
||||
#define FS_CODUM 101
|
||||
@ -103,5 +94,13 @@
|
||||
#define FS_CODARTALT 101
|
||||
#define FS_TIPO 102
|
||||
|
||||
// definizioni per l'archivio giacenze
|
||||
#include "ve2400d.h"
|
||||
|
||||
// definizioni per l'archivio storico giacenze
|
||||
#define F_STOANNOES 101
|
||||
#define F_STOUM 102
|
||||
#define F_STOQUANT 103
|
||||
#define F_STOPREZZO 104
|
||||
#define F_STOCODART 120
|
||||
|
||||
|
||||
@ -5,7 +5,7 @@ TOOLBAR "" 0 20 60 2
|
||||
#include <toolbar.h>
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Definizione" 0 0 70 20
|
||||
PAGE "Pagina 1" 0 0 70 20
|
||||
|
||||
GROUPBOX DLG_NULL 78 4
|
||||
BEGIN
|
||||
@ -95,8 +95,11 @@ END
|
||||
SPREADSHEET F_SHEETCOD 71 5
|
||||
BEGIN
|
||||
PROMPT 2 8 "Codici alternativi"
|
||||
ITEM "Cod. art.@20"
|
||||
ITEM "Tipo@10"
|
||||
FLAGS "A"
|
||||
USE LF_CODCORR KEY NRIGA
|
||||
INPUT CODART F_CODART
|
||||
ITEM "Cod. art.@20"
|
||||
ITEM "Tipo@10"
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
@ -107,6 +110,9 @@ END
|
||||
SPREADSHEET F_SHEETDESLIN 71 5
|
||||
BEGIN
|
||||
PROMPT 2 15 "Descrizioni in lingua"
|
||||
FLAGS "A"
|
||||
USE LF_DESLIN KEY NRIGA
|
||||
INPUT CODART F_CODART
|
||||
ITEM "Cod. lingua"
|
||||
ITEM "Descrizione@50"
|
||||
END
|
||||
@ -117,7 +123,7 @@ ENDPAGE
|
||||
|
||||
|
||||
|
||||
PAGE "Categorie" 0 0 70 20
|
||||
PAGE "Pagina 2" 0 0 70 20
|
||||
|
||||
STRING F_GRMERC 3
|
||||
BEGIN
|
||||
@ -286,10 +292,12 @@ END
|
||||
|
||||
NUMBER F_SOTTOCA 6
|
||||
BEGIN
|
||||
|
||||
PROMPT 26 9 ""
|
||||
FIELD LF_ANAMAG->SOTTOCA
|
||||
GROUP 12
|
||||
USE LF_PCON SELECT INDBIL=="3"
|
||||
USE LF_PCON SELECT (500@->INDBIL=="3")
|
||||
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
|
||||
INPUT GRUPPO F_GRUPPOA
|
||||
INPUT CONTO F_CONTOA
|
||||
INPUT SOTTOCONTO F_SOTTOCA
|
||||
@ -302,9 +310,11 @@ BEGIN
|
||||
OUTPUT F_SOTTOCA SOTTOCONTO
|
||||
OUTPUT F_DESCRA DESCR
|
||||
CHECKTYPE NORMAL
|
||||
WARNING "Il conto deve essere un costo"
|
||||
WARNING "Sottoconto errato"
|
||||
// WARNING "Il conto deve essere un costo"
|
||||
END
|
||||
|
||||
|
||||
STRING F_DESCRA 40
|
||||
BEGIN
|
||||
PROMPT 36 9 ""
|
||||
@ -376,7 +386,8 @@ BEGIN
|
||||
PROMPT 26 11 ""
|
||||
FIELD LF_ANAMAG->SOTTOCV
|
||||
GROUP 22
|
||||
USE LF_PCON SELECT INDBIL=="4"
|
||||
USE LF_PCON SELECT (500@->INDBIL=="4")
|
||||
JOIN LF_PCON ALIAS 500 INTO GRUPPO==GRUPPO CONTO==CONTO
|
||||
INPUT GRUPPO F_GRUPPOV
|
||||
INPUT CONTO F_CONTOV
|
||||
INPUT SOTTOCONTO F_SOTTOCV
|
||||
@ -522,7 +533,7 @@ ENDPAGE
|
||||
|
||||
|
||||
|
||||
PAGE "Produzione/vendita" 0 0 70 20
|
||||
PAGE "Pagina 3" 0 0 70 20
|
||||
|
||||
STRING F_UMP 3
|
||||
BEGIN
|
||||
@ -547,6 +558,9 @@ END
|
||||
SPREADSHEET F_SHEETUM 77 5
|
||||
BEGIN
|
||||
PROMPT 2 3 "Unità di misura "
|
||||
FLAGS "A"
|
||||
USE LF_UMART KEY NRIGA
|
||||
INPUT CODART F_CODART
|
||||
ITEM "U.M."
|
||||
ITEM "F. conversione"
|
||||
ITEM "Prezzo netto@18"
|
||||
@ -555,8 +569,8 @@ END
|
||||
|
||||
NUMBER F_PESO 15 5
|
||||
BEGIN
|
||||
PROMPT 1 10 "Peso "
|
||||
FIELD LF_ANAMAG->PESO
|
||||
PROMPT 1 10 "Peso "
|
||||
FIELD LF_ANAMAG->PESO
|
||||
VALIDATE REQIF_FUNC 1 F_TARA
|
||||
WARNING "Necessario introdurre il peso se si è introdotta la tara"
|
||||
END
|
||||
@ -650,7 +664,7 @@ ENDPAGE
|
||||
|
||||
|
||||
|
||||
PAGE "Giacenze" 0 0 70 20
|
||||
PAGE "Pagina 4" 0 0 70 20
|
||||
|
||||
// Anno relativo alle giacenze
|
||||
NUMBER H_ANNO 4
|
||||
@ -667,7 +681,7 @@ BEGIN
|
||||
WARNING "L'anno deve essere non superiore al corrente e non inferiore a 10 anni precedenti"
|
||||
END
|
||||
|
||||
NUMBER F_ANNORIF 4 // anno usato per il write
|
||||
NUMBER F_ANNORIF 4 // anno usato per il write dell'annata precedente
|
||||
BEGIN
|
||||
PROMPT 2 2 "Anno considerato "
|
||||
FLAGS "AD"
|
||||
@ -678,7 +692,7 @@ BEGIN
|
||||
PROMPT 3 4 "Giacenze"
|
||||
END
|
||||
|
||||
SPREADSHEET F_SHEETGIAC 77 5
|
||||
SPREADSHEET F_SHEETGIAC 77 10
|
||||
BEGIN
|
||||
PROMPT 2 5 "Giacenze"
|
||||
ITEM "Mag."
|
||||
@ -717,6 +731,40 @@ BEGIN
|
||||
// ITEM "Giorni rior.@10"
|
||||
// ITEM "N.dist."
|
||||
END
|
||||
ENDPAGE
|
||||
PAGE "Pagina 5" 0 0 70 20
|
||||
|
||||
NUMBER F_STOANNO 4
|
||||
BEGIN
|
||||
PROMPT 42 2 "Vai all'anno "
|
||||
FLAGS "AU"
|
||||
NUM_EXPR (#F_STOANNO<=#H_ANNO)&&(#F_STOANNO>=(#H_ANNO-"10"))
|
||||
WARNING "L'anno deve essere non superiore al corrente e non inferiore a 10 anni precedenti"
|
||||
END
|
||||
|
||||
NUMBER F_STOANNORIF 4 // anno usato per il write dell'annata precedente
|
||||
BEGIN
|
||||
PROMPT 2 2 "Anno considerato "
|
||||
FLAGS "AD"
|
||||
END
|
||||
|
||||
TEXT DLG_NULL
|
||||
BEGIN
|
||||
PROMPT 3 4 "Storico Giacenze"
|
||||
END
|
||||
|
||||
SPREADSHEET F_SHEETSTOMAG 77 10
|
||||
BEGIN
|
||||
PROMPT 2 5 "Storico Giacenze"
|
||||
FLAGS "A"
|
||||
USE LF_STOMAG KEY NRIGA
|
||||
INPUT ANNOESRIF F_STOANNO
|
||||
INPUT CODART F_CODART
|
||||
ITEM "Esercizio@10"
|
||||
ITEM "U.M.@10"
|
||||
ITEM "Quantità@15"
|
||||
ITEM "Valore@15"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
@ -726,5 +774,6 @@ ENDMASK
|
||||
#include "ve2400b.uml"
|
||||
#include "ve2400a.uml"
|
||||
#include "ve2400d.uml"
|
||||
#include "ve2400e.uml"
|
||||
|
||||
|
||||
|
||||
@ -12,7 +12,7 @@ BEGIN
|
||||
DISPLAY "Codice" CODTAB
|
||||
DISPLAY "Descrizione@30" S0
|
||||
OUTPUT FS_CODLIN CODTAB
|
||||
OUTPUT FS_DESCR S0
|
||||
// OUTPUT FS_DESCR S0
|
||||
CHECKTYPE REQUIRED
|
||||
WARNING "Codice lingua errato"
|
||||
END
|
||||
|
||||
@ -14,12 +14,12 @@ END
|
||||
LISTBOX FS_TIPO 10
|
||||
BEGIN
|
||||
PROMPT 2 4 "Tipo di codice "
|
||||
FIELD LF_CODCORR->TIPO
|
||||
ITEM "N|Normale"
|
||||
ITEM "8|EAN8 "
|
||||
ITEM "1|EA13 "
|
||||
ITEM "3|3/9 "
|
||||
ITEM "C|Codabar"
|
||||
FIELD LF_CODCORR->TIPO
|
||||
END
|
||||
|
||||
BUTTON DLG_OK 9 2
|
||||
|
||||
73
ve/ve2400e.uml
Executable file
73
ve/ve2400e.uml
Executable file
@ -0,0 +1,73 @@
|
||||
TOOLBAR "" 0 20 60 2
|
||||
|
||||
BUTTON DLG_OK 9 2
|
||||
BEGIN
|
||||
PROMPT -13 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_CANCEL 9 2
|
||||
BEGIN
|
||||
PROMPT -23 -1 ""
|
||||
END
|
||||
|
||||
BUTTON DLG_DELREC 9 2
|
||||
BEGIN
|
||||
PROMPT -33 -1 "Elimina"
|
||||
MESSAGE EXIT,K_DEL
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
PAGE "Storico giacenze" -1 -1 80 23
|
||||
|
||||
NUMBER F_STOANNOES 4
|
||||
BEGIN
|
||||
PROMPT 2 4 "Codice esercizio "
|
||||
FIELD LF_STOMAG->ANNOES
|
||||
USE ESC
|
||||
INPUT CODTAB F_STOANNOES
|
||||
DISPLAY "Esercizio @15" CODTAB
|
||||
DISPLAY "D. Inizio@15" D0
|
||||
DISPLAY "D. Fine@15" D1
|
||||
OUTPUT F_STOANNOES CODTAB
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
STRING F_STOUM 2
|
||||
BEGIN
|
||||
PROMPT 2 6 "Unità di misura "
|
||||
FLAGS "U"
|
||||
FIELD LF_STOMAG->UM
|
||||
USE LF_UMART KEY 2
|
||||
INPUT CODART F_STOCODART SELECT
|
||||
INPUT UM F_STOUM
|
||||
DISPLAY "U.M.@20" UM
|
||||
OUTPUT F_STOUM UM
|
||||
CHECKTYPE REQUIRED
|
||||
END
|
||||
|
||||
NUMBER F_STOQUANT 15 5
|
||||
BEGIN
|
||||
PROMPT 2 8 "Quantità "
|
||||
FIELD LF_STOMAG->QUANT
|
||||
CHECKTYPE REQUIRED
|
||||
WARNING "Indicare la quantità"
|
||||
END
|
||||
|
||||
NUMBER F_STOPREZZO 18 3
|
||||
BEGIN
|
||||
PROMPT 2 10 "Valore "
|
||||
FIELD LF_STOMAG->VALORE
|
||||
CHECKTYPE REQUIRED
|
||||
WARNING "Indicare il prezzo"
|
||||
END
|
||||
|
||||
STRING F_STOCODART 20
|
||||
BEGIN
|
||||
PROMPT 2 1 "Codice art. "
|
||||
FLAGS "H"
|
||||
END
|
||||
|
||||
ENDPAGE
|
||||
|
||||
ENDMASK
|
||||
Loading…
x
Reference in New Issue
Block a user