936d57a2bf
Files correlati : Ricompilazione Demo : [ ] Commento : git-svn-id: svn://10.65.10.50/trunk@18941 c028cbd2-c16b-5b4b-a496-9718f37d4682
182 lines
2.8 KiB
Plaintext
Executable File
182 lines
2.8 KiB
Plaintext
Executable File
#include "at9500a.h"
|
|
|
|
TOOLBAR "" 0 0 0 2
|
|
#include <printbar.h>
|
|
ENDPAGE
|
|
|
|
PAGE "Stampa moduli intestati" 0 2 0 0
|
|
|
|
GROUPBOX DLG_NULL 77 5
|
|
BEGIN
|
|
PROMPT 1 0 ""
|
|
FLAGS "R"
|
|
END
|
|
|
|
NUMBER F_S_CODICE 8
|
|
BEGIN
|
|
PROMPT 2 1 "Codice "
|
|
FLAGS "RG"
|
|
USE LF_SOGGETTI KEY 1
|
|
INPUT CODICE F_S_CODICE
|
|
DISPLAY "Codice@8" CODICE
|
|
DISPLAY "Cognome@25" COGNOME
|
|
DISPLAY "Nome@25" NOME
|
|
DISPLAY "Nato il@10" DATANASC
|
|
DISPLAY "Sez." CODSEZ
|
|
DISPLAY "Sot." CODSOT
|
|
DISPLAY "C." CATDON
|
|
DISPLAY "Tessera" TESSAVIS
|
|
DISPLAY "Gr.AB0" GRUPPOAB0
|
|
DISPLAY "Rh " RHANTID
|
|
DISPLAY "Int.SI" INTSI
|
|
OUTPUT F_S_CODICE CODICE
|
|
OUTPUT F_S_COGNOME COGNOME
|
|
OUTPUT F_S_NOME NOME
|
|
OUTPUT F_S_DATANASC DATANASC
|
|
OUTPUT F_S_CODSEZ CODSEZ
|
|
OUTPUT F_S_CODSOT CODSOT
|
|
OUTPUT F_S_CATDON CATDON
|
|
OUTPUT F_S_TESSAVIS TESSAVIS
|
|
CHECKTYPE NORMAL
|
|
ADD RUN at0 -0
|
|
END
|
|
|
|
STRING F_S_COGNOME 25
|
|
BEGIN
|
|
PROMPT 2 2 "Cognome e nome "
|
|
USE LF_SOGGETTI KEY 2
|
|
INPUT COGNOME F_S_COGNOME
|
|
INPUT NOME F_S_NOME
|
|
INPUT DATANASC F_S_DATANASC
|
|
DISPLAY "Cognome@25" COGNOME
|
|
DISPLAY "Nome@25" NOME
|
|
DISPLAY "Nato il@10" DATANASC
|
|
DISPLAY "Codice@8" CODICE
|
|
DISPLAY "Sez." CODSEZ
|
|
DISPLAY "Sot." CODSOT
|
|
DISPLAY "C." CATDON
|
|
DISPLAY "Tessera" TESSAVIS
|
|
DISPLAY "Gr.AB0" GRUPPOAB0
|
|
DISPLAY "Rh " RHANTID
|
|
DISPLAY "Int.SI" INTSI
|
|
OUTPUT F_S_CODICE CODICE
|
|
OUTPUT F_S_COGNOME COGNOME
|
|
OUTPUT F_S_NOME NOME
|
|
OUTPUT F_S_DATANASC DATANASC
|
|
OUTPUT F_S_CODSEZ CODSEZ
|
|
OUTPUT F_S_CODSOT CODSOT
|
|
OUTPUT F_S_CATDON CATDON
|
|
OUTPUT F_S_TESSAVIS TESSAVIS
|
|
HELP "Cognome del soggetto"
|
|
ADD RUN at0 -0
|
|
END
|
|
|
|
STRING F_S_NOME 25
|
|
BEGIN
|
|
PROMPT 46 2 ""
|
|
COPY ALL F_S_COGNOME
|
|
HELP "Nome del soggetto"
|
|
CHECKTYPE NORMAL
|
|
ADD RUN at0 -0
|
|
END
|
|
|
|
DATE F_S_DATANASC
|
|
BEGIN
|
|
PROMPT 2 3 "Nato il "
|
|
FLAGS "D"
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 77 4
|
|
BEGIN
|
|
PROMPT 1 5 "Dati associativi"
|
|
END
|
|
|
|
STRING F_S_CODSEZ 2
|
|
BEGIN
|
|
PROMPT 2 6 "Sez. "
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_S_DENSEZ 25
|
|
BEGIN
|
|
PROMPT 12 6 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_S_CODSOT 2
|
|
BEGIN
|
|
PROMPT 40 6 "Sot. "
|
|
FLAGS "D"
|
|
USE LF_SEZIONI
|
|
INPUT CODSEZ F_S_CODSEZ
|
|
INPUT CODSOT F_S_CODSOT
|
|
OUTPUT F_S_DENSEZ DENSEZ
|
|
OUTPUT F_S_DENSOT DENSOT
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_S_DENSOT 25
|
|
BEGIN
|
|
PROMPT 50 6 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_S_CATDON 2
|
|
BEGIN
|
|
PROMPT 2 7 "Cat. "
|
|
FLAGS "D"
|
|
USE CTD
|
|
INPUT CODTAB F_S_CATDON
|
|
OUTPUT F_S_DESC_CATDON S0
|
|
CHECKTYPE NORMAL
|
|
END
|
|
|
|
STRING F_S_TESSAVIS 10
|
|
BEGIN
|
|
PROMPT 52 7 "Tessera AVIS "
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_S_DESC_CATDON 25
|
|
BEGIN
|
|
PROMPT 12 7 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
// SCELTA REPORT
|
|
STRING F_S_REPORT 32
|
|
BEGIN
|
|
PROMPT 2 9 "Modulo "
|
|
FLAGS "B"
|
|
CHECKTYPE REQUIRED
|
|
END
|
|
|
|
STRING F_S_TESTO1 70
|
|
BEGIN
|
|
PROMPT 2 11 ""
|
|
END
|
|
|
|
STRING F_S_TESTO2 70
|
|
BEGIN
|
|
PROMPT 2 12 ""
|
|
END
|
|
|
|
STRING F_S_TESTO3 70
|
|
BEGIN
|
|
PROMPT 2 13 ""
|
|
END
|
|
|
|
STRING F_S_TESTO4 70
|
|
BEGIN
|
|
PROMPT 2 14 ""
|
|
END
|
|
|
|
STRING F_S_TESTO5 70
|
|
BEGIN
|
|
PROMPT 2 15 ""
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|