campo-sirio/cg/cg3400a.uml

#include "cg3400a.h"

PAGE "Stampa Libro Giornale" -1 -1 78 17

GROUPBOX DLG_NULL 78 3
BEGIN
    PROMPT 1 0 ""
END

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

STRING F_RAGSOC 50
BEGIN
    PROMPT 17 1 "Ragione "
    FLAGS "D"
END

STRING CODREG 3
BEGIN
    PROMPT 1 4 "Codice registro "
    HELP "Codice del libro giornale da stampare"
    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"
    VALIDATE ZEROFILL_FUNC 3
    FLAGS "U"
END

NUMBER ANNO_ESER 4
BEGIN
    PROMPT 30 5 "Esercizio "
    FLAGS "ZH"
END

STRING REG_DESC 50
BEGIN
//    PROMPT 1 6 "Descrizione "
    PROMPT 25 4 ""
    FLAGS "D"
END

DATE DATA_DA
BEGIN
  PROMPT 1 6 "Dalla data  "
  HELP "Stampa i movimenti a partire dalla data specificata"
END

DATE DATA_A
BEGIN
  PROMPT 40 6 "Alla data  "
  HELP "Stampa i movimenti fino alla data specificata"
//  VALIDATE DATE_CMP_FUNC >= DATA_DA
  WARNING "Specificare la data di fine stampa"
  CHECKTYPE REQUIRED
  MESSAGE K_TAB, CODREG
END

/*
GROUPBOX DLG_NULL 30 4
BEGIN
    PROMPT 1 8 "Intervallo"
END

RADIOBUTTON DLG_NULL 12
BEGIN
    PROMPT 1 8 ""
    HELP "Indicare l'intervallo di pagine da stampare"
    ITEM "1|Tutto"       MESSAGE CLEAR,PAGINA_DA|DISABLE,PAGINA_DA
    ITEM "2|Da pagina "  MESSAGE ENABLE,PAGINA_DA
END

NUMBER PAGINA_DA 5
BEGIN
    PROMPT 18 10 ""
    HELP "Numero di pagina da cui iniziare la stampa"
END

*/

GROUPBOX DLG_NULL 35 4
BEGIN
  PROMPT 40 8 "Formato pagina"
//  PROMPT 1 8 "Formato pagina"
END

LISTBOX STAMPA_WIDTH 4
BEGIN
  PROMPT 41 9 "Numero di colonne "
//  PROMPT 2 9 "Numero di colonne "
  HELP "Numero di colonne per pagina del modulo di stampa."
  ITEM "1|132"
  ITEM "2|198"
END

NUMBER STAMPA_LEN 3
BEGIN
  PROMPT 41 10 "Numero di righe   "
//  PROMPT 2 10 "Numero di righe   "
  HELP "Numero di righe per pagina del modulo di stampa. Se non specificato assume 66 righe"
END

BOOLEAN STAMPA_DEF
BEGIN
//  PROMPT 2 13 "Stampa definitiva su bollato"
  PROMPT 1 9 "Stampa definitiva su bollato"
  HELP "Seleziona la stampa su bollato oppure, se vuoto, la stampa di prova"
  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