campo-sirio/ba/ba3600a.uml

#include "ba3600.h"

TOOLBAR "topbar" 0 0 0 2

BUTTON DLG_PRINT 10 2
BEGIN
  PROMPT -12 -11 ""
END

BUTTON DLG_QUIT 10 2
BEGIN
  PROMPT -22 -11 ""
END

ENDPAGE

PAGE "Stampa indici libro unico" 0 0 0 2

RADIOBUTTON F_TIPO_STAMPA 29
BEGIN
  PROMPT 4 2 "Tipo stampa registro "
  HELP "Indicare il tipo di stampa che si vuole eseguire"
  ITEM "1|Stampa di prova"
  MESSAGE HIDE,F_LIBRO_UNICO2|RESET,F_LIBRO_UNICO2
  MESSAGE HIDE,F_STAMPA_MESE|RESET,F_STAMPA_MESE
  MESSAGE HIDE,F_STAMPA_ANNO|RESET,F_STAMPA_ANNO
  MESSAGE HIDE,F_CODLIB_STAMPA|RESET,F_CODLIB_STAMPA
  MESSAGE HIDE,F_PAGFINALE|RESET,F_PAGFINALE
  MESSAGE HIDE,F_TITOLO_BOLLATO|RESET,F_TITOLO_BOLLATO
  MESSAGE SHOW,F_DATA_STAMPA|SHOW,F_MESEDA|SHOW,F_ANNODA|SHOW,F_MESEA
  MESSAGE SHOW,F_ANNOA|SHOW,F_TITOLO_PROVA
  MESSAGE SHOW,F_LIBRO_UNICO1|SHOW,F_GRUPPO|SHOW,F_ANNO
  ITEM "2|Stampa su libro bollato"
  MESSAGE HIDE,F_LIBRO_UNICO1|RESET,F_LIBRO_UNICO1
  MESSAGE HIDE,F_DATA_STAMPA|RESET,F_DATA_STAMPA
  MESSAGE HIDE,F_MESEDA|RESET,F_MESEDA|HIDE,F_ANNODA|RESET,F_ANNODA
  MESSAGE HIDE,F_MESEA|RESET,F_MESEA|HIDE,F_ANNOA|RESET,F_ANNOA
  MESSAGE HIDE,F_TITOLO_PROVA|RESET,F_TITOLO_PROVA
  MESSAGE HIDE,F_GRUPPO|RESET,F_GRUPPO                 
  MESSAGE HIDE,F_ANNO|RESET,F_ANNO
  MESSAGE SHOW,F_STAMPA_MESE|SHOW,F_STAMPA_ANNO|SHOW,F_CODLIB_STAMPA
  MESSAGE SHOW,F_PAGFINALE|SHOW,F_TITOLO_BOLLATO|SHOW,F_LIBRO_UNICO2
END  

TEXT F_TITOLO_PROVA
BEGIN
  PROMPT -11 7 "@bSTAMPA DI PROVA"
END

TEXT F_TITOLO_BOLLATO
BEGIN
  PROMPT -11 7 "@bSTAMPA SU LIBRI BOLLATI DELLO STUDIO"
END

DATE F_DATA_STAMPA
BEGIN
  PROMPT 4 9 "Data stampa        "
  HELP "Data in cui viene stampato il libro unico"
  FLAGS "A"
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 4 10 "Anno               "
/*  USE %LBU 
  INPUT CODTAB[1,4] F_ANNO        
  INPUT CODTAB[5,7] F_LIBRO_UNICO1
  DISPLAY "Anno riferimento" CODTAB[1,4]
  DISPLAY "Codice libro unico" CODTAB[5,7]
  OUTPUT F_ANNO CODTAB[1,4]
  OUTPUT F_LIBRO_UNICO1 CODTAB[5,7]
  OUTPUT F_ANNODA CODTAB[1,4]
  OUTPUT F_ANNOA CODTAB[1,4] */
  CHECKTYPE REQUIRED  
END

STRING F_LIBRO_UNICO1 3
BEGIN
  PROMPT 4 11 "Codice libro unico "
  HELP "Codice del libro da stampare"
//  COPY ALL F_ANNO         
  USE %LBU 
  INPUT CODTAB[1,4] F_ANNO        
  INPUT CODTAB[5,7] F_LIBRO_UNICO1
  DISPLAY "Anno@20" CODTAB[1,4]
  DISPLAY "Libro unico@22" CODTAB[5,7]
  OUTPUT F_ANNO CODTAB[1,4]
  OUTPUT F_LIBRO_UNICO1 CODTAB[5,7]
  OUTPUT F_ANNODA CODTAB[1,4]
  OUTPUT F_ANNOA CODTAB[1,4]
  CHECKTYPE REQUIRED       
  WARNING "Libro unico assente per l'anno specificato"
  FLAGS "UZ"
