campo-sirio/cg/cg1200a.uml

#include "cg1200a.h"
#include <lffiles.h>
PAGE "Selezione" -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,2@|SHOW,1@|RESET,2@
	ITEM "2|Fornitori" 
	  MESSAGE HIDE,1@|SHOW,2@|RESET,1@
	ITEM "3|Entrambi" 
	  MESSAGE HIDE,1@|HIDE,2@|RESET,1@|RESET,2@
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,4@|ENABLE,3@|RESET,4@
	ITEM "2|per Ragione Sociale"
	  MESSAGE DISABLE,3@|ENABLE,4@|RESET,3@
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@16" COFI
	DISPLAY "Ragione sociale@50" RAGSOC
	OUTPUT FLD_CLI_CODFR CODCF 
 	GROUP 1 3
	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
	COPY DISPLAY FLD_CLI_CODFR
	OUTPUT FLD_CLI_CODTO CODCF
 	GROUP 1 3
	HELP "Introdurre codice di fine stampa: vuoto = fine archivio"
	NUM_EXPR {(#THIS_FIELD == 0) || (#THIS_FIELD >= #FLD_CLI_CODFR)} 
	WARNING "Limite superiore errato"
END

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

STRING FLD_CLI_RAGSOCTO 50 29
BEGIN
	PROMPT 34 8 ""
	COPY USE FLD_CLI_RAGSOCFR
	INPUT RAGSOC FLD_CLI_RAGSOCTO
	COPY DISPLAY FLD_CLI_RAGSOCFR
	OUTPUT FLD_CLI_RAGSOCTO RAGSOC 
 	GROUP 1 4
	HELP "Introdurre ragione soc. di fine stampa: vuoto = fine archivio"
	STR_EXPR {(#THIS_FIELD == "") || (#THIS_FIELD >= #FLD_CLI_RAGSOCFR)} 
	WARNING "Limite superiore errato"
END

STRING FLD_FOR_CODFR 5
BEGIN
	PROMPT 34 3 ""
	COPY USE FLD_CLI_CODFR
	INPUT TIPOCF "F"
	INPUT CODCF FLD_FOR_CODFR
	COPY DISPLAY FLD_CLI_CODFR
	OUTPUT FLD_FOR_CODFR CODCF
	GROUP 2 3
	HELP "Introdurre codice di inizio stampa: vuoto = inizio archivio"
END

STRING FLD_FOR_CODTO 5
BEGIN
	PROMPT 48 3 ""
	COPY USE FLD_FOR_CODFR
	INPUT TIPOCF "F"
	INPUT CODCF FLD_FOR_CODTO
	COPY DISPLAY FLD_CLI_CODFR
	OUTPUT FLD_FOR_CODTO CODCF
	GROUP 2 3
	HELP "Introdurre codice di fine stampa: vuoto = fine archivio"
	NUM_EXPR {(#THIS_FIELD == 0) || (#THIS_FIELD >= #FLD_FOR_CODFR)} 
	WARNING "Limite superiore errato"
END

STRING FLD_FOR_RAGSOCFR 50 29
BEGIN
	PROMPT 34 6 ""
	USE LF_CLIFO KEY 2 
	INPUT TIPOCF "F"
	INPUT RAGSOC FLD_FOR_RAGSOCFR
	COPY DISPLAY FLD_CLI_RAGSOCFR
	OUTPUT FLD_FOR_RAGSOCFR RAGSOC
	GROUP 2 4
	HELP "Introdurre rag. soc. di inizio stampa: vuoto = inizio archivio"
END

STRING FLD_FOR_RAGSOCTO 50 29
BEGIN
	PROMPT 34 8 ""
	COPY USE FLD_FOR_RAGSOCFR
	INPUT RAGSOC FLD_FOR_RAGSOCTO
	COPY DISPLAY FLD_CLI_RAGSOCFR
	OUTPUT FLD_FOR_RAGSOCTO RAGSOC 
	GROUP 2 4
	HELP "Introdurre ragione soc. di fine stampa: vuoto = fine archivio"
	STR_EXPR {(#THIS_FIELD == "") || (#THIS_FIELD >= #FLD_FOR_RAGSOCFR)} 
	WARNING "Limite superiore errato"
END

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

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

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

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

BUTTON BUT_CG12_RUBRICHE 9 2
BEGIN
	PROMPT 19 14 "~Rubriche"
        MESSAGE EXIT,BUT_CG12_RUBRICHE
END

BUTTON BUT_CG12_ETICHETTE 9 2
BEGIN
	PROMPT 35 14 "E~tichette"
        MESSAGE EXIT,BUT_CG12_ETICHETTE
END

BUTTON DLG_QUIT 9 2
BEGIN
	PROMPT 53 14 ""
END

ENDPAGE
ENDMASK