#include "ba6100a.h"
#include <lffiles.h>

PAGE "Definizione Stampe" -1 -1 70 17

RADIOBUTTON RDB_BA6_TYPE 26
BEGIN
	PROMPT 4 1 "Oggetto"
	HELP "Selezionare l'archivio che si desidera stampare"
	ITEM "0|Persone Fisiche" 
	  MESSAGE HIDE,FLD_DITTE_RAGSOCFR|HIDE,FLD_DITTE_RAGSOCTO
	  MESSAGE HIDE,FLD_ANG_CODFR|HIDE,FLD_ANG_CODTO|HIDE,FLD_ANG_RAGSOCFR
	  MESSAGE HIDE,FLD_ANG_RAGSOCTO|HIDE,FLD_DITTE_CODTO
	  MESSAGE SHOW,FLD_ANF_CODFR|SHOW,FLD_ANF_CODTO|SHOW,FLD_ANF_RAGSOCFR
	  MESSAGE SHOW,FLD_ANF_RAGSOCTO|HIDE,FLD_DITTE_CODFR
	  MESSAGE ENABLE,CHK_BA6_INCLDI
	ITEM "1|Persone Giuridiche" 
	  MESSAGE HIDE,FLD_DITTE_CODTO|HIDE,FLD_DITTE_RAGSOCFR
	  MESSAGE HIDE,FLD_DITTE_RAGSOCTO|HIDE,FLD_ANF_CODFR|HIDE,FLD_ANF_CODTO
	  MESSAGE HIDE,FLD_ANF_RAGSOCFR|HIDE,FLD_ANF_RAGSOCTO
	  MESSAGE SHOW,FLD_ANG_CODFR|SHOW,FLD_ANG_CODTO|SHOW,FLD_ANG_RAGSOCFR
	  MESSAGE SHOW,FLD_ANG_RAGSOCTO|HIDE,FLD_DITTE_CODFR
	  MESSAGE ENABLE,CHK_BA6_INCLDI
	  MESSAGE DISABLE,BUT_BA6_ETICHETTE|RESET,BUT_BA6_ETICHETTE
	  MESSAGE ENABLE,BUT_BA6_ETICHETTE|RESET,BUT_BA6_ETICHETTE
	ITEM "2|Ditte" 
	  MESSAGE HIDE,FLD_ANF_CODFR|HIDE,FLD_ANF_CODTO
	  MESSAGE HIDE,FLD_ANF_RAGSOCFR|HIDE,FLD_ANF_RAGSOCTO
	  MESSAGE HIDE,FLD_ANG_CODFR|HIDE,FLD_ANG_CODTO
	  MESSAGE HIDE,FLD_ANG_RAGSOCFR|HIDE,FLD_ANG_RAGSOCTO
	  MESSAGE SHOW,FLD_DITTE_CODFR|SHOW,FLD_DITTE_CODTO
	  MESSAGE SHOW,FLD_DITTE_RAGSOCFR|SHOW,FLD_DITTE_RAGSOCTO
	  MESSAGE DISABLE,CHK_BA6_INCLDI
	  MESSAGE RESET,CHK_BA6_INCLDI
	  MESSAGE ENABLE,BUT_BA6_ETICHETTE|RESET,BUT_BA6_ETICHETTE
END

RADIOBUTTON RDB_BA6_SORT 26
	PROMPT 4 6 "Ordinamento"
	HELP "Selezionare il tipo di ordinamento dei record stampati"
	ITEM "1|per Codice"
	  MESSAGE DISABLE,FLD_ANF_RAGSOCFR|DISABLE,FLD_ANF_RAGSOCTO
	  MESSAGE RESET,FLD_ANF_RAGSOCFR|RESET,FLD_ANF_RAGSOCTO
	  MESSAGE DISABLE,FLD_ANG_RAGSOCFR|DISABLE,FLD_ANG_RAGSOCTO
	  MESSAGE RESET,FLD_ANG_RAGSOCFR|RESET,FLD_ANG_RAGSOCTO
	  MESSAGE DISABLE,FLD_DITTE_RAGSOCFR|DISABLE,FLD_DITTE_RAGSOCTO
	  MESSAGE RESET,FLD_DITTE_RAGSOCFR|RESET,FLD_DITTE_RAGSOCTO
	  MESSAGE ENABLE,FLD_ANF_CODFR|ENABLE,FLD_ANF_CODTO
	  MESSAGE ENABLE,FLD_ANG_CODFR|ENABLE,FLD_ANG_CODTO
	  MESSAGE ENABLE,FLD_DITTE_CODFR|ENABLE,FLD_DITTE_CODTO
	ITEM "2|per Ragione Sociale"
	  MESSAGE DISABLE,FLD_ANF_CODFR|DISABLE,FLD_ANF_CODTO
	  MESSAGE RESET,FLD_ANF_CODFR|RESET,FLD_ANF_CODTO
	  MESSAGE DISABLE,FLD_ANG_CODFR|DISABLE,FLD_ANG_CODTO
	  MESSAGE RESET,FLD_ANG_CODFR|RESET,FLD_ANG_CODTO
	  MESSAGE DISABLE,FLD_DITTE_CODFR|DISABLE,FLD_DITTE_CODTO
	  MESSAGE RESET,FLD_DITTE_CODFR|RESET,FLD_DITTE_CODTO
	  MESSAGE ENABLE,FLD_ANF_RAGSOCFR|ENABLE,FLD_ANF_RAGSOCTO
	  MESSAGE ENABLE,FLD_ANG_RAGSOCFR|ENABLE,FLD_ANG_RAGSOCTO
	  MESSAGE ENABLE,FLD_DITTE_RAGSOCFR|ENABLE,FLD_DITTE_RAGSOCTO
