#include "cg1200a.h"
#include <lffiles.h>
PAGE "Selezione" -1 -1 70 20

NUMBER F_CODDITTA 5
BEGIN
  PROMPT 2 1 "Ditta           "
  FLAGS "FRD"
  USE LF_NDITTE KEY 1
  CHECKTYPE REQUIRED
  INPUT CODDITTA F_CODDITTA
  DISPLAY "Codice" CODDITTA
  DISPLAY "Ragione sociale @50" RAGSOC
  OUTPUT F_CODDITTA CODDITTA
  OUTPUT F_RAGSOC RAGSOC
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 2 2 "Ragione sociale "
  FLAGS "D"
END

DATE F_DATA_STAMPA
BEGIN
  PROMPT 42 1 "Data di stampa  "  
  FLAGS "A"
END


RADIOBUTTON RDB_CG12_TYPE 22
BEGIN
	PROMPT 4 4 "Oggetto"
	HELP "Selezionare l'archivio che si desidera stampare"
	ITEM "1|Clienti"     MESSAGE RESET,2@|SHOW,1@|HIDE,2@
	ITEM "2|Fornitori"   MESSAGE RESET,1@|SHOW,2@|HIDE,1@
	ITEM "3|Entrambi"    MESSAGE HIDE,1@|HIDE,2@|RESET,1@|RESET,2@
END

RADIOBUTTON RDB_CG12_SORT 22
BEGIN
	PROMPT 4 9 "Ordinamento"
	HELP "Selezionare il tipo di ordinamento dei record stampati"
	ITEM "1|per Codice"           MESSAGE CLEAR,4@|ENABLE,3@
	ITEM "2|per Ragione Sociale"  MESSAGE CLEAR,3@|ENABLE,4@
END

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

TEXT DLG_NULL
BEGIN
	PROMPT 34 8 "da Ragione Sociale/Nominativo"
END

TEXT DLG_NULL
BEGIN
	PROMPT 34 10 "a Ragione Sociale/Nominativo"
END

TEXT DLG_NULL
BEGIN
	PROMPT 34 5 "da Codice"
END

TEXT DLG_NULL
BEGIN
	PROMPT 48 5 "a Codice"
END

STRING FLD_CLI_CODFR 5
BEGIN
	PROMPT 34 6 ""
	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 "Codice di inizio stampa: vuoto = inizio archivio"
END

STRING FLD_CLI_CODTO 5
BEGIN
	PROMPT 48 6 ""
	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 "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 9 ""
	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
	OUTPUT F_TIPOAPERFR TIPOAPER
	GROUP 1 4
        HELP "Ragione sociale di inizio stampa: vuoto = inizio archivio"
END

STRING FLD_CLI_RAGSOCTO 50 29
BEGIN
	PROMPT 34 11 ""
	COPY USE FLD_CLI_RAGSOCFR 
	INPUT TIPOCF "C"
	INPUT RAGSOC FLD_CLI_RAGSOCTO
	COPY DISPLAY FLD_CLI_RAGSOCFR
	OUTPUT FLD_CLI_RAGSOCTO RAGSOC
	OUTPUT F_TIPOAPERTO TIPOAPER 
	GROUP 1 4
        HELP "Ragione sociale 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 6 ""
	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 "Codice C/F di inizio stampa: vuoto = inizio archivio"
END

STRING FLD_FOR_CODTO 5
BEGIN
	PROMPT 48 6 ""
	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 "Codice C/F 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 9 ""
	USE LF_CLIFO KEY 2 
	INPUT TIPOCF "F"
	INPUT RAGSOC FLD_FOR_RAGSOCFR
	COPY DISPLAY FLD_CLI_RAGSOCFR
	OUTPUT FLD_FOR_RAGSOCFR RAGSOC
	OUTPUT F_TIPOAPERFR TIPOAPER
	GROUP 2 4
        HELP "Ragione sociale di inizio stampa: vuoto = inizio archivio"
END

STRING FLD_FOR_RAGSOCTO 50 29
BEGIN
	PROMPT 34 11 ""
	COPY USE FLD_FOR_RAGSOCFR 
	INPUT TIPOCF "F"
	INPUT RAGSOC FLD_FOR_RAGSOCTO
	COPY DISPLAY FLD_CLI_RAGSOCFR
	OUTPUT FLD_FOR_RAGSOCTO RAGSOC
	OUTPUT F_TIPOAPERTO TIPOAPER 
	GROUP 2 4
        HELP "Ragione sociale di fine stampa: vuoto = fine archivio"
	STR_EXPR {(#THIS_FIELD == "") || (#THIS_FIELD >= #FLD_FOR_RAGSOCFR)} 
	WARNING "Limite superiore errato"
END
     
STRING F_TIPOAPERFR 1
BEGIN
  PROMPT 1 1 ""
  FLAGS "HD"
END

STRING F_TIPOAPERTO 1
BEGIN
  PROMPT 2 2 ""
  FLAGS "HD"
END

BOOLEAN CHK_CG12_MOVIM
BEGIN
	PROMPT 4 13 "Solo movimentati"
        HELP "Indicare se stampare solo inclusi archivio movimenti"
END

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

GROUPBOX DLG_NULL 51 4
BEGIN
	PROMPT 2 16 "Stampa"
END

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

BUTTON BUT_CG12_RUBRICHE 9 2
BEGIN
	PROMPT 16 17 "~Rubriche"
	MESSAGE EXIT,BUT_CG12_RUBRICHE
END

BUTTON BUT_CG12_ETICHETTE 9 2
BEGIN
	PROMPT 28 17 "E~tichette"
	MESSAGE EXIT,BUT_CG12_ETICHETTE
END

BUTTON BUT_CG12_VENDITE 9 2
BEGIN
  PROMPT 40 17 "~Vendite"
	MESSAGE EXIT,BUT_CG12_VENDITE
END

BUTTON DLG_QUIT 9 2
BEGIN
	PROMPT 55 17 ""
END

ENDPAGE
ENDMASK