campo-sirio/cg/Attic/cg1400a.uml

#include "cg1400.h"

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

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

NUMBER F_CONCESSIONE 3
BEGIN           
  PROMPT 2 2 "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
END

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


NUMBER F_SOLO_ABI 5
BEGIN
  PROMPT 2 3 "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
END

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

STRING F_DESC_SOLO_BAN 50
BEGIN
  PROMPT 2 4 "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
END

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

NUMBER F_ABI 5
BEGIN
  PROMPT 2 7 "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
END

NUMBER F_CAB 5
BEGIN
  PROMPT 50 7 "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"
END

STRING F_DESC_BAN 50
BEGIN
  PROMPT 2 8 "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
END

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

LIST F_MESE 2 11
BEGIN
  PROMPT 18 10 "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 11 "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 "7|Acconti IVA" MESSAGE "12",F_MESE|DISABLE,F_MESE
END

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

STRING F_PROFILO 5
BEGIN
  PROMPT 2 13 "Profilo "
  FLAGS "UZ"
  CHECKTYPE REQUIRED
END

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

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

BOOLEAN F_DEFINITIVA
BEGIN
  PROMPT 43 12 "Stampa definitiva"
END

BOOLEAN F_CONTOFIS
BEGIN
  PROMPT 43 13 "Titolari Conto fiscale"
  MESSAGE FALSE ENABLE,F_PROFILO
  MESSAGE TRUE  DISABLE,F_PROFILO|"TITCF",F_PROFILO
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