#include "veuml.h"

TOOLBAR "Toolbar" 0 0 0 2

#include <relapbar.h>

ENDPAGE

PAGE "Forza ordini completati" 0 0 0 0

STRING F_CODNUM 4
BEGIN
  PROMPT 2 5 "Numerazione  "
  FIELD CODNUM
  HELP "Codice numerazione"
  USE %NUM
  INPUT CODTAB F_CODNUM
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODNUM CODTAB
  OUTPUT F_DESNUM S0
  CHECKTYPE FORCED
  FLAG "UPA"
  WARNING "Numerazione assente"
  KEY 1 2
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 2 7 "Anno    "
  FIELD ANNO
  CHECKTYPE REQUIRED
  NUM_EXPR #F_ANNO>0
  FLAG "AP"
  KEY 1 2
  WARNING "Inserire un anno valido"
END

ENDPAGE

ENDMASK