campo-sirio/ba/ba6300a.uml

#include "ba6300a.h"

TOOLBAR "" 0 0 0 2

BUTTON DLG_NEWREC 10 2
BEGIN
  PROMPT -14 -11 "Nuovo"
  PICTURE TOOL_NEWREC
END

BUTTON DLG_EDIT 10 2
BEGIN
  PROMPT -24 -11 "Modifica"
  PICTURE TOOL_EDIT
END

#include <printbar.h>

ENDPAGE

PAGE "Stampe Anagrafiche" 0 2 0 0
GROUPBOX DLG_NULL 76 11
BEGIN
	PROMPT 1 1 "@bSelezione"
END

RADIOBUTTON F_TIPO 25
BEGIN
	PROMPT 2 2 "Oggetto"
	ITEM "F|Persone Fisiche"
	MESSAGE ENABLE,F_INCLDI
	MESSAGE HIDE,2@|HIDE,3@|SHOW,1@
	ITEM "G|Persone Giuridiche"
	MESSAGE ENABLE,F_INCLDI
	MESSAGE HIDE,1@|HIDE,3@|SHOW,2@
	ITEM "D|Ditte"
	MESSAGE DISABLE,F_INCLDI
	MESSAGE HIDE,1@|HIDE,2@|SHOW,3@
END

RADIOBUTTON F_SORT 25
BEGIN
	PROMPT 35 2 "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

NUMBER F_DACOD_F 5
BEGIN
	PROMPT 2 7 "Da codice "
	USE LF_ANAG KEY 1
	INPUT TIPOA "F"
	INPUT CODANAGR F_DACOD_F
	DISPLAY "Codice" CODANAGR
	DISPLAY "Codice Fiscale@16" COFI
	DISPLAY "Ragione sociale@50" RAGSOC
	OUTPUT F_DACOD_F CODANAGR
	OUTPUT F_DARAGSOC_F RAGSOC
	FLAGS "R"
	GROUP 1 4
END

STRING F_DARAGSOC_F 50
BEGIN
	PROMPT 23 7 ""
	USE LF_ANAG KEY 2
	INPUT TIPOA "F"
	INPUT RAGSOC F_DARAGSOC_F
	DISPLAY "Ragione sociale@50" RAGSOC
	DISPLAY "Codice" CODANAGR
	DISPLAY "Codice Fiscale@16" COFI
	COPY OUTPUT F_DACOD_F
	GROUP 1 5
END

NUMBER F_ACOD_F 5
BEGIN
	PROMPT 2 8 "A codice  "
	COPY USE F_DACOD_F
	INPUT TIPOA "F"
	INPUT CODANAGR F_ACOD_F
	COPY DISPLAY F_DACOD_F
	OUTPUT F_ACOD_F CODANAGR
	OUTPUT F_ARAGSOC_F RAGSOC
	FLAGS "R"
	GROUP 1 4
END

STRING F_ARAGSOC_F 50
BEGIN
	PROMPT 23 8 ""
	COPY USE F_DARAGSOC_F
	INPUT TIPOA "F"
	INPUT RAGSOC F_ARAGSOC_F
	COPY DISPLAY F_DARAGSOC_F
	COPY OUTPUT F_ACOD_F
	GROUP 1 5
END

NUMBER F_DACOD_G 5
BEGIN
	PROMPT 2 7 "Da codice "
	USE LF_ANAG KEY 1
	INPUT TIPOA "G"
	INPUT CODANAGR F_DACOD_G
	DISPLAY "Codice" CODANAGR
	DISPLAY "Codice Fiscale@16" COFI
	DISPLAY "Ragione sociale@50" RAGSOC
	OUTPUT F_DACOD_G CODANAGR
	OUTPUT F_DARAGSOC_G RAGSOC
	FLAGS "R"
	GROUP 2 4
END

STRING F_DARAGSOC_G 50
BEGIN
	PROMPT 23 7 ""
	USE LF_ANAG KEY 2
	INPUT TIPOA "G"
	INPUT RAGSOC F_DARAGSOC_G
	DISPLAY "Ragione sociale@50" RAGSOC
	DISPLAY "Codice" CODANAGR
	DISPLAY "Codice Fiscale@16" COFI
	COPY OUTPUT F_DACOD_G
	GROUP 2 5
END

NUMBER F_ACOD_G 5
BEGIN
	PROMPT 2 8 "A codice  "
	COPY USE F_DACOD_G
	INPUT TIPOA "G"
	INPUT CODANAGR F_ACOD_G
	COPY DISPLAY F_DACOD_G
	OUTPUT F_ACOD_G CODANAGR
	OUTPUT F_ARAGSOC_G RAGSOC
	FLAGS "R"
	GROUP 2 4
END

STRING F_ARAGSOC_G 50
BEGIN
	PROMPT 23 8 ""
	COPY USE F_DARAGSOC_G
	INPUT TIPOA "G"
	INPUT RAGSOC F_ARAGSOC_G
	COPY DISPLAY F_DARAGSOC_G
	COPY OUTPUT F_ACOD_G
	GROUP 2 5
END

STRING F_DACOD_D 5
BEGIN
	PROMPT 2 7 "Da codice "
	USE LF_NDITTE KEY 1
	INPUT CODDITTA F_DACOD_D
	DISPLAY "Codice" CODDITTA
	DISPLAY "Ragione sociale@50" RAGSOC
	DISPLAY "Persona Rif.@20" PERRIF
	OUTPUT F_DACOD_D CODDITTA
	OUTPUT F_DARAGSOC_D RAGSOC
	GROUP 3 4
END

STRING F_DARAGSOC_D 50
BEGIN
	PROMPT 23 7 ""
	USE LF_NDITTE KEY 2
	INPUT RAGSOC F_DARAGSOC_D
	DISPLAY "Codice" CODDITTA
	DISPLAY "Ragione sociale@50" RAGSOC
	DISPLAY "Persona Rif.@20" PERRIF
	COPY OUTPUT F_DACOD_D
	GROUP 3 5
END

STRING F_ACOD_D 5
BEGIN
	PROMPT 2 8 "A codice  "
	COPY USE F_DACOD_D
	INPUT CODDITTA F_ACOD_D
	COPY DISPLAY F_DACOD_D
	OUTPUT F_ACOD_D CODDITTA
	OUTPUT F_ARAGSOC_D RAGSOC
	GROUP 3 4
END

STRING F_ARAGSOC_D 50
BEGIN
	PROMPT 23 8 ""
	COPY USE F_DARAGSOC_D
	INPUT CODDITTA F_ARAGSOC_D
	COPY DISPLAY F_DARAGSOC_D
	COPY OUTPUT F_ACOD_D
	GROUP 3 5
END

BOOLEAN F_INCLDI
BEGIN
	PROMPT 2 10 "Includi ditte"
END

RADIOBUTTON F_TIPOSTAMPA 15
BEGIN
	PROMPT 2 12 "@bTipo Stampa"
	ITEM "E|Elenco"
	MESSAGE DISABLE,F_PERSREP
	ITEM "S|Schede"
	MESSAGE DISABLE,F_PERSREP
	ITEM "R|Rubriche"
	MESSAGE DISABLE,F_PERSREP
	ITEM "T|Etichette"
	MESSAGE DISABLE,F_PERSREP
	ITEM "P|Personalizzato"
	MESSAGE ENABLE,F_PERSREP 
END

STRING F_PERSREP 260 43
BEGIN
	PROMPT 2 19 "Report personalizzato "
END

ENDPAGE
ENDMASK