052f240b78
Files correlati : lv3.exe lv3400a.msk Ricompilazione Demo : [ ] Commento : git-svn-id: svn://10.65.10.50/trunk@19698 c028cbd2-c16b-5b4b-a496-9718f37d4682
205 lines
2.7 KiB
Plaintext
Executable File
205 lines
2.7 KiB
Plaintext
Executable File
#include "lv3400a.h"
|
|
|
|
TOOLBAR "Topbar" 0 0 0 2
|
|
|
|
BUTTON DLG_SELECT 2 2
|
|
BEGIN
|
|
//PROMPT 1 1 "Tutti/F3"
|
|
PROMPT 1 1 "F3"
|
|
PICTURE TOOL_MULTISEL
|
|
MESSAGE EXIT,K_F3
|
|
END
|
|
|
|
BUTTON DLG_PREVIEW 2 2
|
|
BEGIN
|
|
//PROMPT 1 1 "Check/F4"
|
|
PROMPT 1 1 "F4"
|
|
PICTURE TOOL_PREVIEW
|
|
MESSAGE EXIT,K_F4
|
|
END
|
|
|
|
BUTTON DLG_ELABORA 2 2
|
|
BEGIN
|
|
//PROMPT 1 1 "Evadi/F5"
|
|
PROMPT 1 1 "F5"
|
|
PICTURE TOOL_ELABORA
|
|
MESSAGE EXIT,K_F5
|
|
END
|
|
|
|
BUTTON DLG_SAVEREC 2 2
|
|
BEGIN
|
|
//PROMPT 1 1 "Salva/F6"
|
|
PROMPT 1 1 "F6"
|
|
PICTURE TOOL_SAVEREC
|
|
MESSAGE EXIT,K_F6
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 2 2
|
|
BEGIN
|
|
//PROMPT 1 1 "Canc/F7"
|
|
PROMPT 1 1 "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 1 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_TTPDOC 4
|
|
BEGIN
|
|
PROMPT 5 1 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_TDESCR 50 15
|
|
BEGIN
|
|
PROMPT 10 1 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_TNDOC 6
|
|
BEGIN
|
|
PROMPT 0 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
|
|
INPUT TIPOCF "C"
|
|
DISPLAY "Num." CODNUM
|
|
DISPLAY "Data\ndocumento" DATADOC
|
|
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
|
|
END
|
|
|
|
DATE F_TDATADOC
|
|
BEGIN
|
|
PROMPT 0 3 "Data Doc. "
|
|
END
|
|
|
|
NUMBER F_TANNO 4
|
|
BEGIN
|
|
PROMPT 0 4 "Anno Esercizio "
|
|
FLAGS "D"
|
|
END
|
|
|
|
DATE F_TDATAPRCO
|
|
BEGIN
|
|
PROMPT 0 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
|
|
|
|
SPREADSHEET F_TRIGHE
|
|
BEGIN
|
|
PROMPT 0 3 "Righe"
|
|
ITEM "Articolo@9"
|
|
ITEM "Da Con.@6"
|
|
ITEM "Cons.@6"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|
|
PAGE "Riga" -1 -1 22 11
|
|
|
|
STRING S_TCODART 9
|
|
BEGIN
|
|
PROMPT 1 1 "Articolo "
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER S_TDACONS 6
|
|
BEGIN
|
|
PROMPT 1 2 "Da consegnare "
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER S_TCONS 6
|
|
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 |