8700b4dbd4
Files correlati : lv0300a.msk lvlib lv3 Ricompilazione Demo : [ ] Commento : Aggiunto il programma di generazione inventario da terminale git-svn-id: svn://10.65.10.50/trunk@20360 c028cbd2-c16b-5b4b-a496-9718f37d4682
143 lines
1.9 KiB
Plaintext
Executable File
143 lines
1.9 KiB
Plaintext
Executable File
#include "lv3700a.h"
|
|
|
|
TOOLBAR "Topbar" 0 0 0 2
|
|
|
|
BUTTON DLG_NEWREC 2 2
|
|
BEGIN
|
|
PROMPT 1 1 "Nuovo"
|
|
PICTURE TOOL_NEWREC
|
|
END
|
|
|
|
BUTTON DLG_SAVEREC 2 2
|
|
BEGIN
|
|
PROMPT 1 1 "Salva"
|
|
PICTURE TOOL_SAVEREC
|
|
END
|
|
|
|
BUTTON DLG_DELREC 2 2
|
|
BEGIN
|
|
PROMPT 1 1 "Canc"
|
|
PICTURE TOOL_DELREC
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 2 2
|
|
BEGIN
|
|
PROMPT 1 1 "Ann"
|
|
PICTURE TOOL_CANCEL
|
|
END
|
|
|
|
BUTTON DLG_QUIT 2 2
|
|
BEGIN
|
|
PROMPT 3 1 "Fine"
|
|
MESSAGE EXIT,K_QUIT
|
|
PICTURE TOOL_QUIT
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Inventario" 0 2 0 0
|
|
|
|
STRING F_CODNUM 4
|
|
BEGIN
|
|
PROMPT 0 0 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_TPDOC 4
|
|
BEGIN
|
|
PROMPT 5 0 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_DESCR 50 15
|
|
BEGIN
|
|
PROMPT 10 0 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_CHIAVE 50 10
|
|
BEGIN
|
|
PROMPT 1 1 "Barcode Invent"
|
|
END
|
|
|
|
NUMBER F_NINV 6
|
|
BEGIN
|
|
PROMPT 1 2 "Numero Doc. "
|
|
USE LF_DOC
|
|
JOIN LF_CLIFO TO LF_DOC INTO TIPOCF==TIPOCF CODCF==CODCF
|
|
INPUT PROVV "D"
|
|
INPUT ANNO F_ANNO SELECT
|
|
INPUT CODNUM F_CODNUM SELECT
|
|
INPUT NDOC F_NINV
|
|
DISPLAY "Ndoc@4" NDOC
|
|
DISPLAY "Data\ndocumento@10" DATADOC
|
|
DISPLAY "Cod\nCli@4" CODCF
|
|
DISPLAY "Ragione Sociale@10" LF_CLIFO->RAGSOC
|
|
OUTPUT F_NINV NDOC
|
|
OUTPUT F_DATAINV DATADOC
|
|
OUTPUT F_CODCF CODCF
|
|
OUTPUT F_RAGSOC LF_CLIFO->RAGSOC
|
|
CHECKTYPE REQUIRED
|
|
FLAGS "G"
|
|
END
|
|
|
|
DATE F_DATAINV
|
|
BEGIN
|
|
PROMPT 1 3 "Data Inv. "
|
|
FLAGS "DA"
|
|
END
|
|
|
|
NUMBER F_ANNO 4
|
|
BEGIN
|
|
PROMPT 1 4 "Anno Esercizio "
|
|
END
|
|
|
|
NUMBER F_CODCF 6
|
|
BEGIN
|
|
PROMPT 1 0 "Cliente "
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_RAGSOC 20
|
|
BEGIN
|
|
PROMPT 1 1 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_BARCODE 50 12
|
|
BEGIN
|
|
PROMPT 1 4 "Barcode "
|
|
END
|
|
|
|
STRING F_CODART 6
|
|
BEGIN
|
|
PROMPT 1 5 "Cod. Articolo "
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_PACCHI 6
|
|
BEGIN
|
|
PROMPT 1 6 "Pacchi "
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_QTAPACCO 6
|
|
BEGIN
|
|
PROMPT 1 7 "Quantità pacco"
|
|
FLAGS "D"
|
|
END
|
|
|
|
NUMBER F_QTACON 6
|
|
BEGIN
|
|
PROMPT 1 8 "Quantità Cont."
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_BLANK 1
|
|
BEGIN
|
|
PROMPT 100 100 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK |