campo-sirio/cg/cg4400a.uml

// cg4400a.uml
// Stampa tabella registri

#include "cg4400a.h" 

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

/*
LISTBOX TIPO_STAMPA 2 27
BEGIN
  PROMPT 2 1 "Tipo stampa "
  ITEM "1|Libri bollati della ditta"
    MESSAGE SHOW,1@|HIDE,2@|HIDE,3@
  ITEM "2|Libri unici dello studio"
    MESSAGE SHOW,2@|HIDE,1@|HIDE,3@
  ITEM "3|Stampa di prova"
    MESSAGE SHOW,3@|HIDE,1@|HIDE,2@|SHOW,CODICE_LIBRO
  ITEM "4|Stampa libri con riferimenti al libro giornale"
    MESSAGE SHOW,1@|HIDE,2@|HIDE,3@
END
*/

NUMBER TIPO_STAMPA 1 
BEGIN
  PROMPT 2 1 "Tipo stampa "
  SHEET "Cod|Descrizione@50"
  INPUT TIPO_STAMPA
  OUTPUT TIPO_STAMPA 
  ITEM "1|Libri bollati della ditta"
  ITEM "2|Libri unici dello studio"
  ITEM "3|Stampa di prova"
  ITEM "4|Libri con riferimenti al libro giornale"
END 

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

NUMBER DA_CODICE 6
BEGIN
  PROMPT 21 2 "Da codice "
  HELP "Immettere 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 6
BEGIN
  PROMPT 21 3 "A codice  "
  HELP "Immettere 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 4 "Scelte n. "
  FLAGS "D"
END

BUTTON DLG_SELECT 9
BEGIN
  PROMPT 42 2 "Selezione"
  //MESSAGE EXIT,DLG_SELECT
END

BUTTON F_ANNULLA 9
BEGIN
  PROMPT 42 3 "Azzera"
  MESSAGE RESET,DA_CODICE|RESET,A_CODICE
END

BUTTON F_VERIFICA 9
BEGIN
  PROMPT 42 4 "Verifica"
  //MESSAGE EXIT,F_VERIFICA
END

DATE DATA_STAMPA
BEGIN
  PROMPT 2 6 "Data stampa "
  FLAG "AH"
  GROUP 3
END

NUMBER ANNO 4
BEGIN
  PROMPT 2 7 "Anno "
  FLAGS "A"
  CHECKTYPE REQUIRED
END

STRING CODICE_LIBRO 3 
BEGIN
  PROMPT 20 7 "Codice libro "
  HELP "Specificare il 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 20 7 "Codice libro "
  HELP "Specificare il 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 20 7 "Cod.libro unico " 
  HELP "Specificare il 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 9 "Stampa movimenti"
END

DATE DA_DATA
BEGIN
  PROMPT 5 10 "Dalla data "
  GROUP 3
END

DATE A_DATA
BEGIN
  PROMPT 30 10 "Alla data "
  GROUP 3
END

LISTBOX FINO_A_MESE 10
BEGIN
  PROMPT 5 10 "Fino al mese "
  FLAGS "M"
  GROUP 1
END

LISTBOX MESE 10
BEGIN
  PROMPT 5 10 "Mese "
  FLAGS "M"
  GROUP 2
END 

LISTBOX TIPO_RIEPILOGATIVO 11  
BEGIN
  PROMPT 2 12 "Tipo riepilogativo "
  HELP "Selezionare Del periodo/Annuale a seconda che si desideri la stampa della liquidazione periodica/annuale" 
  ITEM "P|Del periodo"
  ITEM "A|Annuale"
  GROUP 1
END

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

NUMBER ULTIMA_PAGINA 4
BEGIN
  PROMPT 2 14 "Ultimo numero di pagina stampata libro unico "
  FLAGS "R"
  GROUP 2
END

STRING CODICE_LIBRO_IVA 3
BEGIN
  PROMPT 2 15 "Eventuale codice libro IVA                   "
  HELP "Se non viene indicato nessun cod. libro IVA, vengono stampati tutti i registri delle ditte selezionate"  
  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 9 2
BEGIN
 PROMPT -12 -1 "~Stampa"  
 MESSAGE EXIT,K_ENTER
END

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

ENDPAGE

ENDMASK