campo-sirio/ve/ve0100c.uml

#include "ve0100c.h"

TOOLBAR "topbar" 0 0 0 2
#include <stdbar.h>
ENDPAGE

PAGE "Documento collegato " -1 -1 78 6

STRING F_DACODNUM 4
BEGIN
  PROMPT 2 1 "Numerazione "
  USE %NUM
  INPUT CODTAB F_DACODNUM
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_DACODNUM CODTAB
  OUTPUT F_DESCRNUM S0
  CHECKTYPE NORMAL
  FLAGS "U"
	GROUP 1
END

STRING F_DESCRNUM 50
BEGIN
  PROMPT 24 1 ""
  USE %NUM KEY 2
  INPUT S0 F_DESCRNUM
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_DACODNUM
	GROUP 1
END

NUMBER F_DAANNO 4
BEGIN
  PROMPT 2 3 "Anno        "
  FLAGS "U"
	GROUP 1
END

LISTBOX F_DAPROVV 11
BEGIN
  PROMPT 24 3 ""
  ITEM "D|Definitivo "
  ITEM "P|Provvisorio"
  FIELD PROVV
	GROUP 1
END

NUMBER F_DANDOC 7
BEGIN
  PROMPT 43 3 "Numero "
  USE LF_RIGHEDOC 
  INPUT PROVV F_DAPROVV SELECT
  INPUT ANNO F_DAANNO SELECT
  INPUT CODNUM F_DACODNUM SELECT
  INPUT NDOC F_DANDOC
  INPUT NRIGA F_DANRIGA
  DISPLAY "N.Doc.@7" NDOC
  DISPLAY "Riga" NRIGA
  DISPLAY "Descrizione@50" DESCR
	DISPLAY "Articolo@20" CODARTMAG
  OUTPUT F_DANDOC NDOC
  OUTPUT F_DANRIGA NRIGA
	CHECKTYPE SEARCH
	GROUP 1
END

NUMBER F_DANRIGA 3
BEGIN
  PROMPT 66 3 "Riga "
  USE LF_RIGHEDOC 
  INPUT PROVV F_DAPROVV SELECT
  INPUT ANNO F_DAANNO SELECT
  INPUT CODNUM F_DACODNUM SELECT
  INPUT NDOC F_DANDOC SELECT
  INPUT NRIGA F_DANRIGA
  DISPLAY "N.Doc.@7" NDOC
  DISPLAY "Riga" NRIGA
  DISPLAY "Descrizione@50" DESCR
	DISPLAY "Articolo@20" CODARTMAG
  OUTPUT F_DANRIGA NRIGA
  CHECKTYPE NORMAL
	GROUP 1
END

ENDPAGE
ENDMASK