ced5bcadbc
Files correlati : Ricompilazione Demo : [ ] Commento : ammodernate maschere git-svn-id: svn://10.65.10.50/trunk@18501 c028cbd2-c16b-5b4b-a496-9718f37d4682
206 lines
2.6 KiB
Plaintext
Executable File
206 lines
2.6 KiB
Plaintext
Executable File
#include "velib04e.h"
|
|
|
|
TOOLBAR "Toolbar" 0 0 0 2
|
|
|
|
BUTTON DLG_OK 10 2
|
|
BEGIN
|
|
PROMPT -13 -11 "E~labora"
|
|
PICTURE BMP_ELABORA
|
|
END
|
|
|
|
BUTTON DLG_TUTTE 10 2
|
|
BEGIN
|
|
PROMPT -23 -11 "~Tutte"
|
|
END
|
|
|
|
#include <helpbar.h>
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Consuntivazione produzione" 0 0 0 0
|
|
|
|
SPREADSHEET F_SHEET
|
|
BEGIN
|
|
PROMPT 0 1 ""
|
|
ITEM "@1"
|
|
ITEM "Articolo@20"
|
|
ITEM "Progr."
|
|
ITEM "Data Ord.@10"
|
|
ITEM "Impianto"
|
|
ITEM "Linea"
|
|
ITEM "Data Prod."
|
|
ITEM "Quantita'@15"
|
|
ITEM "Chiuso"
|
|
ITEM "Provv.@5"
|
|
ITEM "Anno"
|
|
ITEM "Cod.Num."
|
|
ITEM "Numero"
|
|
ITEM "Riga"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|
|
PAGE "Riga 1" -1 -1 78 13
|
|
|
|
GROUPBOX DLG_NULL 76 8
|
|
BEGIN
|
|
PROMPT 1 0 "@bArticolo"
|
|
END
|
|
|
|
BOOLEAN S_SELECTED
|
|
BEGIN
|
|
PROMPT 41 0 "Selezionato"
|
|
END
|
|
|
|
STRING S_CODART 20
|
|
BEGIN
|
|
PROMPT 2 1 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING S_DESCR_ART 40 50
|
|
BEGIN
|
|
PROMPT 24 1 ""
|
|
USE LF_ANAMAG
|
|
INPUT CODART S_CODART
|
|
OUTPUT S_DESCR_ART DESCR
|
|
CHECKTYPE NORMAL
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER S_PROG 4
|
|
BEGIN
|
|
PROMPT 2 2 "Progressivo "
|
|
FLAGS "DU"
|
|
END
|
|
|
|
DATE S_DATA
|
|
BEGIN
|
|
PROMPT 32 2 "Data ordine "
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRINGA S_IMPIANTO 5
|
|
BEGIN
|
|
PROMPT 2 4 "Impianto "
|
|
USE IMP
|
|
INPUT CODTAB S_IMPIANTO
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT S_IMPIANTO CODTAB
|
|
OUTPUT S_DESCR_IMPIANTO S0
|
|
CHECKTYPE NORMAL
|
|
FLAGS "UD"
|
|
END
|
|
|
|
STRINGA S_DESCR_IMPIANTO 50
|
|
BEGIN
|
|
PROMPT 22 4 ""
|
|
USE IMP KEY 2
|
|
INPUT S0 S_DESCR_IMPIANTO
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice" CODTAB
|
|
COPY OUTPUT S_IMPIANTO
|
|
FLAGS "D"
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
|
|
STRINGA S_LINEA 5
|
|
BEGIN
|
|
PROMPT 2 5 "Linea "
|
|
USE LNP
|
|
INPUT CODTAB S_LINEA
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT S_LINEA CODTAB
|
|
OUTPUT S_DESCR_LINEA S0
|
|
CHECKTYPE NORMAL
|
|
FLAGS "UD"
|
|
END
|
|
|
|
STRINGA S_DESCR_LINEA 50
|
|
BEGIN
|
|
PROMPT 22 5 ""
|
|
USE LNP KEY 2
|
|
INPUT S0 S_DESCR_LINEA
|
|
DISPLAY "Descrizione@50" S0
|
|
DISPLAY "Codice" CODTAB
|
|
COPY OUTPUT S_LINEA
|
|
FLAGS "D"
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
DATE S_DATAPROD
|
|
BEGIN
|
|
PROMPT 32 2 "Data produzione "
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER S_QTA 15 5
|
|
BEGIN
|
|
PROMPT 2 6 "Quantita'"
|
|
FLAGS "D"
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
BOOLEAN S_CHIUSO
|
|
BEGIN
|
|
PROMPT 42 6 "Chiuso"
|
|
FLAGS "D"
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 78 4
|
|
BEGIN
|
|
PROMPT 1 8 "@bDocumento"
|
|
END
|
|
|
|
RADIOBUTTON S_PROVV 1 36
|
|
BEGIN
|
|
PROMPT 2 8 ""
|
|
ITEM "D|Definitivo"
|
|
ITEM "P|Provvisorio"
|
|
FLAGS "DZ"
|
|
END
|
|
|
|
NUMBER S_ANNO 4
|
|
BEGIN
|
|
PROMPT 42 9 "Anno "
|
|
FLAGS "DU"
|
|
END
|
|
|
|
STRING S_CODNUM 4
|
|
BEGIN
|
|
PROMPT 2 10 "Numerazione "
|
|
FLAGS "DU"
|
|
END
|
|
|
|
NUMBER S_NDOC 7
|
|
BEGIN
|
|
PROMPT 22 10 "Numero "
|
|
FLAGS "DU"
|
|
END
|
|
|
|
NUMBER S_NRIGA 4
|
|
BEGIN
|
|
PROMPT 42 10 "Riga "
|
|
FLAGS "DU"
|
|
END
|
|
|
|
BUTTON DLG_OK 10 2
|
|
BEGIN
|
|
PROMPT -12 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 10 2
|
|
BEGIN
|
|
PROMPT -22 -1 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|