campo-sirio/lv/lv3400a.uml

#include "lv3400a.h"

PAGE "Evasione Buoni di prelievo" -1 -1 35 10

STRING F_TCODNUM 4
BEGIN
  PROMPT 1 1 ""
  FLAGS "D"
END

STRING F_TTPDOC 4
BEGIN
  PROMPT 6 1 ""
  FLAGS "D"
END

STRING F_TDESCR 50 10
BEGIN
  PROMPT 11 1 ""
  FLAGS "D"
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
  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

NUMBER F_TANNO 4
BEGIN
  PROMPT 1 3 "Anno Esercizio  "
  FLAGS "D"
END

DATE F_TDATADOC
BEGIN
  PROMPT 1 4 "Data Doc. "
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

NUMBER F_TNDOC1 6
BEGIN
  PROMPT 1 2 "Buono Numero  "  
END

DATE F_TDATADOC1
BEGIN
  PROMPT 1 3 "Data Doc. "
END

STRING F_TBARCODE 50 12
BEGIN
  PROMPT 1 4 "Barcode "
END

NUMBER F_TPACCHI 6
BEGIN
  PROMPT 1 5 "Pacchi        "
END

NUMBER F_TQTAPACCO 6
BEGIN
  PROMPT 1 6 "Quantità pacco"
END

NUMBER F_TQTACON 6
BEGIN
  PROMPT 1 7 "Quantità Cons."
END

NUMBER F_TQTADACON 6
BEGIN
  PROMPT 1 8 "Da Consegnare "
END

SPREADSHEET F_TRIGHE 0 6
BEGIN
  PROMPT 1 3 "Righe"
  ITEM "Cod.\nArt."
  ITEM "Da Cons."
  ITEM "Consegnato"
END

ENDPAGE

TOOLBAR "Topbar" 0 0 0 2

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

BUTTON DLG_PREVIEW 2 2
BEGIN
  PROMPT 1 1 "Controlla"
  PICTURE TOOL_PREVIEW
  MESSAGE EXIT K_F6
END

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

BUTTON DLG_SAVEREC 2 2
BEGIN
  PROMPT 1 1 "Salva"
  PICTURE TOOL_SAVEREC
  MESSAGE_EXIT K_F8
END

BUTTON DLG_CANCEL 2 2
BEGIN
  PROMPT 1 1 "Annulla"
  PICTURE TOOL_CANCEL
  MESSAGE EXIT K_F9
END

BUTTON DLG_QUIT 2 2
BEGIN
  PROMPT 3 1 "Fine"
  MESSAGE EXIT,K_QUIT
  PICTURE TOOL_QUIT
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."
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