campo-sirio/cg/cg1200a.uml

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

RADIOBUTTON RDB_CG12_TYPE 22
BEGIN
	PROMPT 4 1 "Oggetto"
	HELP "Selezionare l'archivio che si desidera stampare"
	ITEM "1|Clienti" 
	  MESSAGE HIDE,FLD_FOR_RAGSOCFR|HIDE,FLD_FOR_RAGSOCTO
	  MESSAGE HIDE,FLD_FOR_CODFR|HIDE,FLD_FOR_CODTO
	  MESSAGE SHOW,FLD_CLI_RAGSOCFR|SHOW,FLD_CLI_RAGSOCTO
	  MESSAGE SHOW,FLD_CLI_CODFR|SHOW,FLD_CLI_CODTO
	ITEM "2|Fornitori" 
	  MESSAGE SHOW,FLD_FOR_RAGSOCFR|SHOW,FLD_FOR_RAGSOCTO
	  MESSAGE SHOW,FLD_FOR_CODFR|SHOW,FLD_FOR_CODTO
	  MESSAGE HIDE,FLD_CLI_RAGSOCFR|HIDE,FLD_CLI_RAGSOCTO
	  MESSAGE HIDE,FLD_CLI_CODFR|HIDE,FLD_CLI_CODTO
	ITEM "3|Entrambi" 
	  MESSAGE HIDE,FLD_FOR_RAGSOCFR|HIDE,FLD_FOR_RAGSOCTO
	  MESSAGE HIDE,FLD_FOR_CODFR|HIDE,FLD_FOR_CODTO
	  MESSAGE SHOW,FLD_CLI_RAGSOCFR|HIDE,FLD_CLI_RAGSOCTO
	  MESSAGE SHOW,FLD_CLI_CODFR|SHOW,FLD_CLI_CODTO
	  MESSAGE DISABLE,FLD_CLI_RAGSOCFR|DISABLE,FLD_CLI_RAGSOCTO
	  MESSAGE DISABLE,FLD_CLI_CODFR|DISABLE,FLD_CLI_CODTO
END

RADIOBUTTON RDB_CG12_SORT 22
BEGIN
	PROMPT 4 6 "Ordinamento"
	HELP "Selezionare il tipo di ordinamento dei record stampati"
	ITEM "1|per Codice"
	  MESSAGE DISABLE,FLD_FOR_RAGSOCFR|DISABLE,FLD_FOR_RAGSOCTO
	  MESSAGE DISABLE,FLD_CLI_RAGSOCFR|DISABLE,FLD_CLI_RAGSOCTO
	  MESSAGE RESET,FLD_FOR_RAGSOCFR|RESET,FLD_FOR_RAGSOCTO
	  MESSAGE RESET,FLD_CLI_RAGSOCFR|RESET,FLD_CLI_RAGSOCTO
	  MESSAGE ENABLE,FLD_FOR_CODFR|ENABLE,FLD_FOR_CODTO
	  MESSAGE ENABLE,FLD_CLI_CODFR|ENABLE,FLD_CLI_CODTO
	ITEM "2|per Ragione Sociale"
	  MESSAGE DISABLE,FLD_FOR_CODFR|DISABLE,FLD_FOR_CODTO
	  MESSAGE DISABLE,FLD_CLI_CODFR|DISABLE,FLD_CLI_CODTO
	  MESSAGE RESET,FLD_FOR_CODFR|RESET,FLD_FOR_CODTO
	  MESSAGE RESET,FLD_CLI_CODFR|RESET,FLD_CLI_CODTO
	  MESSAGE ENABLE,FLD_FOR_RAGSOCFR|ENABLE,FLD_FOR_RAGSOCTO
	  MESSAGE ENABLE,FLD_CLI_RAGSOCFR|ENABLE,FLD_CLI_RAGSOCTO
END

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

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

TEXT DLG_NULL
BEGIN
	PROMPT 34 5 "da Ragione Sociale/Nominativo"
END
TEXT DLG_NULL
BEGIN
	PROMPT 34 7 "a Ragione Sociale/Nominativo"
END
TEXT DLG_NULL
BEGIN
	PROMPT 34 2 "da Codice"
END
TEXT DLG_NULL
BEGIN
	PROMPT 48 2 "a Codice"
END

STRING FLD_CLI_CODFR 5
BEGIN
	PROMPT 34 3 ""
	USE LF_CLIFO KEY 1
	INPUT TIPOCF "C"
	INPUT CODCF FLD_CLI_CODFR
	DISPLAY "Codice" CODCF
	DISPLAY "Codice Fiscale     " COFI
	DISPLAY "Ragione sociale                          " RAGSOC
	OUTPUT FLD_CLI_RAGSOCFR RAGSOC 
	OUTPUT FLD_CLI_CODFR CODCF 
	HELP "Introdurre codice di inizio stampa: vuoto = inizio archivio"
END

STRING FLD_CLI_CODTO 5
BEGIN
	PROMPT 48 3 ""
	COPY USE FLD_CLI_CODFR
	INPUT TIPOCF "C"
	INPUT CODCF FLD_CLI_CODTO
	DISPLAY "Codice" CODCF
	DISPLAY "Codice Fiscale     " COFI
	DISPLAY "Ragione sociale                          " RAGSOC
	OUTPUT FLD_CLI_RAGSOCTO RAGSOC 
	OUTPUT FLD_CLI_CODTO CODCF
	HELP "Introdurre codice di fine stampa: vuoto = fine archivio"
