campo-sirio/cg/cg4400a.uml

#include "cg4400a.h"

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

PAGE "Stampa registri" -1 -1 72 20

LISTBOX TIPO_STAMPA 1 40
BEGIN
  PROMPT 2 1 "Tipo           " 
  HELP "Indicare il tipo di stampa da eseguire"
  ITEM "1|Stampa di prova"
    MESSAGE SHOW,3@|SHOW,CODICE_LIBRO_PROVA|SHOW,DATA_STAMPA|SHOW,TIPO_RIEPILOGATIVO|HIDE,RIF_VID|RESET,RIF_VID|HIDE,1@|RESET,1@|HIDE,2@|RESET,2@|DISABLE,5@
  ITEM "2|Libri bollati della ditta"
    MESSAGE SHOW,1@|HIDE,CODICE_LIBRO_PROVA|RESET,CODICE_LIBRO_PROVA|HIDE,2@|RESET,2@|HIDE,3@|RESET,3@|HIDE,DATA_STAMPA|HIDE,TIPO_RIEPILOGATIVO|RESET,TIPO_RIEPILOGATIVO|HIDE,RIF_VID|RESET,RIF_VID|DISABLE,5@
  ITEM "3|Libri unici dello studio"
    MESSAGE SHOW,2@|HIDE,1@|RESET,1@|HIDE,3@|RESET,3@|HIDE,DATA_STAMPA|HIDE,CODICE_LIBRO_PROVA|RESET,CODICE_LIBRO_PROVA|HIDE,TIPO_RIEPILOGATIVO|RESET,TIPO_RIEPILOGATIVO|HIDE,RIF_VID|RESET,RIF_VID|ENABLE,5@
  ITEM "4|Libri con riferimenti al libro giornale"
    MESSAGE SHOW,1@|HIDE,CODICE_LIBRO_PROVA|RESET,CODICE_LIBRO_PROVA|HIDE,2@|RESET,2@|HIDE,3@|RESET,3@|HIDE,DATA_STAMPA|HIDE,TIPO_RIEPILOGATIVO|RESET,TIPO_RIEPILOGATIVO|HIDE,RIF_VID|RESET,RIF_VID|DISABLE,5@
END

NUMBER ANNO 4
BEGIN
  PROMPT 2 2 "Anno           "
  HELP "Anno di cui si vuole stampare il registro"
  FLAGS "A"
  WARNING "Inserire l'anno"
  VALIDATE FIXLEN_FUNC 4
  CHECKTYPE REQUIRED
END

GROUPBOX DLG_NULL 35 5
BEGIN   
  PROMPT 2 3 "Scelta ditte"
END

NUMBER DA_CODICE 5
BEGIN
  PROMPT 3 4 "Da codice "
  HELP "Codice ditta di inizio selezione"
  FLAGS "B"
END

NUMBER A_CODICE 5
BEGIN
  PROMPT 3 5 "A codice  "
  HELP "Codice ditta di fine selezione"
  FLAGS "B"
END

STRING F_SELECT 5
BEGIN
  PROMPT 3 6 "Scelte n. "
  FLAGS "DR"
END

BUTTON DLG_SELECT 10 2
BEGIN
  PROMPT 22 4 "~Selezione"
  HELP "Indicare le ditte da selezionare per la stampa"
  MESSAGE EXIT, DLG_SELECT
END

BUTTON F_ANNULLA 10
BEGIN
  PROMPT 22 6 "A~zzera"
  HELP "Annullare la selezione delle ditte"
  MESSAGE RESET,DA_CODICE|RESET,A_CODICE
END

