campo-sirio/cg/cg3400a.uml

#include "cg3400a.h"

PAGE "Stampa Libro Giornale" -1 -1 70 15

STRING CODREG 3
BEGIN
    PROMPT 1 1 "Codice registro "
    USE REG SELECT (I0 = 5) || (I0 = 4)
//    INPUT CODTAB[1,4] ANNO_ESER
    INPUT CODTAB[5,7] CODREG
    DISPLAY "Anno" CODTAB[1,4]
    DISPLAY "Codice" CODTAB[5,7]
    DISPLAY "Descrizione@50" S0
    DISPLAY "Tipo" I0
    OUTPUT ANNO_ESER CODTAB[1,4]
    OUTPUT CODREG CODTAB[5,7]
    OUTPUT REG_DESC S0
    OUTPUT PAGINA_DA I1
//    OUTPUT DATA_DA D0
//    OUTPUT DATA_A D1
//    CHECKTYPE NORMAL
    WARNING "Registro inesistente"
    FLAGS "U"
END

NUMBER ANNO_ESER 4
BEGIN
    PROMPT 30 1 "Esercizio "
    USE ESC
    INPUT CODTAB ANNO_ESER
    DISPLAY "Anno" CODTAB
    DISPLAY "Data inizio " D0
    DISPLAY "Data fine   " D1
    DISPLAY "Data scarico" D2
    OUTPUT ANNO_ESER CODTAB
//        CHECKTYPE REQUIRED
    FLAGS "ZH"
END

STRING REG_DESC 50
BEGIN
    PROMPT 1 3 "Descrizione: "
    FLAGS "D"
END

GROUPBOX DLG_NULL 25 5
BEGIN
    PROMPT 1 5 "Intervallo"
END

RADIOBUTTON DLG_NULL 20
BEGIN
    PROMPT 1 5 ""
    ITEM "1|Tutto"     MESSAGE DISABLE, PAGINA_DA
    ITEM "2|Da pagina" MESSAGE ENABLE, PAGINA_DA
END

NUMBER PAGINA_DA 5
BEGIN
    PROMPT 13 8 ""
END

GROUPBOX DLG_NULL 33 5
BEGIN
  PROMPT 33 5 "Formato pagina"
END

LISTBOX STAMPA_WIDTH 3
BEGIN
  PROMPT 35 6 "Numero di colonne "
  ITEM "1|132 colonne"
  ITEM "2|198 colonne"
END

NUMBER STAMPA_LEN 3
BEGIN
  PROMPT 35 7 "Numero di righe   "
END

DATE DATA_DA
BEGIN
  PROMPT 2 10 "Dalla data "
END

DATE DATA_A
BEGIN
  PROMPT 2 11 "Alla data  "
//  VALIDATE DATE_CMP_FUNC >= DATA_DA
  WARNING "Specificare la data di fine stampa"
  CHECKTYPE REQUIRED
END

BOOLEAN STAMPA_DEF
BEGIN
  PROMPT 34 10 "Stampa definitiva"
  MESSAGE TRUE  DISABLE,DATA_DA | CLEAR, DATA_DA
  MESSAGE FALSE ENABLE,DATA_DA
END

BUTTON DLG_PRINT 9 2
BEGIN
 PROMPT -12 -1 "~Stampa"
 MESSAGE EXIT,K_ENTER
END

BUTTON DLG_QUIT 9 2
BEGIN
 PROMPT -22 -1 ""
END

ENDPAGE

ENDMASK