END

GROUPBOX DLG_NULL 47 3
BEGIN
	PROMPT 2 13 "Stampa"
END

GROUPBOX DLG_NULL 34 10
BEGIN
	PROMPT 32 1 "Selezione "
END

TEXT DLG_NULL
BEGIN
	PROMPT 34 5 "da Ragione Sociale"
END

TEXT DLG_NULL
BEGIN
	PROMPT 34 7 "a Ragione Sociale"
END

TEXT DLG_NULL
BEGIN
	PROMPT 34 2 "da Codice"
END

TEXT DLG_NULL
BEGIN
	PROMPT 48 2 "a Codice"
END

STRING FLD_ANF_CODFR 5
BEGIN
	PROMPT 34 3 ""
	USE LF_ANAG KEY 1
	INPUT TIPOA "F"
	INPUT CODANAGR FLD_ANF_CODFR
	DISPLAY "Codice" CODANAGR
	DISPLAY "Codice Fiscale     " COFI
	DISPLAY "Ragione sociale                          " RAGSOC
	OUTPUT FLD_ANF_CODFR CODANAGR 
	OUTPUT FLD_ANF_RAGSOCFR RAGSOC 
	HELP "Introdurre codice di inizio stampa: vuoto = inizio archivio"
END

STRING FLD_ANF_CODTO 5
BEGIN
	PROMPT 48 3 ""
	COPYUSE FLD_ANF_CODFR
	INPUT TIPOA "F"
	INPUT CODANAGR FLD_ANF_CODTO
	DISPLAY "Codice" CODANAGR
	DISPLAY "Codice Fiscale     " COFI
	DISPLAY "Ragione sociale                          " RAGSOC
	OUTPUT FLD_ANF_CODTO CODANAGR 
	OUTPUT FLD_ANF_RAGSOCTO RAGSOC 
	HELP "Introdurre codice di fine stampa: vuoto = fine archivio"
END

STRING FLD_ANF_RAGSOCFR 29
BEGIN
	PROMPT 34 6 ""
	USE LF_ANAG KEY 2
	INPUT TIPOA "F"
	INPUT RAGSOC FLD_ANF_RAGSOCFR
	DISPLAY "Codice" CODANAGR
	DISPLAY "Codice Fiscale     " COFI
	DISPLAY "Ragione sociale                          " RAGSOC
	OUTPUT FLD_ANF_RAGSOCFR RAGSOC
	OUTPUT FLD_ANF_CODFR CODANAGR 
	HELP "Introdurre ragione soc. di inizio stampa: vuoto = inizio archivio"
END

STRING FLD_ANF_RAGSOCTO 29
BEGIN
	PROMPT 34 8 ""
	COPYUSE FLD_ANF_RAGSOCFR
	INPUT RAGSOC FLD_ANF_RAGSOCTO
	DISPLAY "Codice" CODANAGR
	DISPLAY "Codice Fiscale     " COFI
	DISPLAY "Ragione sociale                          " RAGSOC
	OUTPUT FLD_ANF_RAGSOCTO RAGSOC 
	OUTPUT FLD_ANF_CODTO CODANAGR 
	HELP "Introdurre ragione soc. di fine stampa: vuoto = fine archivio"
END

STRING FLD_ANG_CODFR 5
BEGIN
	PROMPT 34 3 ""
	FLAGS "H"
	COPYUSE FLD_ANF_CODFR
	INPUT TIPOA "G"
	INPUT CODANAGR FLD_ANG_CODPR
	DISPLAY "Codice" CODANAGR
	DISPLAY "Codice Fiscale     " COFI
	DISPLAY "Ragione sociale                          " RAGSOC
	OUTPUT FLD_ANG_CODFR CODANAGR 
	OUTPUT FLD_ANG_RAGSOCFR RAGSOC 
	HELP "Introdurre codice di inizio stampa: vuoto = inizio archivio"
END

STRING FLD_ANG_CODTO 5
BEGIN
	PROMPT 48 3 ""
	FLAGS "H"
	COPYUSE FLD_ANF_CODFR
	INPUT TIPOA "G"
	INPUT CODANAGR FLD_ANG_CODTO
	DISPLAY "Codice" CODANAGR
	DISPLAY "Codice Fiscale     " COFI
	DISPLAY "Ragione sociale                          " RAGSOC
	OUTPUT FLD_ANG_CODTO CODANAGR 
	OUTPUT FLD_ANG_RAGSOCTO RAGSOC 
	HELP "Introdurre codice di fine stampa: vuoto = fine archivio"
