campo-sirio/ba/ba6100a.uml

#include "ba6100a.h"
#include <lffiles.h>
PAGE "Definizione Stampe" -1 -1 70 17

RADIOBUTTON RDB_BA6_TYPE 25
BEGIN
	PROMPT 3 1 "Oggetto"
	HELP "Selezionare l'archivio che si desidera stampare"
	ITEM "0|Persone Fisiche"
		MESSAGE ENABLE,CHK_BA6_INCLDI|ENABLE,BUT_BA6_ETICHETTE
		MESSAGE HIDE,2@|HIDE,3@|SHOW,1@
	ITEM "1|Persone Giuridiche"
		MESSAGE ENABLE,CHK_BA6_INCLDI|ENABLE,BUT_BA6_ETICHETTE
		MESSAGE HIDE,1@|HIDE,3@|SHOW,2@
	ITEM "2|Ditte"
		MESSAGE DISABLE,CHK_BA6_INCLDI|DISABLE,BUT_BA6_ETICHETTE
		MESSAGE HIDE,1@|HIDE,2@|SHOW,3@
END

RADIOBUTTON RDB_BA6_SORT 25
BEGIN
	PROMPT 3 6 "Ordinamento"
	HELP "Selezionare il tipo di ordinamento dei record stampati"
	ITEM "1|per Codice"
			MESSAGE DISABLE,5@|ENABLE,4@
	ITEM "2|per Ragione Sociale"
			MESSAGE DISABLE,4@|ENABLE,5@
END

GROUPBOX DLG_NULL 36 9
BEGIN
	PROMPT 32 1 "Selezione "
END

TEXT DLG_NULL
BEGIN
	PROMPT 34 2 "da Codice"
END

TEXT DLG_NULL
BEGIN
	PROMPT 48 2 "a Codice"
END

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

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

NUMBER 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@16" COFI
	DISPLAY "Ragione sociale@50" RAGSOC
	OUTPUT FLD_ANF_CODFR CODANAGR
	OUTPUT FLD_ANF_RAGSOCFR RAGSOC
	FLAGS "R"
	HELP "Introdurre codice di inizio stampa: vuoto = inizio archivio"
	GROUP 1 4
END

NUMBER FLD_ANF_CODTO 5
BEGIN
	PROMPT 48 3 ""
	COPY USE FLD_ANF_CODFR
	INPUT TIPOA "F"
	INPUT CODANAGR FLD_ANF_CODTO
	COPY DISPLAY FLD_ANF_CODFR
	OUTPUT FLD_ANF_CODTO CODANAGR
	OUTPUT FLD_ANF_RAGSOCTO RAGSOC
	FLAGS "R"
	HELP "Introdurre codice di fine stampa: vuoto = fine archivio"
	GROUP 1 4
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@16" COFI
	DISPLAY "Ragione sociale@50" RAGSOC
	OUTPUT FLD_ANF_RAGSOCFR RAGSOC
	OUTPUT FLD_ANF_CODFR CODANAGR
	HELP "Introdurre ragione soc. di inizio stampa: vuoto = inizio archivio"
	GROUP 1 5
END

STRING FLD_ANF_RAGSOCTO 29
BEGIN
	PROMPT 34 8 ""
	COPY USE FLD_ANF_RAGSOCFR
	INPUT RAGSOC FLD_ANF_RAGSOCTO
	COPY DISPLAY FLD_ANF_RAGSOCFR
	OUTPUT FLD_ANF_RAGSOCTO RAGSOC
	OUTPUT FLD_ANF_CODTO CODANAGR
	HELP "Introdurre ragione soc. di fine stampa: vuoto = fine archivio"
	GROUP 1 5
END

NUMBER FLD_ANG_CODFR 5
BEGIN
	PROMPT 34 3 ""
	FLAGS "R"
	COPY USE FLD_ANF_CODFR
	INPUT TIPOA "G"
	INPUT CODANAGR FLD_ANG_CODFR
	COPY DISPLAY FLD_ANF_CODFR
	OUTPUT FLD_ANG_CODFR CODANAGR
	OUTPUT FLD_ANG_RAGSOCFR RAGSOC
	HELP "Introdurre codice di inizio stampa: vuoto = inizio archivio"
	GROUP 2 4
END

NUMBER FLD_ANG_CODTO 5
BEGIN
	PROMPT 48 3 ""
	FLAGS "R"
	COPY USE FLD_ANF_CODFR
	INPUT TIPOA "G"
	INPUT CODANAGR FLD_ANG_CODTO
	COPY DISPLAY FLD_ANF_CODFR
	OUTPUT FLD_ANG_CODTO CODANAGR
	OUTPUT FLD_ANG_RAGSOCTO RAGSOC
	HELP "Introdurre codice di fine stampa: vuoto = fine archivio"
	GROUP 2 4
END

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

STRING FLD_ANG_RAGSOCTO 29
BEGIN
	PROMPT 34 8 ""
	COPY USE FLD_ANG_RAGSOCFR
	INPUT RAGSOC FLD_ANG_RAGSOCTO
	COPY DISPLAY FLD_ANG_RAGSOCFR
	OUTPUT FLD_ANG_RAGSOCTO RAGSOC
	OUTPUT FLD_ANG_CODTO CODANAGR
	HELP "Introdurre ragione soc. di fine stampa: vuoto = fine archivio"
	GROUP 2 5
END

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

STRING FLD_DITTE_CODTO 5
BEGIN
	PROMPT 48 3 ""
	COPY USE FLD_DITTE_CODFR
	INPUT CODDITTA FLD_DITTE_CODFR
	INPUT RAGSOC FLD_ANF_RAGSOCFR
	COPY DISPLAY FLD_DITTE_CODFR
	OUTPUT FLD_DITTE_RAGSOCTO RAGSOC
	OUTPUT FLD_DITTE_CODTO CODDITTA
	HELP "Introdurre codice di fine stampa: vuoto = fine archivio"
	GROUP 3 4
END

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

STRING FLD_DITTE_RAGSOCTO 29
BEGIN
	PROMPT 34 8 ""
	COPY USE FLD_DITTE_RAGSOCFR
	INPUT CODDITTA FLD_DITTE_RAGSOCTO
	COPY DISPLAY FLD_DITTE_RAGSOCFR
	OUTPUT FLD_DITTE_RAGSOCTO RAGSOC
	OUTPUT FLD_DITTE_CODTO CODDITTA
	HELP "Introdurre ragione soc. di fine stampa: vuoto = fine archivio"
	GROUP 3 5
END

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

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


GROUPBOX DLG_NULL 50 4
BEGIN
	PROMPT 3 13 "Stampa"
END

BUTTON BUT_BA6_ELENCO 9 2
BEGIN
	PROMPT 4 14 "Elenco"
	MESSAGE EXIT,BUT_BA6_ELENCO
END

BUTTON BUT_BA6_SCHEDE 9 2
BEGIN
	PROMPT 16 14 "Schede"
	MESSAGE EXIT,BUT_BA6_SCHEDE
END

BUTTON BUT_BA6_RUBRICHE 9 2
BEGIN
	PROMPT 28 14 "Rubriche"
	MESSAGE EXIT,BUT_BA6_RUBRICHE
END

BUTTON BUT_BA6_ETICHETTE 9 2
BEGIN
	PROMPT 40 14 "Etichette"
	MESSAGE EXIT,BUT_BA6_ETICHETTE
END

BUTTON DLG_QUIT 9 2
BEGIN
	PROMPT 56 14 ""
END

ENDPAGE
ENDMASK