campo-sirio/src/ve/ve6900a.uml

#include "ve6900a.h"

PAGE "Controllo ordini" -1 -1 100 13

LISTBOX F_PROVV 11
BEGIN
  FIELD PROVV
  PROMPT 2 1 "Tipo       "
  ITEM "D|Definitiva "
  ITEM "P|Provvisoria"
  FLAGS "P"
END

STRING F_CODNUM 4
BEGIN
  PROMPT 2 3 "Numerazione"
  CHECKTYPE REQUIRED
  USE %NUM SELECT I1==3
  INPUT CODTAB F_CODNUM
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@60" S0
  OUTPUT F_CODNUM CODTAB
  OUTPUT F_DESNUM S0
  
END

STRING F_DESNUM 50
BEGIN
  PROMPT 23 3 ""
  FLAGS "UD"
END

NUMBER F_DA_ANNO 4
BEGIN
  PROMPT 2 5 "Da anno    "
  FIELD ANNO
  CHECKTYPE REQUIRED
  NUM_EXPR #F_DA_ANNO>0
  FLAG "AP"
  WARNING "Inserire un anno valido"
END

NUMBER F_A_ANNO 4
BEGIN
  PROMPT 2 7 "A  anno    "
  FIELD ANNO
  CHECKTYPE REQUIRED
  NUM_EXPR #F_A_ANNO>=#F_DA_ANNO
  FLAG "AP"
  WARNING "Inserire un anno valido"
END

TE F_OPTIONAL
BEGIN
  PROMPT 2 9 "Opzionale:"
END

STRING F_STATO 1
BEGIN
  PROMPT 2 11 "Nuovo stato"
  CHECKTYPE NO
  USE %STD
  INPUT CODTAB F_STATO
  DISPLAY "Stato documento" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_STATO CODTAB
  OUTPUT F_DESCINI S0
END

STRING F_DESCINI 50
BEGIN
  PROMPT 23 11 ""
  FLAGS "D"
END

ENDPAGE

TOOLBAR "topbar" 0 0 0 2

#include <elabar.h>

ENDPAGE

ENDMASK