campo-sirio/cg/cg4400a.uml

// cg4400a.uml
// Stampa tabella registri

#include "cg4400a.h" 

PAGE "Stampa registri IVA" -1 -1 56 18

LISTBOX TIPO_STAMPA 1 48
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|HIDE,1@|RESET,1@|HIDE,2@|RESET,2@|HIDE,4@|RESET,4@
  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,4@|RESET,4@
  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,4@|RESET,4@
  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,4@|RESET,4@
END

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

NUMBER DA_CODICE 6
BEGIN
  PROMPT 21 3 "Da codice "
  FLAGS "UR"
  HELP "Codice ditta di inizio selezione"
  USE LF_NDITTE KEY 1
  //CHECKTYPE NORMAL
  INPUT CODDITTA DA_CODICE 
  DISPLAY "Codice" CODDITTA
  DISPLAY "Ragione sociale@50" RAGSOC
  OUTPUT DA_CODICE CODDITTA
END

NUMBER A_CODICE 6
BEGIN
  PROMPT 21 4 "A codice  "
  FLAGS "UR"
  HELP "Codice ditta di fine selezione"
  COPY USE DA_CODICE
  //CHECKTYPE NORMAL
  INPUT CODDITTA A_CODICE
  COPY DISPLAY DA_CODICE
  OUTPUT A_CODICE CODDITTA
END

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

BUTTON DLG_SELECT 9 2
BEGIN
  PROMPT 42 3 "~Selezione"
  HELP "Indicare le ditte da selezionare per la stampa"
END

BUTTON F_ANNULLA 9
BEGIN
  PROMPT 42 5 "A~zzera"
  HELP "Annullare la selezione delle ditte"
  MESSAGE RESET,DA_CODICE|RESET,A_CODICE
END

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

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

STRING CODICE_LIBRO 3 
BEGIN
  PROMPT 2 7 "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]
  //CHECKTYPE NORMAL
  FLAGS "UR"
  GROUP 1
END

STRING CODICE_LIBRO_PROVA 3 
BEGIN
  PROMPT 2 7 "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 "UR"
END

STRING CODICE_LIB_UN 3 
BEGIN
  PROMPT 2 7 "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 "UR"
  CHECKTYPE REQUIRED
  WARNING "Inserire il codice del libro unico" 
  GROUP 2
END

GROUPBOX DLG_NULL 52 3
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 30 9 "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 4 9 "Fino al mese "        
  HELP "Mese fino al quale eseguire la stampa"
  FLAGS "M"
  GROUP 1
END

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

LISTBOX TIPO_RIEPILOGATIVO 11  
BEGIN
  PROMPT 2 11 "Tipo riepilogativo                   "         
  HELP "Indicare il tipo stampa di liquidazione sul registro" 
  ITEM "P|Del periodo"
  ITEM "A|Annuale"
  GROUP 4
END

GROUPBOX DLG_NULL 35 4
BEGIN
  PROMPT 2 12 "Formato pagina"
END

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

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

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

ENDPAGE

PAGE "Stampa registri IVA" -1 -1 56 18

NUMBER ULTIMA_PAGINA 4
BEGIN
  PROMPT 2 2 "Ultimo numero di pagina stampata libro unico  "
  HELP "Numero dell'ultima pagina del libro unico stampata"
  FLAGS "R"
  GROUP 2
END

STRING CODICE_LIBRO_IVA 3
BEGIN
  PROMPT 2 3 "Eventuale codice libro IVA                   "
  HELP "Libro IVA da stampare. Vuoto = tutti"  
  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 "UR"
  GROUP 2
END

LISTBOX ULTIMO_MESE 10
BEGIN
  PROMPT 2 4 "Ultimo mese stampa su libro unico     "
  FLAGS "MD"
  GROUP 2
END

BOOLEAN RIF_VID 
BEGIN
 PROMPT 2 5 "Stampa riferimenti vidimazione"
 GROUP 4
END 

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

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

ENDPAGE

ENDMASK