#include "ps1002_prod_gca.h"

PAGE "Produzione giornaliera" -1 -1 78 5

STRING F_CODNUM 4
BEGIN
  PROMPT 1 1 "Numerazione "
  USE %NUM
  INPUT CODTAB F_CODNUM
  DISPLAY "Codice@8" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_CODNUM CODTAB
  OUTPUT F_DESNUM S0
  CHECKTYPE REQUIRED
  FLAGS "U"
  FIELD #CODNUM
END

STRING F_DESNUM 50
BEGIN
  PROMPT 23 1 ""
  USE %NUM KEY 2
  INPUT S0 F_DESNUM
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice@8" CODTAB
  COPY OUTPUT F_CODNUM
  CHECKTYPE NORMAL
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 1 2 "Anno        "
  FLAGS "A"
  CHECKTYPE REQUIRED
  FIELD #ANNO
END

DATA F_DADATA
BEGIN
  PROMPT 1 3 "Dalla data  "
  FLAGS "A"
  CHECKTYPE REQUIRED
  FIELD DADATA
END

DATA F_ADATA
BEGIN
  PROMPT 30 3 "Alla data "
  FLAGS "A"
  CHECKTYPE REQUIRED
  FIELD ADATA
END

ENDPAGE

TOOLBAR "" 0 0 0 2
#include <printbar.h>
ENDPAGE

ENDMASK