1d414b2abc
Lancio automatico della conversione archivi (ba1) Correzione programma numerazione registri bollati Correzione ricerca per codice fiscale sulle maschere delle persone. git-svn-id: svn://10.65.10.50/trunk@227 c028cbd2-c16b-5b4b-a496-9718f37d4682
302 lines
8.0 KiB
Plaintext
Executable File
302 lines
8.0 KiB
Plaintext
Executable File
#include "ba6100a.h"
|
|
#include <lffiles.h>
|
|
|
|
PAGE "Definizione Stampe" -1 -1 70 17
|
|
|
|
RADIOBUTTON RDB_BA6_TYPE 26
|
|
BEGIN
|
|
PROMPT 4 1 "Oggetto"
|
|
HELP "Selezionare l'archivio che si desidera stampare"
|
|
ITEM "0|Persone Fisiche"
|
|
MESSAGE HIDE,FLD_DITTE_RAGSOCFR|HIDE,FLD_DITTE_RAGSOCTO
|
|
MESSAGE HIDE,FLD_ANG_CODFR|HIDE,FLD_ANG_CODTO|HIDE,FLD_ANG_RAGSOCFR
|
|
MESSAGE HIDE,FLD_ANG_RAGSOCTO|HIDE,FLD_DITTE_CODTO
|
|
MESSAGE SHOW,FLD_ANF_CODFR|SHOW,FLD_ANF_CODTO|SHOW,FLD_ANF_RAGSOCFR
|
|
MESSAGE SHOW,FLD_ANF_RAGSOCTO|HIDE,FLD_DITTE_CODFR
|
|
MESSAGE ENABLE,CHK_BA6_INCLDI
|
|
ITEM "1|Persone Giuridiche"
|
|
MESSAGE HIDE,FLD_DITTE_CODTO|HIDE,FLD_DITTE_RAGSOCFR
|
|
MESSAGE HIDE,FLD_DITTE_RAGSOCTO|HIDE,FLD_ANF_CODFR|HIDE,FLD_ANF_CODTO
|
|
MESSAGE HIDE,FLD_ANF_RAGSOCFR|HIDE,FLD_ANF_RAGSOCTO
|
|
MESSAGE SHOW,FLD_ANG_CODFR|SHOW,FLD_ANG_CODTO|SHOW,FLD_ANG_RAGSOCFR
|
|
MESSAGE SHOW,FLD_ANG_RAGSOCTO|HIDE,FLD_DITTE_CODFR
|
|
MESSAGE ENABLE,CHK_BA6_INCLDI
|
|
MESSAGE DISABLE,BUT_BA6_ETICHETTE|RESET,BUT_BA6_ETICHETTE
|
|
MESSAGE ENABLE,BUT_BA6_ETICHETTE|RESET,BUT_BA6_ETICHETTE
|
|
ITEM "2|Ditte"
|
|
MESSAGE HIDE,FLD_ANF_CODFR|HIDE,FLD_ANF_CODTO
|
|
MESSAGE HIDE,FLD_ANF_RAGSOCFR|HIDE,FLD_ANF_RAGSOCTO
|
|
MESSAGE HIDE,FLD_ANG_CODFR|HIDE,FLD_ANG_CODTO
|
|
MESSAGE HIDE,FLD_ANG_RAGSOCFR|HIDE,FLD_ANG_RAGSOCTO
|
|
MESSAGE SHOW,FLD_DITTE_CODFR|SHOW,FLD_DITTE_CODTO
|
|
MESSAGE SHOW,FLD_DITTE_RAGSOCFR|SHOW,FLD_DITTE_RAGSOCTO
|
|
MESSAGE DISABLE,CHK_BA6_INCLDI
|
|
MESSAGE RESET,CHK_BA6_INCLDI
|
|
MESSAGE ENABLE,BUT_BA6_ETICHETTE|RESET,BUT_BA6_ETICHETTE
|
|
END
|
|
|
|
RADIOBUTTON RDB_BA6_SORT 26
|
|
PROMPT 4 6 "Ordinamento"
|
|
HELP "Selezionare il tipo di ordinamento dei record stampati"
|
|
ITEM "1|per Codice"
|
|
MESSAGE DISABLE,FLD_ANF_RAGSOCFR|DISABLE,FLD_ANF_RAGSOCTO
|
|
MESSAGE RESET,FLD_ANF_RAGSOCFR|RESET,FLD_ANF_RAGSOCTO
|
|
MESSAGE DISABLE,FLD_ANG_RAGSOCFR|DISABLE,FLD_ANG_RAGSOCTO
|
|
MESSAGE RESET,FLD_ANG_RAGSOCFR|RESET,FLD_ANG_RAGSOCTO
|
|
MESSAGE DISABLE,FLD_DITTE_RAGSOCFR|DISABLE,FLD_DITTE_RAGSOCTO
|
|
MESSAGE RESET,FLD_DITTE_RAGSOCFR|RESET,FLD_DITTE_RAGSOCTO
|
|
MESSAGE ENABLE,FLD_ANF_CODFR|ENABLE,FLD_ANF_CODTO
|
|
MESSAGE ENABLE,FLD_ANG_CODFR|ENABLE,FLD_ANG_CODTO
|
|
MESSAGE ENABLE,FLD_DITTE_CODFR|ENABLE,FLD_DITTE_CODTO
|
|
ITEM "2|per Ragione Sociale"
|
|
MESSAGE DISABLE,FLD_ANF_CODFR|DISABLE,FLD_ANF_CODTO
|
|
MESSAGE RESET,FLD_ANF_CODFR|RESET,FLD_ANF_CODTO
|
|
MESSAGE DISABLE,FLD_ANG_CODFR|DISABLE,FLD_ANG_CODTO
|
|
MESSAGE RESET,FLD_ANG_CODFR|RESET,FLD_ANG_CODTO
|
|
MESSAGE DISABLE,FLD_DITTE_CODFR|DISABLE,FLD_DITTE_CODTO
|
|
MESSAGE RESET,FLD_DITTE_CODFR|RESET,FLD_DITTE_CODTO
|
|
MESSAGE ENABLE,FLD_ANF_RAGSOCFR|ENABLE,FLD_ANF_RAGSOCTO
|
|
MESSAGE ENABLE,FLD_ANG_RAGSOCFR|ENABLE,FLD_ANG_RAGSOCTO
|
|
MESSAGE ENABLE,FLD_DITTE_RAGSOCFR|ENABLE,FLD_DITTE_RAGSOCTO
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 47 3
|
|
BEGIN
|
|
PROMPT 2 13 "Stampa"
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 34 10
|
|
BEGIN
|
|
PROMPT 32 1 "Selezione "
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 34 5 "da Ragione Sociale"
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 34 7 "a Ragione Sociale"
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 34 2 "da Codice"
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 48 2 "a Codice"
|
|
END
|
|
|
|
STRING 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 " COFI
|
|
DISPLAY "Ragione sociale " RAGSOC
|
|
OUTPUT FLD_ANF_CODFR CODANAGR
|
|
OUTPUT FLD_ANF_RAGSOCFR RAGSOC
|
|
HELP "Introdurre codice di inizio stampa: vuoto = inizio archivio"
|
|
END
|
|
|
|
STRING FLD_ANF_CODTO 5
|
|
BEGIN
|
|
PROMPT 48 3 ""
|
|
COPYUSE FLD_ANF_CODFR
|
|
INPUT TIPOA "F"
|
|
INPUT CODANAGR FLD_ANF_CODTO
|
|
DISPLAY "Codice" CODANAGR
|
|
DISPLAY "Codice Fiscale " COFI
|
|
DISPLAY "Ragione sociale " RAGSOC
|
|
OUTPUT FLD_ANF_CODTO CODANAGR
|
|
OUTPUT FLD_ANF_RAGSOCTO RAGSOC
|
|
HELP "Introdurre codice di fine stampa: vuoto = fine archivio"
|
|
END
|
|
|
|
STRING FLD_ANF_RAGSOCFR 29
|
|
BEGIN
|
|
PROMPT 34 6 ""
|
|
USE LF_ANAG KEY 2
|
|
INPUT TIPOA "F"
|
|
INPUT RAGSOC FLD_ANF_RAGSOCFR
|
|
DISPLAY "Codice" CODANAGR
|
|
DISPLAY "Codice Fiscale " COFI
|
|
DISPLAY "Ragione sociale " RAGSOC
|
|
OUTPUT FLD_ANF_RAGSOCFR RAGSOC
|
|
OUTPUT FLD_ANF_CODFR CODANAGR
|
|
HELP "Introdurre ragione soc. di inizio stampa: vuoto = inizio archivio"
|
|
END
|
|
|
|
STRING FLD_ANF_RAGSOCTO 29
|
|
BEGIN
|
|
PROMPT 34 8 ""
|
|
COPYUSE FLD_ANF_RAGSOCFR
|
|
INPUT RAGSOC FLD_ANF_RAGSOCTO
|
|
DISPLAY "Codice" CODANAGR
|
|
DISPLAY "Codice Fiscale " COFI
|
|
DISPLAY "Ragione sociale " RAGSOC
|
|
OUTPUT FLD_ANF_RAGSOCTO RAGSOC
|
|
OUTPUT FLD_ANF_CODTO CODANAGR
|
|
HELP "Introdurre ragione soc. di fine stampa: vuoto = fine archivio"
|
|
END
|
|
|
|
STRING FLD_ANG_CODFR 5
|
|
BEGIN
|
|
PROMPT 34 3 ""
|
|
FLAGS "H"
|
|
COPYUSE FLD_ANF_CODFR
|
|
INPUT TIPOA "G"
|
|
INPUT CODANAGR FLD_ANG_CODPR
|
|
DISPLAY "Codice" CODANAGR
|
|
DISPLAY "Codice Fiscale " COFI
|
|
DISPLAY "Ragione sociale " RAGSOC
|
|
OUTPUT FLD_ANG_CODFR CODANAGR
|
|
OUTPUT FLD_ANG_RAGSOCFR RAGSOC
|
|
HELP "Introdurre codice di inizio stampa: vuoto = inizio archivio"
|
|
END
|
|
|
|
STRING FLD_ANG_CODTO 5
|
|
BEGIN
|
|
PROMPT 48 3 ""
|
|
FLAGS "H"
|
|
COPYUSE FLD_ANF_CODFR
|
|
INPUT TIPOA "G"
|
|
INPUT CODANAGR FLD_ANG_CODTO
|
|
DISPLAY "Codice" CODANAGR
|
|
DISPLAY "Codice Fiscale " COFI
|
|
DISPLAY "Ragione sociale " RAGSOC
|
|
OUTPUT FLD_ANG_CODTO CODANAGR
|
|
OUTPUT FLD_ANG_RAGSOCTO RAGSOC
|
|
HELP "Introdurre codice di fine stampa: vuoto = fine archivio"
|
|
END
|
|
|
|
STRING FLD_ANG_RAGSOCFR 29
|
|
BEGIN
|
|
PROMPT 34 6 ""
|
|
FLAGS "H"
|
|
USE LF_ANAG KEY 2 SELECT 'TIPOA=="G"'
|
|
INPUT RAGSOC FLD_ANG_RAGSOCFR
|
|
DISPLAY "Codice" CODANAGR
|
|
DISPLAY "Codice Fiscale " COFI
|
|
DISPLAY "Ragione sociale " RAGSOC
|
|
OUTPUT FLD_ANG_RAGSOCFR RAGSOC
|
|
OUTPUT FLD_ANG_CODFR CODANAGR
|
|
HELP "Introdurre ragione soc. di inizio stampa: vuoto = inizio archivio"
|
|
END
|
|
|
|
STRING FLD_ANG_RAGSOCTO 29
|
|
BEGIN
|
|
PROMPT 34 8 ""
|
|
FLAGS "H"
|
|
COPYUSE FLD_ANG_RAGSOCFR
|
|
INPUT RAGSOC FLD_ANG_RAGSOCTO
|
|
DISPLAY "Codice" CODANAGR
|
|
DISPLAY "Codice Fiscale " COFI
|
|
DISPLAY "Ragione sociale " RAGSOC
|
|
OUTPUT FLD_ANG_RAGSOCTO RAGSOC
|
|
OUTPUT FLD_ANG_CODTO CODANAGR
|
|
HELP "Introdurre ragione soc. di fine stampa: vuoto = fine archivio"
|
|
END
|
|
|
|
STRING FLD_DITTE_CODFR 5
|
|
BEGIN
|
|
PROMPT 34 3 ""
|
|
FLAGS "H"
|
|
USE LF_NDITTE KEY 1
|
|
INPUT CODDITTA FLD_DITTE_CODFR
|
|
DISPLAY "Codice" CODDITTA
|
|
DISPLAY "Persona Rif. " PERRIF
|
|
DISPLAY "Ragione sociale " RAGSOC
|
|
OUTPUT FLD_DITTE_CODFR CODDITTA
|
|
OUTPUT FLD_DITTE_RAGSOCFR RAGSOC
|
|
HELP "Introdurre codice di inizio stampa: vuoto = inizio archivio"
|
|
END
|
|
|
|
STRING FLD_DITTE_CODTO 5
|
|
BEGIN
|
|
PROMPT 48 3 ""
|
|
FLAGS "H"
|
|
COPYUSE FLD_DITTE_CODFR
|
|
INPUT CODDITTA FLD_DITTE_CODFR
|
|
INPUT RAGSOC FLD_ANF_RAGSOCFR
|
|
DISPLAY "Codice" CODDITTA
|
|
DISPLAY "Persona Rif. " PERRIF
|
|
DISPLAY "Ragione sociale " RAGSOC
|
|
OUTPUT FLD_DITTE_RAGSOCTO RAGSOC
|
|
OUTPUT FLD_DITTE_CODTO CODDITTA
|
|
HELP "Introdurre codice di fine stampa: vuoto = fine archivio"
|
|
END
|
|
|
|
STRING FLD_DITTE_RAGSOCFR 29
|
|
BEGIN
|
|
PROMPT 34 6 ""
|
|
FLAGS "H"
|
|
USE LF_NDITTE KEY 2
|
|
INPUT RAGSOC FLD_DITTE_RAGSOCFR
|
|
DISPLAY "Codice" CODDITTA
|
|
DISPLAY "Persona Rif. " PERRIF
|
|
DISPLAY "Ragione sociale " RAGSOC
|
|
OUTPUT FLD_DITTE_RAGSOCFR RAGSOC
|
|
OUTPUT FLD_DITTE_CODFR CODDITTA
|
|
HELP "Introdurre ragione soc. di inizio stampa: vuoto = inizio archivio"
|
|
END
|
|
|
|
STRING FLD_DITTE_RAGSOCTO 29
|
|
BEGIN
|
|
PROMPT 34 8 ""
|
|
FLAGS "H"
|
|
COPYUSE FLD_DITTE_RAGSOCFR
|
|
INPUT CODDITTA FLD_DITTE_RAGSOCTO
|
|
DISPLAY "Codice" CODDITTA
|
|
DISPLAY "Persona Rif. " PERRIF
|
|
DISPLAY "Ragione sociale " RAGSOC
|
|
OUTPUT FLD_DITTE_RAGSOCTO RAGSOC
|
|
OUTPUT FLD_DITTE_CODTO CODDITTA
|
|
HELP "Introdurre ragione soc. di fine stampa: vuoto = fine archivio"
|
|
END
|
|
|
|
BOOLEAN CHK_BA6_INCLDI
|
|
BEGIN
|
|
PROMPT 4 10 "Includi ditte"
|
|
HELP "Selezionare per includere informazioni relative alle ditte"
|
|
END
|
|
|
|
BOOLEAN CHK_BA6_PRINTONE
|
|
BEGIN
|
|
PROMPT 4 11 "Stampa un solo record"
|
|
HELP "Selezionare per stampare soltanto il record nel campo DA"
|
|
END
|
|
|
|
BUTTON BUT_BA6_ELENCO 6
|
|
BEGIN
|
|
PROMPT 4 14 "Elenco"
|
|
END
|
|
|
|
BUTTON BUT_BA6_SCHEDE 6
|
|
BEGIN
|
|
PROMPT 15 14 "Schede"
|
|
END
|
|
|
|
BUTTON BUT_BA6_RUBRICHE 8
|
|
BEGIN
|
|
PROMPT 26 14 "Rubriche"
|
|
END
|
|
|
|
BUTTON BUT_BA6_ETICHETTE 9
|
|
BEGIN
|
|
PROMPT 37 14 "Etichette"
|
|
END
|
|
|
|
BUTTON DLG_CANCEL
|
|
BEGIN
|
|
PROMPT 53 14 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
ENDMASK
|