campo-sirio/cg/cg1400a.uml

#include "cg1400.h"

PAGE "STAMPA DELEGHE IVA" -1 -1 72 16

LIST F_PROFILO 8 16
BEGIN
  PROMPT 1 1 "Stampa "
  ITEM "DELIVA|Delega"        
    MESSAGE ENABLE,F_CODICE|CLEAR,1@|ENABLE,2@
  ITEM "DELIVACF|Delega C.F."   
    MESSAGE ENABLE,F_CODICE|CLEAR,2@|ENABLE,1@
  ITEM "DISIVACF|Distinta C.F." 
    MESSAGE ENABLE,F_CODICE|CLEAR,2@|ENABLE,1@
  ITEM "BOLIVACF|Bollettino C.F."
    MESSAGE CLEAR,F_CODICE|CLEAR,2@|ENABLE,1@
END

NUMBER F_CODICE 5
BEGIN
  PROMPT 53 1 "Profilo "
  USE LF_FORM 
  INPUT TIPOPROF F_PROFILO SELECT
  INPUT CODPROF F_CODICE
  DISPLAY "Tipo@8" TIPOPROF
  DISPLAY "Codice@8" CODPROF
  DISPLAY "Descrizione@50" DESC
  OUTPUT F_CODICE CODPROF
  FLAGS "UZ"
  CHECKTYPE REQUIRED
END

GROUPBOX DLG_NULL 70 5
BEGIN
  PROMPT 1 2 "Stampa solo"
END

NUMBER F_CONCESSIONE 3
BEGIN           
  PROMPT 2 3 "Concessione   "
  HELP "Codice concessione in cui hanno residenza fiscale le ditte da gestire"
  USE %UCC
  FLAGS "Z"  
  INPUT CODTAB F_CONCESSIONE
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@30" S0
  OUTPUT F_CONCESSIONE CODTAB
  OUTPUT F_DESC_CONC S0
  CHECKTYPE NORMAL
  GROUP 1
END

STRING F_DESC_CONC 30
BEGIN
  PROMPT 24 3 "Descrizione "
  USE %UCC KEY 2
  INPUT S0 F_DESC_CONC
  DISPLAY "Descrizione@30" S0
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_CONCESSIONE
  CHECKTYPE NORMAL
  GROUP 1
END

NUMBER F_SOLO_ABI 5
BEGIN
  PROMPT 2 4 "Codice ABI    "
  HELP "Codice ABI della banca delle deleghe da stampare"
  FLAGS "Z"  
  USE %BAN
  INPUT CODTAB[1,5] F_SOLO_ABI
  INPUT CODTAB[6,10] F_SOLO_CAB
  DISPLAY "Azienda" CODTAB[1,5]
  DISPLAY "Dipendenza" CODTAB[6,10]
  DISPLAY "Denominazione@50" S0
  OUTPUT F_SOLO_ABI CODTAB[1,5]
  OUTPUT F_SOLO_CAB CODTAB[6,10]
  OUTPUT F_DESC_SOLO_BAN S0
  CHECKTYPE NORMAL
  GROUP 2
END

NUMBER F_SOLO_CAB 5
BEGIN
  PROMPT 50 4 "Codice CAB "
  HELP "Codice CAB della banca delle deleghe da stampare"
  FLAGS "Z"
  COPY ALL F_SOLO_ABI
  CHECKTYPE NORMAL
  GROUP 2
END

STRING F_DESC_SOLO_BAN 50
BEGIN
  PROMPT 2 5 "Denominazione "
  USE %BAN KEY 2
  INPUT S0 F_DESC_SOLO_BAN
  DISPLAY "Denominazione@50" S0
  DISPLAY "Azienda" CODTAB[1,5]
  DISPLAY "Dipendenza" CODTAB[6,10]
  COPY OUTPUT F_SOLO_ABI
  CHECKTYPE NORMAL
  GROUP 2
END

GROUPBOX DLG_NULL 70 4
BEGIN
  PROMPT 1 7 "Intesta deleghe a"
END

NUMBER F_ABI 5
BEGIN
  PROMPT 2 8 "Codice ABI    "
  HELP "Codice ABI della banca per la presentazione della delega"
  FLAGS "Z"  
  USE %BAN SELECT CODTAB[6,10]?="?????"
  INPUT CODTAB[1,5] F_ABI
  INPUT CODTAB[6,10] F_CAB
  COPY DISPLAY F_SOLO_ABI
  OUTPUT F_ABI CODTAB[1,5]
  OUTPUT F_CAB CODTAB[6,10]
  OUTPUT F_DESC_BAN S0
  CHECKTYPE NORMAL
  GROUP 2
END

NUMBER F_CAB 5
BEGIN
  PROMPT 50 8 "Codice CAB "
  HELP "Codice CAB della banca per la presentazione della delega"
  FLAGS "Z"
  COPY ALL F_ABI
  CHECKTYPE NORMAL
  WARNING "E' richiesto un codice CAB valido"
  GROUP 2
END

STRING F_DESC_BAN 50
BEGIN
  PROMPT 2 9 "Denominazione "
  USE %BAN KEY 2 SELECT CODTAB[6,10]?="?????" 
  INPUT S0 F_DESC_BAN
  COPY DISPLAY F_DESC_SOLO_BAN
  COPY OUTPUT F_ABI
  CHECKTYPE NORMAL
  GROUP 2
END

NUMBER F_ANNO 4
BEGIN
  PROMPT 2 11 "Anno    "
  HELP "Anno di cui si vogliono stampare le deleghe"
  FLAGS "A"
END

LIST F_MESE 2 11
BEGIN
  PROMPT 18 11 "Mese "
  HELP "Mese di cui si vogliono stampare le deleghe"
  FLAGS "AM"
  ITEM "13|Annuale" MESSAGE "2",F_TIPO
END

LIST F_TIPO 1 24
BEGIN
  PROMPT 2 12 "Tipo    "
  HELP "Tipo di delega da stampare"
  ITEM "1|Periodica"            MESSAGE ENABLE,F_MESE
  ITEM "2|Annuale"              MESSAGE "13",F_MESE|DISABLE,F_MESE
  ITEM "3|Articolo 74"          MESSAGE ENABLE,F_MESE
  ITEM "4|Cessazione attivita'" MESSAGE ENABLE,F_MESE
  ITEM "5|Integrativa"          MESSAGE ENABLE,F_MESE
  ITEM "7|Acconti IVA"          MESSAGE "12",F_MESE|DISABLE,F_MESE
END

DATA F_DATA
BEGIN
  PROMPT 2 13 "Data    "
  HELP "Data da stampare sulle deleghe"
  FLAGS "A"
END     

BOOLEAN F_AGGIORNA
BEGIN
  PROMPT 43 11 "Aggiorna codici banca"
  HELP "Scrive i codici banca sulle deleghe che non li riportano"
END

BOOLEAN F_DISTINTA
BEGIN
  PROMPT 43 12 "Stampa distinta deleghe"
  HELP "Stampa un riepilogo su carta normale delle deleghe stampate"
END

BOOLEAN F_DEFINITIVA
BEGIN
  PROMPT 43 13 "Stampa definitiva"
END

BUTTON DLG_SELECT 9 2
BEGIN
  PROMPT -12 -1 "Selezione"
  HELP "Selezione delle ditte di cui stampare le deleghe"
  MESSAGE EXIT,K_ENTER
END

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

ENDPAGE

ENDMASK