65126e81e2
Files correlati : lv3 lv3400a.msk Ricompilazione Demo : [ ] Commento : Aggiunto il campo codart sulla maschera e relativa gestionme a programma git-svn-id: svn://10.65.10.50/trunk@19977 c028cbd2-c16b-5b4b-a496-9718f37d4682
218 lines
2.8 KiB
Plaintext
Executable File
218 lines
2.8 KiB
Plaintext
Executable File
#include "lv3400a.h"
|
|
|
|
TOOLBAR "Topbar" 0 0 0 2
|
|
|
|
BUTTON DLG_SELECT 2 2
|
|
BEGIN
|
|
PROMPT 1 1 "Tutti/F3"
|
|
PICTURE TOOL_MULTISEL
|
|
MESSAGE EXIT,K_F3
|
|
END
|
|
|
|
BUTTON DLG_PREVIEW 2 2
|
|
BEGIN
|
|
PROMPT 1 1 "Check/F4"
|
|
PICTURE TOOL_PREVIEW
|
|
MESSAGE EXIT,K_F4
|
|
END
|
|
|
|
BUTTON DLG_ELABORA 2 2
|
|
BEGIN
|
|
PROMPT 1 1 "Evadi/F5"
|
|
PICTURE TOOL_ELABORA
|
|
MESSAGE EXIT,K_F5
|
|
END
|
|
|
|
BUTTON DLG_SAVEREC 2 2
|
|
BEGIN
|
|
PROMPT 1 1 "Salva/F6"
|
|
PICTURE TOOL_SAVEREC
|
|
MESSAGE EXIT,K_F6
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 2 2
|
|
BEGIN
|
|
PROMPT 1 1 "Canc/F7"
|
|
PICTURE TOOL_CANCEL
|
|
MESSAGE EXIT,K_F7
|
|
END
|
|
|
|
BUTTON DLG_QUIT 2 2
|
|
BEGIN
|
|
PROMPT 3 1 "Fine"
|
|
MESSAGE EXIT,K_QUIT
|
|
PICTURE TOOL_QUIT
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Evasione Buoni di prelievo" 0 2 0 0
|
|
|
|
STRING F_TCODNUM 4
|
|
BEGIN
|
|
PROMPT 0 0 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_TTPDOC 4
|
|
BEGIN
|
|
PROMPT 5 0 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_TDESCR 50 15
|
|
BEGIN
|
|
PROMPT 10 0 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_TCHIAVE 50 10
|
|
BEGIN
|
|
PROMPT 1 1 "Barcode Buono "
|
|
END
|
|
|
|
NUMBER F_TNDOC 6
|
|
BEGIN
|
|
PROMPT 1 2 "Numero Doc. "
|
|
USE LF_DOC SELECT (STATO>=2)
|
|
JOIN LF_CLIFO TO LF_DOC INTO TIPOCF==TIPOCF CODCF==CODCF
|
|
INPUT PROVV "D"
|
|
INPUT ANNO F_TANNO SELECT
|
|
INPUT CODNUM F_TCODNUM SELECT
|
|
INPUT NDOC F_TNDOC
|
|
DISPLAY "Ndoc@4" NDOC
|
|
DISPLAY "Data\ndocumento@10" DATADOC
|
|
DISPLAY "Cod\nCli@4" CODCF
|
|
DISPLAY "Ragione Sociale@10" LF_CLIFO->RAGSOC
|
|
OUTPUT F_TNDOC NDOC
|
|
OUTPUT F_TDATADOC DATADOC
|
|
OUTPUT F_TCODCF CODCF
|
|
OUTPUT F_TRAGSOC LF_CLIFO->RAGSOC
|
|
CHECKTYPE REQUIRED
|
|
FLAGS "G"
|
|
END
|
|
|
|
DATE F_TDATADOC
|
|
BEGIN
|
|
PROMPT 1 3 "Data Doc. "
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_TANNO 4
|
|
BEGIN
|
|
PROMPT 1 4 "Anno Esercizio "
|
|
END
|
|
|
|
DATE F_TDATAPRCO
|
|
BEGIN
|
|
PROMPT 1 5 "Prev Con. "
|
|
END
|
|
|
|
NUMBER F_TCODCF 6
|
|
BEGIN
|
|
PROMPT 1 0 "Cliente "
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_TRAGSOC 20
|
|
BEGIN
|
|
PROMPT 1 1 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_TBARCODE 50 12
|
|
BEGIN
|
|
PROMPT 1 4 "Barcode "
|
|
END
|
|
|
|
NUMBER F_TPACCHI 6
|
|
BEGIN
|
|
PROMPT 1 5 "Pacchi "
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_TQTAPACCO 6
|
|
BEGIN
|
|
PROMPT 1 6 "Quantità pacco"
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_TQTACON 6
|
|
BEGIN
|
|
PROMPT 1 7 "Quantità Cons."
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_TQTADACON 6
|
|
BEGIN
|
|
PROMPT 1 8 "Da Consegnare "
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_CODART 6
|
|
BEGIN
|
|
PROMPT 1 9 "Cod. Articolo "
|
|
FLAGS "D"
|
|
END
|
|
|
|
SPREADSHEET F_TRIGHE
|
|
BEGIN
|
|
PROMPT 0 3 "Righe"
|
|
ITEM "Articolo@6"
|
|
ITEM "Da Con.@4"
|
|
ITEM "Cons.@4"
|
|
END
|
|
|
|
STRING F_TBLANK 1
|
|
BEGIN
|
|
PROMPT 100 100 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|
|
PAGE "Riga" -1 -1 22 11
|
|
|
|
STRING S_TCODART 20 6
|
|
BEGIN
|
|
PROMPT 1 1 "Articolo "
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER S_TDACONS 4
|
|
BEGIN
|
|
PROMPT 1 2 "Da consegnare "
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER S_TCONS 4
|
|
BEGIN
|
|
PROMPT 1 3 "Quantità Cons."
|
|
FLAGS "D"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
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
|
|
|
|
ENDMASK |