#include "cg1400.h"

PAGE "STAMPA DELEGHE IVA" -1 -1 58 11

NUMBER F_ABI 5
BEGIN
	PROMPT 1 1 "Codice ABI "
        HELP "Codice ABI della banca per la presentazione della delega"
	FLAGS "RZ"  
	FIELD CNF_STUDIO->cg.CodABI
	USE %BAN
	INPUT CODTAB[1,5] F_ABI
	INPUT CODTAB[6,10] F_CAB
	DISPLAY "Azienda" CODTAB[1,5]
	DISPLAY "Dipendenza" CODTAB[6,10]
	DISPLAY "Nome@50" S0
	DISPLAY "Filiale@50" S1
	OUTPUT F_ABI CODTAB[1,5]
	OUTPUT F_CAB CODTAB[6,10]
END

NUMBER F_CAB 5
BEGIN
	PROMPT 22 1 "Codice CAB "
        HELP "Codice CAB della banca per la presentazione della delega"
	FLAGS "RZ"
	FIELD CNF_STUDIO->cg.CodCAB
	COPY USE F_ABI
	INPUT CODTAB[1,5] F_ABI
	INPUT CODTAB[6,10] F_CAB
	DISPLAY "Azienda" CODTAB[1,5]
	DISPLAY "Dipendenza" CODTAB[6,10]
	DISPLAY "Nome@50" S0
	DISPLAY "Filiale@50" S1
	OUTPUT F_ABI CODTAB[1,5]
	OUTPUT F_CAB CODTAB[6,10]
END

DATA F_DATA
BEGIN
	PROMPT 1 3 "Data di stampa "
        HELP "Data che viene stampata sulla delega"
	FLAGS "A"
END

LIST F_TIPO 21
BEGIN
	PROMPT 28 3 "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

NUMBER F_ANNO 4
BEGIN
	PROMPT 1 5 "Anno "
        HELP "Anno di cui si vuole stampare la delega"
	FLAGS "A"
END

LIST F_MESE 10
BEGIN
	PROMPT 13 5 "Mese "
        HELP "Mese di cui si vuole stampare la delega"
	FLAGS "MA"
	ITEM "13|Annuale" MESSAGE "2",F_TIPO
END

BOOLEAN F_PROVA
BEGIN
	PROMPT 1 7 "Stampa di prova"
        HELP "Indicare se si tratta di una stampa di controllo"
END

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

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

BUTTON DLG_SELECT 9 2
BEGIN
	PROMPT 45 6 "Selezione"
	HELP "Permette di selezionare le ditte di cui stampare le deleghe"
	MESSAGE EXIT,K_ENTER
END

BUTTON DLG_QUIT 9 2
BEGIN
	PROMPT 45 8 ""
END

ENDPAGE

ENDMASK