STRING CODICE_LIBRO 3 
BEGIN
  PROMPT 41 4 "Codice libro   "
  HELP "Codice libro di cui si chiede la stampa; nel caso in cui non si indichi nessun codice verranno stampati tutti i libri delle ditte selezionate" 
  USE REG SELECT (I0<="3") && (S6=="") && (CODTAB[1,4]==#111) 
  INPUT CODTAB[1,4] ANNO
  INPUT CODTAB[5,7] CODICE_LIBRO
  DISPLAY "Anno " CODTAB[1,4]
  DISPLAY "Codice " CODTAB[5,7]
  DISPLAY "Descrizione @40" S0
  OUTPUT ANNO CODTAB[1,4] 
  OUTPUT CODICE_LIBRO CODTAB[5,7]
  FLAGS "U"
  VALIDATE ZEROFILL_FUNC 3
  GROUP 1
END

STRING CODICE_LIBRO_PROVA 3 
BEGIN
  PROMPT 41 4 "Codice libro   "
  HELP "Codice libro di cui si chiede la stampa; nel caso in cui non si indichi nessun codice verranno stampati tutti i libri delle ditte selezionate" 
  USE REG SELECT (I0<="3") && (CODTAB[1,4]==#111) 
  INPUT CODTAB[1,4] ANNO
  INPUT CODTAB[5,7] CODICE_LIBRO_PROVA
  DISPLAY "Anno " CODTAB[1,4]
  DISPLAY "Codice " CODTAB[5,7]
  DISPLAY "Descrizione @40" S0
  OUTPUT ANNO CODTAB[1,4] 
  OUTPUT CODICE_LIBRO_PROVA CODTAB[5,7]
  FLAGS "U"
  VALIDATE ZEROFILL_FUNC 3
END

STRING CODICE_LIB_UN 3 
BEGIN
  PROMPT 41 4 "Libro unico    " 
  HELP "Codice del libro unico su cui deve essere effettuata la stampa"
  USE %LBU SELECT CODTAB[1,4]==#111
  INPUT CODTAB[1,4] ANNO
  INPUT CODTAB[5,7] CODICE_LIB_UN
  DISPLAY "Anno " CODTAB[1,4]
  DISPLAY "Codice " CODTAB[5,7]
  DISPLAY "Descrizione @40" S0
  OUTPUT ANNO CODTAB[1,4] 
  OUTPUT CODICE_LIB_UN CODTAB[5,7]
  FLAGS "U"
  CHECKTYPE REQUIRED
  WARNING "Codice libro unico inesistente"  
  VALIDATE ZEROFILL_FUNC 3
  GROUP 2
END

DATE DATA_STAMPA
BEGIN
  PROMPT 41 5 "Data stampa    "
  FLAGS "A"
  CHECKTYPE REQUIRED
  WARNING "Inserire la data di stampa"
END

GROUPBOX DLG_NULL 35 4
BEGIN
  PROMPT 2 8 "Stampa movimenti"
END

DATE DA_DATA
BEGIN
  PROMPT 3 9 "Dalla data   "
  HELP "Data di inizio stampa registro"
  GROUP 3
END

DATE A_DATA
BEGIN
  PROMPT 3 10 "Alla data    " 
  HELP "Data di fine stampa registro"
  VALIDATE DATE_CMP_FUNC >= DA_DATA
  WARNING "Inserire una data non inferiore alla data limite inferiore"
  GROUP 3
END

LISTBOX FINO_A_MESE 10
BEGIN
  PROMPT 3 9 "Fino al mese "        
  HELP "Mese fino al quale eseguire la stampa"
  FLAGS "M"
  GROUP 1
END

LISTBOX MESE 10
BEGIN
  PROMPT 3 9 "Mese         "    
  HELP "Mese di cui eseguire la stampa"
  FLAGS "M" 
  GROUP 2
END 

GROUPBOX DLG_NULL 28 4
BEGIN
  PROMPT 40 8 "Formato pagina"
END

LISTBOX STAMPA_WIDTH 4
BEGIN
  PROMPT 41 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   "
  HELP "Numero di righe per pagina del modulo di stampa. Se non specificato assume 66 righe"
END

LISTBOX TIPO_RIEPILOGATIVO 11  
BEGIN
  PROMPT 3 12 "Tipo riepilogativo   "
  ITEM "P|Del periodo"
  ITEM "A|Annuale"
END

GROUPBOX DLG_NULL 52 6
BEGIN
  PROMPT 2 13 "@bParametri addizionali"
END

NUMBER ULTIMA_PAGINA 4
BEGIN
  PROMPT 3 14 "Ultimo nr. di pagina stampata libro unico"
  GROUP 5
END

STRING CODICE_LIBRO_IVA 3
BEGIN
  PROMPT 3 15 "Eventuale codice libro IVA                "
  USE REG SELECT (I0<="3") && (CODTAB[1,4]==#111)
  INPUT CODTAB[1,4] ANNO
  INPUT CODTAB[5,7] CODICE_LIBRO_IVA
  DISPLAY "Anno " CODTAB[1,4]
  DISPLAY "Codice " CODTAB[5,7]
  DISPLAY "Descrizione @40" S0
  OUTPUT ANNO CODTAB[1,4] 
  OUTPUT CODICE_LIBRO_IVA CODTAB[5,7]
  //CHECKTYPE NORMAL
  FLAGS "U"
  VALIDATE ZEROFILL_FUNC 3
  GROUP 5
END

LISTBOX ULTIMO_MESE 10
BEGIN
  PROMPT 3 16 "Ultimo mese stampa su libro unico  "
  FLAGS "MD"
  ITEM "00|Nessuno"
  //GROUP 2
  // Sempre disabilitato...
END

BOOLEAN RIF_VID 
BEGIN
  // Abilitato solo se mese == 12 && stampa libri unici
  PROMPT 3 17 "Stampa riferimenti vidimazione"
END 

ENDPAGE

ENDMASK