campo-sirio/lv/lv3700a.uml

#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<69> pacco"
  FLAGS "D"
END

NUMBER F_QTACON 6
BEGIN
  PROMPT 1 8 "Quantit<69> Cont."
  FLAGS "D"
END

STRING F_BLANK 1
BEGIN
  PROMPT 100 100 ""
END

ENDPAGE

ENDMASK