END

STRING FLD_ANG_RAGSOCFR 29
BEGIN
	PROMPT 34 6 ""
	FLAGS "H"
	USE LF_ANAG KEY 2 SELECT 'TIPOA=="G"'
	INPUT RAGSOC FLD_ANG_RAGSOCFR
	DISPLAY "Codice" CODANAGR
	DISPLAY "Codice Fiscale     " COFI
	DISPLAY "Ragione sociale                          " RAGSOC
	OUTPUT FLD_ANG_RAGSOCFR RAGSOC
	OUTPUT FLD_ANG_CODFR CODANAGR 
	HELP "Introdurre ragione soc. di inizio stampa: vuoto = inizio archivio"
END

STRING FLD_ANG_RAGSOCTO 29
BEGIN
	PROMPT 34 8 ""
	FLAGS "H"
	COPYUSE FLD_ANG_RAGSOCFR
	INPUT RAGSOC FLD_ANG_RAGSOCTO
	DISPLAY "Codice" CODANAGR
	DISPLAY "Codice Fiscale     " COFI
	DISPLAY "Ragione sociale                          " RAGSOC
	OUTPUT FLD_ANG_RAGSOCTO RAGSOC 
	OUTPUT FLD_ANG_CODTO CODANAGR 
	HELP "Introdurre ragione soc. di fine stampa: vuoto = fine archivio"
END

STRING FLD_DITTE_CODFR 5
BEGIN
	PROMPT 34 3 ""
	FLAGS "H"
	USE LF_NDITTE KEY 1
	INPUT CODDITTA FLD_DITTE_CODFR
	DISPLAY "Codice" CODDITTA
	DISPLAY "Persona Rif. " PERRIF
	DISPLAY "Ragione sociale                         " RAGSOC
	OUTPUT FLD_DITTE_CODFR CODDITTA
	OUTPUT FLD_DITTE_RAGSOCFR RAGSOC 
	HELP "Introdurre codice di inizio stampa: vuoto = inizio archivio"
END

STRING FLD_DITTE_CODTO 5
BEGIN
	PROMPT 48 3 ""
	FLAGS "H"
	COPYUSE FLD_DITTE_CODFR
	INPUT CODDITTA FLD_DITTE_CODFR
	INPUT RAGSOC FLD_ANF_RAGSOCFR
	DISPLAY "Codice" CODDITTA
	DISPLAY "Persona Rif. " PERRIF
	DISPLAY "Ragione sociale                         " RAGSOC
	OUTPUT FLD_DITTE_RAGSOCTO RAGSOC
	OUTPUT FLD_DITTE_CODTO CODDITTA
	HELP "Introdurre codice di fine stampa: vuoto = fine archivio"
END

STRING FLD_DITTE_RAGSOCFR 29
BEGIN
	PROMPT 34 6 ""
	FLAGS "H"
	USE LF_NDITTE KEY 2
	INPUT RAGSOC FLD_DITTE_RAGSOCFR
	DISPLAY "Codice" CODDITTA
	DISPLAY "Persona Rif. " PERRIF
	DISPLAY "Ragione sociale                         " RAGSOC
	OUTPUT FLD_DITTE_RAGSOCFR RAGSOC 
	OUTPUT FLD_DITTE_CODFR CODDITTA 
	HELP "Introdurre ragione soc. di inizio stampa: vuoto = inizio archivio"
END

STRING FLD_DITTE_RAGSOCTO 29
BEGIN
	PROMPT 34 8 ""  
	FLAGS "H"
	COPYUSE FLD_DITTE_RAGSOCFR
	INPUT CODDITTA FLD_DITTE_RAGSOCTO
	DISPLAY "Codice" CODDITTA
	DISPLAY "Persona Rif. " PERRIF
	DISPLAY "Ragione sociale                         " RAGSOC
	OUTPUT FLD_DITTE_RAGSOCTO RAGSOC 
	OUTPUT FLD_DITTE_CODTO CODDITTA 
	HELP "Introdurre ragione soc. di fine stampa: vuoto = fine archivio"
END

BOOLEAN CHK_BA6_INCLDI
BEGIN
	PROMPT 4 10 "Includi ditte"
	HELP "Selezionare per includere informazioni relative alle ditte"
END

BOOLEAN CHK_BA6_PRINTONE
BEGIN
	PROMPT 4 11 "Stampa un solo record"
	HELP "Selezionare per stampare soltanto il record nel campo DA"
END

BUTTON BUT_BA6_ELENCO 6
BEGIN
	PROMPT 4 14 "Elenco"
END

BUTTON BUT_BA6_SCHEDE 6
BEGIN
	PROMPT 15 14 "Schede"
END

BUTTON BUT_BA6_RUBRICHE 8
BEGIN
	PROMPT 26 14 "Rubriche"
END

BUTTON BUT_BA6_ETICHETTE 9
BEGIN
	PROMPT 37 14 "Etichette"
END

BUTTON DLG_CANCEL 
BEGIN
	PROMPT 53 14 ""
END

ENDPAGE
ENDMASK