campo-sirio/ba/ba6100a.uml

#include "ba6100a.h"

TOOLBAR "Toolbar" 0 0 0 2

BUTTON BUT_BA6_ELENCO 10 2
BEGIN
  PROMPT 4 14 "~Elenco"
  PICTURE BMP_PRINTELENCO
  MESSAGE EXIT,BUT_BA6_ELENCO
END
                
BUTTON BUT_BA6_SCHEDE 10 2
BEGIN
  PROMPT 16 14 "~Schede"
  PICTURE BMP_PRINTSCHEDE
  MESSAGE EXIT,BUT_BA6_SCHEDE
END

BUTTON BUT_BA6_ETICHETTE 10 2
BEGIN
  PROMPT 40 14 "E~tichette"
  PICTURE BMP_PRINTETICH
  MESSAGE EXIT,BUT_BA6_ETICHETTE
END

BUTTON BUT_BA6_RUBRICHE 10 2
BEGIN
  PROMPT 28 14 "~Rubriche"
  PICTURE BMP_PRINTRUBRICA
  MESSAGE EXIT,BUT_BA6_RUBRICHE
END

BUTTON DLG_NULL 2 2
BEGIN
  PROMPT 1 1 ""
  PICTURE 0
END

BUTTON DLG_SETPRINT 2 2
BEGIN
  PROMPT 1 1 "Imposta"
  PICTURE BMP_SETPRINT
END

BUTTON DLG_INFO 2 2
BEGIN
  PROMPT 2 1 "Info"
  MESSAGE EXIT,K_F2
  PICTURE BMP_INFO
END

BUTTON DLG_HELP 2 2
BEGIN
  PROMPT 3 1 "Help"
  MESSAGE EXIT,K_F1
  PICTURE BMP_HELP
END

BUTTON DLG_QUIT 2 2
BEGIN
  PROMPT 5 1 "Fine"
  MESSAGE EXIT,K_QUIT
  PICTURE BMP_QUIT
END

ENDPAGE

PAGE "Definizione Stampe" -1 -1 70 17

RADIOBUTTON RDB_BA6_TYPE 25
BEGIN
	PROMPT 3 1 "Oggetto"
  HELP "Selezionare l'anagrafica 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@|RESET,5@
	ITEM "2|per Ragione Sociale"
	MESSAGE DISABLE,4@|ENABLE,5@|RESET,4@
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
	FLAGS "R"
        HELP "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
	FLAGS "R"
        HELP "Codice di fine stampa: vuoto = fine archivio"
	GROUP 1 4
END

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

STRING FLD_ANF_RAGSOCTO 50 29
BEGIN
	PROMPT 34 8 ""
	COPY USE FLD_ANF_RAGSOCFR
	INPUT TIPOA "F"
	INPUT RAGSOC FLD_ANF_RAGSOCTO
	COPY DISPLAY FLD_ANF_RAGSOCFR
	OUTPUT FLD_ANF_RAGSOCTO RAGSOC
        HELP "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
        HELP "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
        HELP "Codice di fine stampa: vuoto = fine archivio"
	GROUP 2 4
END

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

STRING FLD_ANG_RAGSOCTO 50 29
BEGIN
	PROMPT 34 8 ""
	COPY USE FLD_ANG_RAGSOCFR
	INPUT TIPOA "G"
	INPUT RAGSOC FLD_ANG_RAGSOCTO
	COPY DISPLAY FLD_ANG_RAGSOCFR
	OUTPUT FLD_ANG_RAGSOCTO RAGSOC
        HELP "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 "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 "Codice di fine stampa: vuoto = fine archivio"
	GROUP 3 4
END

STRING FLD_DITTE_RAGSOCFR 50 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 "Ragione soc. di inizio stampa: vuoto = inizio archivio"
	GROUP 3 5
END

STRING FLD_DITTE_RAGSOCTO 50 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 "Ragione soc. di fine stampa: vuoto = fine archivio"
	GROUP 3 5
END

BOOLEAN CHK_BA6_INCLDI
BEGIN
	PROMPT 3 10 "Includi ditte"
        HELP "Indicare se includere informazioni relative alle ditte"
END

ENDPAGE
ENDMASK