campo-sirio/ab/ab0400a.uml

#include "ab0400.h"

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

PAGE "Riclassificazione" 0 2 0 0

LIST F_TIPO 20
BEGIN
  PROMPT 2 1 "Tipo di calcolo  "
  ITEM "0|Saldi Contabili"
  ITEM "1|IV Direttiva CEE"
  ITEM "2|Analisi"
END

NUMBER F_ESER 4
BEGIN
  PROMPT 2 3 "Esercizio        "
  HELP "Codice d'esercizio da assegnare"
  FLAGS "ZR"
  USE ESC
  INPUT CODTAB F_ESER
  DISPLAY "Codice esercizio" CODTAB
  DISPLAY "Data inizio esercizio" D0
  DISPLAY "Data fine esercizio" D1
  DISPLAY "Data di scarico" D2
  DISPLAY "Data chiusura esercizio" D3
  OUTPUT F_ESER CODTAB
  CHECKTYPE NORMAL
END

STRING F_PDB 2
BEGIN
  PROMPT 2 5 "Codice periodo   "
  HELP "Codice della tabella periodi di bilancio"
  FLAGS "U_"
  USE %PDB
  INPUT CODTAB F_PDB
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@40" S0
  DISPLAY "gg.inizio" I0
  DISPLAY "mm.inizio" I1
  DISPLAY "gg.fine" I2
  DISPLAY "mm.fine" I3
  OUTPUT F_PDB CODTAB
  CHECKTYPE NORMAL
END

DATE F_DAL
BEGIN  
  PROMPT 2 7 "Dal              "
END

DATE F_AL
BEGIN  
  PROMPT 2 9 "Al               "
  VALIDATE DATE_CMP_FUNC > F_DAL
  WARNING "La data finale deve essere maggiore alla data iniziale"
END

BOOLEAN F_STRUCT
BEGIN
  PROMPT 2 11 "Intera struttura"
END

BOOLEAN F_MONTH
BEGIN
  PROMPT 42 11 "Suddiviso per mesi"
END

BOOLEAN F_PROVV
BEGIN
  PROMPT 2 13 "Anche i movimenti provvisori"
END

STRING F_OUTPUT 50 30
BEGIN  
  PROMPT 2 15 "File di output   "
  FSELECT ""
END

STRING F_COMM 20
BEGIN
  PROMPT 2 17 "Codice commessa "
	USE CMS
	FIELD CODTAB
  FLAGS "UZ"
  INPUT CODTAB F_COMM
  DISPLAY "Codice@20" CODTAB
  DISPLAY "Descrizione@50" S0
  OUTPUT F_COMM CODTAB
  OUTPUT F_DCOMM S0
  CHECKTYPE NORMAL
END

STRING F_DCOMM 70 50
BEGIN
  PROMPT 2 18 "Descrizione     "
	USE CMS KEY 2
  INPUT S0 F_DCOMM
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice@20" CODTAB
  COPY OUTPUT F_COMM
	CHECKTYPE NORMAL
END

ENDPAGE

ENDMASK