a24894fd1c
Files correlati : Ricompilazione Demo : [ ] Commento :inizio delle stampe anagrafiche con i nuovi rep git-svn-id: svn://10.65.10.50/trunk@12205 c028cbd2-c16b-5b4b-a496-9718f37d4682
240 lines
4.0 KiB
Plaintext
Executable File
240 lines
4.0 KiB
Plaintext
Executable File
#include "ba6300a.h"
|
|
|
|
TOOLBAR "" 0 -3 0 3
|
|
|
|
BUTTON DLG_NEWREC 10 2
|
|
BEGIN
|
|
PROMPT -14 -11 ""
|
|
PICTURE BMP_NEWREC
|
|
PICTURE BMP_NEWRECDN
|
|
END
|
|
|
|
BUTTON DLG_EDIT 10 2
|
|
BEGIN
|
|
PROMPT -24 -11 ""
|
|
PICTURE BMP_EDIT
|
|
END
|
|
|
|
BUTTON DLG_PRINT 10 2
|
|
BEGIN
|
|
PROMPT -34 -11 ""
|
|
END
|
|
|
|
BUTTON DLG_QUIT 10 2
|
|
BEGIN
|
|
PROMPT -44 -11 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
PAGE "Definizione Stampe Anagrafiche" -1 -1 78 14
|
|
|
|
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 255 43
|
|
BEGIN
|
|
PROMPT 2 19 "Report personalizzato"
|
|
END
|
|
|
|
|
|
|
|
ENDPAGE
|
|
ENDMASK
|