campo-sirio/cg/cg4400a.uml

// cg4400a.uml
// Stampa tabella registri

#include "cg4400a.h" 

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


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

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

NUMBER DA_CODICE 5
BEGIN
  PROMPT 21 3 "Da codice "
  HELP "Codice ditta di partenza per la 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 5
BEGIN
  PROMPT 21 4 "A codice  "
  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 5
BEGIN
  PROMPT 21 5 "Scelte n. "
  FLAGS "D"
END

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

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

DATE DATA_STAMPA
BEGIN
  PROMPT 28 7 "Data stampa "
  HELP "Data in cui viene stampato il registro"
  FLAG "AH"
  GROUP 3
END

NUMBER ANNO 4
BEGIN
  PROMPT 2 3 "Anno "
  HELP "Anno di cui si vuole stampare il registro"
  FLAGS "A"
  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]
  //CHECKTYPE NORMAL
  FLAGS "UR"
  GROUP 1
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
  GROUP 2
END

GROUPBOX DLG_NULL 52 3
BEGIN
  PROMPT 2 8 "Stampa movimenti"
END

DATE DA_DATA
BEGIN
  PROMPT 5 9 "Dalla data   "
  HELP "Data di partenza per la stampa del registro"
  GROUP 3
END

DATE A_DATA
BEGIN
  PROMPT 30 9 "Alla data "
  HELP "Data di fine per la stampa del 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 5 9 "Fino al mese "
  HELP "Mese fino al quale eseguire la stampa"
  FLAGS "M"
  GROUP 1
END

LISTBOX MESE 10
BEGIN
  PROMPT 5 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 periodo di cui si vuole stampare il registro"
  ITEM "P|Del periodo"
  ITEM "A|Annuale"
  GROUP 1
END

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

NUMBER ULTIMA_PAGINA 4
BEGIN
  PROMPT 2 12 "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 13 "Eventuale codice libro IVA                   "
  HELP "Libro IVA da stampare. Vuoto = tutti"
  USE REG SELECT (I0<"3") && (S6=="") && (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

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