campo-sirio/lv/lv3400a.uml

#include "lv3400a.h"

TOOLBAR "Topbar" 0 0 0 2

BUTTON DLG_SELECT 2 2
BEGIN
  PROMPT 1 1 "Tutti"  
  PICTURE TOOL_MULTISEL
  MESSAGE EXIT,K_F3
END

BUTTON DLG_PREVIEW 2 2
BEGIN
  PROMPT 1 1 "Check"
  PICTURE TOOL_PREVIEW
  MESSAGE EXIT,K_F4
END

BUTTON DLG_ELABORA 2 2
BEGIN
  PROMPT 1 1 "Evadi"
  PICTURE TOOL_ELABORA
  MESSAGE EXIT,K_F5
END

BUTTON DLG_SAVEREC 2 2
BEGIN
  PROMPT 1 1 "Salva"
  PICTURE TOOL_SAVEREC
  MESSAGE EXIT,K_F6
END

BUTTON DLG_CANCEL 2 2
BEGIN
  PROMPT 1 1 "Canc"
  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

STRING 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