END

GROUPBOX F_GRUPPO 71 4
BEGIN
  PROMPT 4 13 "Stampa movimenti"
  FLAGS "R"
END

NUMBER F_MESEDA 2
BEGIN
  PROMPT 8 14 "dal :   mese   "
  HELP "Primo mese di cui stampare i movimenti"
  NUM_EXPR ((#THIS_FIELD >= 1)&&(#THIS_FIELD <= 12))
END

NUMBER F_ANNODA 4
BEGIN
  PROMPT 57 14 "Anno   "
  FLAGS "D"
END

NUMBER F_MESEA 2
BEGIN
  PROMPT 8 15 "al  :   mese   "
  HELP "Ultimo mese di cui stampare i movimenti"
  NUM_EXPR ((#THIS_FIELD >= 1)&&(#THIS_FIELD <= 12))
END

NUMBER F_ANNOA 4
BEGIN
  PROMPT 57 15 "Anno   "
  FLAGS "D"
END  

NUMBER F_STAMPA_ANNO 4
BEGIN
  PROMPT 4 8 "Anno                                  "
  FLAGS "R"         
/*  USE %LBU
  INPUT CODTAB[1,4] F_STAMPA_ANNO 
  INPUT CODTAB[5,7] F_LIBRO_UNICO2
  DISPLAY "Codice libro" CODTAB[5,7]
  DISPLAY "Anno" CODTAB[1,4]
  DISPLAY "Ult.mese stampa" I0
  DISPLAY "Ult.pagina stampa" I1
  OUTPUT F_LIBRO_UNICO2 CODTAB[5,7]
  OUTPUT F_STAMPA_MESEG I0
  OUTPUT F_STAMPA_ANNO CODTAB[1,4]
  OUTPUT F_PAGFINALE I1 */
  CHECKTYPE REQUIRED
END

STRING F_LIBRO_UNICO2 3
BEGIN
  PROMPT 4 9 "Codice libro unico di studio          "
  HELP "Codice del libro da stampare"
//  COPY ALL F_STAMPA_ANNO
  USE %LBU
  INPUT CODTAB[1,4] F_STAMPA_ANNO 
  INPUT CODTAB[5,7] F_LIBRO_UNICO2
  DISPLAY "Codice libro" CODTAB[5,7]
  DISPLAY "Anno" CODTAB[1,4]
  DISPLAY "Ult.mese stampa" I0
  DISPLAY "Ult.pagina stampa" I1
  OUTPUT F_LIBRO_UNICO2 CODTAB[5,7]
  OUTPUT F_STAMPA_MESEG I0
  OUTPUT F_STAMPA_ANNO CODTAB[1,4]
//  OUTPUT F_PAGFINALE I1
  CHECKTYPE REQUIRED    
  FLAGS "UZ"
END


NUMBER F_STAMPA_MESEG 2
BEGIN
  PROMPT 1 1 ""
  FLAGS "H"
END

NUMBER F_STAMPA_MESE 2
BEGIN
  PROMPT 4 11 "Stampa mese                           "
  HELP "Mese di cui effettuare la stampa"
  NUM_EXPR ((#THIS_FIELD >= #F_STAMPA_MESEG)&&(#THIS_FIELD <= 12))   
  WARNING "Il mese da stampare deve essere maggiore o uguale all'ultimo mese di stampa indicato sulla tabella del libro unico selezionato"
  CHECKTYPE REQUIRED
END
  
STRING F_CODLIB_STAMPA 3
BEGIN
  PROMPT 4 13 "Codice libro unico su cui stampare    "
  HELP "Codice del libro su cui stampare"
  USE %LBU 
  INPUT CODTAB[1,4] F_STAMPA_ANNO
  INPUT CODTAB[5,7] F_CODLIB_STAMPA
  DISPLAY "Codice libro" CODTAB[5,7]
  DISPLAY "Anno" CODTAB[1,4]
  DISPLAY "Ult.mese stampa" I0
  DISPLAY "Ult.pagina stampa" I1
  OUTPUT F_CODLIB_STAMPA CODTAB[5,7]
  OUTPUT F_PAGFINALE I1
  FLAGS "UZ"
  CHECKTYPE REQUIRED
END

NUMBER F_PAGFINALE 5
BEGIN
  PROMPT 4 15 "Ultim.num.pagina stampata libro unico "
  HELP "Numero ultima pagina stampata"
END

ENDPAGE

ENDMASK