END

STRING FLD_CLI_RAGSOCFR 29
BEGIN
	PROMPT 34 6 ""
	USE LF_CLIFO KEY 2 SELECT TIPOCF="C"
	INPUT RAGSOC FLD_CLI_RAGSOCFR
	DISPLAY "Codice" CODCF
	DISPLAY "Codice Fiscale     " COFI
	DISPLAY "Ragione sociale                          " RAGSOC
	OUTPUT FLD_CLI_CODFR CODCF 
	OUTPUT FLD_CLI_RAGSOCFR RAGSOC
	HELP "Introdurre rag. soc. di inizio stampa: vuoto = inizio archivio"
END

STRING FLD_CLI_RAGSOCTO 29
BEGIN
	PROMPT 34 8 ""
	COPY USE FLD_CLI_RAGSOCFR
	INPUT RAGSOC FLD_CLI_RAGSOCTO
	DISPLAY "Codice" CODCF
	DISPLAY "Codice Fiscale     " COFI
	DISPLAY "Ragione sociale                          " RAGSOC
	OUTPUT FLD_CLI_CODTO CODCF 
	OUTPUT FLD_CLI_RAGSOCTO RAGSOC 
	HELP "Introdurre ragione soc. di fine stampa: vuoto = fine archivio"
END

STRING FLD_FOR_CODFR 5
BEGIN
	PROMPT 34 3 ""
	FLAGS "H"
	COPY USE FLD_CLI_CODFR
	INPUT TIPOCF "F"
	INPUT CODCF FLD_FOR_CODFR
	DISPLAY "Codice" CODCF
	DISPLAY "Codice Fiscale     " COFI
	DISPLAY "Ragione sociale                          " RAGSOC
	OUTPUT FLD_FOR_RAGSOCFR RAGSOC 
	OUTPUT FLD_FOR_CODFR CODCF
	HELP "Introdurre codice di inizio stampa: vuoto = inizio archivio"
END

STRING FLD_FOR_CODTO 5
BEGIN
	PROMPT 48 3 ""
	FLAGS "H"
	COPY USE FLD_FOR_CODFR
	INPUT TIPOCF "F"
	INPUT CODCF FLD_FOR_CODTO
	DISPLAY "Codice" CODCF
	DISPLAY "Codice Fiscale     " COFI
	DISPLAY "Ragione sociale                          " RAGSOC
	OUTPUT FLD_FOR_RAGSOCTO RAGSOC
	OUTPUT FLD_FOR_CODTO CODCF
	HELP "Introdurre codice di fine stampa: vuoto = fine archivio"
END

STRING FLD_FOR_RAGSOCFR 29
BEGIN
	PROMPT 34 6 ""
	FLAGS "H"
	USE LF_CLIFO KEY 2 SELECT TIPOCF="F"
	INPUT RAGSOC FLD_FOR_RAGSOCFR
	DISPLAY "Codice" CODCF
	DISPLAY "Codice Fiscale     " COFI
	DISPLAY "Ragione sociale                          " RAGSOC
	OUTPUT FLD_FOR_CODFR CODCF 
	OUTPUT FLD_FOR_RAGSOCFR RAGSOC
	HELP "Introdurre rag. soc. di inizio stampa: vuoto = inizio archivio"
END

STRING FLD_FOR_RAGSOCTO 29
BEGIN
	PROMPT 34 8 ""
	FLAGS "H"
	COPY USE FLD_FOR_RAGSOCFR
	INPUT RAGSOC FLD_FOR_RAGSOCTO
	DISPLAY "Codice" CODCF
	DISPLAY "Codice Fiscale     " COFI
	DISPLAY "Ragione sociale                          " RAGSOC
	OUTPUT FLD_FOR_CODTO CODCF 
	OUTPUT FLD_FOR_RAGSOCTO RAGSOC 
	HELP "Introdurre ragione soc. di fine stampa: vuoto = fine archivio"
END

BOOLEAN CHK_CG12_MOVIM
BEGIN
	PROMPT 4 10 "Solo movimentati"
	HELP "Selezionare per stampare solo inclusi archivio movimenti"
END


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

LIST LST_CG12_INTERLINE 1
BEGIN
	PROMPT 34 11 "N. righe interlinea "
	ITEM "0|0"
	ITEM "1|1"
	ITEM "2|2"
	HELP "Scegliere il numero di righe di interlinea tra i nominativi"
END

BUTTON BUT_CG12_ELENCO 9 2
BEGIN
	PROMPT 4 14 "Elenco"
END

BUTTON BUT_CG12_RUBRICHE 9 2
BEGIN
	PROMPT 19 14 "Rubriche"
END

BUTTON BUT_CG12_ETICHETTE 9 2
BEGIN
	PROMPT 35 14 "Etichette"
END

BUTTON DLG_CANCEL 9 2
BEGIN
	PROMPT 53 14 "Annulla"
END

ENDPAGE
ENDMASK