campo-sirio/ba/batbesc.uml

#include "batbesc.h"

TOOLBAR "" 0 20 0 2

#include <toolbar.h>

ENDPAGE

PAGE "Esercizio contabili" -1 -1 78 16

NUMBER F_CODDITTA 5
BEGIN
  PROMPT 4 1 "Ditta             "
  FLAGS "FRD"
  USE LF_NDITTE
  INPUT CODDITTA F_CODDITTA
  DISPLAY "Codice" CODDITTA
  DISPLAY "Ragione sociale@50" RAGSOC
  OUTPUT F_CODDITTA CODDITTA
  OUTPUT F_RAGSOC RAGSOC
  CHECKTYPE NORMAL
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 4 3 "Ragione sociale   "
  FLAGS "D"
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 4 5 "Anno esercizio        "
  FLAGS "ZR"
  FIELD LF_TAB->CODTAB
  KEY 1
  USE ESC
  INPUT CODTAB F_ANNO
  DISPLAY "Anno esercizio" CODTAB
  DISPLAY "Data inizio esercizio" D0
  DISPLAY "Data fine esercizio" D1
  OUTPUT F_ANNO CODTAB
  CHECKTYPE REQUIRED
END

DATE F_DATAINI
BEGIN
  PROMPT 4 7 "Data inizio esercizio "
  FIELD LF_TAB->D0
  CHECKTYPE REQUIRED
  WARNING "La data di inizio esercizio e' obbligatoria"
END

DATE F_DATAFIN
BEGIN
  PROMPT 4 9 "Data fine esercizio   "
  FIELD LF_TAB->D1
  CHECKTYPE REQUIRED
  VALIDATE DATE_CMP_FUNC >= F_DATAINI
  WARNING "La data fine esercizio deve essere indicata e deve essere maggiore della data di inizio esercizio"
END

DATE F_DATASCARICO
BEGIN
  PROMPT 4 11 "Data di scarico       "
  FIELD LF_TAB->D2
END

ENDPAGE

ENDMASK