56f57e97aa
Files correlati : Ricompilazione Demo : [ ] Commento : git-svn-id: svn://10.65.10.50/trunk@18859 c028cbd2-c16b-5b4b-a496-9718f37d4682
507 lines
8.4 KiB
Plaintext
Executable File
507 lines
8.4 KiB
Plaintext
Executable File
#include "at0300a.h"
|
|
|
|
TOOLBAR "" 0 0 0 2
|
|
#include <relapbar.h>
|
|
ENDPAGE
|
|
|
|
PAGE "Giornaliero controlli" 0 2 0 0
|
|
|
|
GROUPBOX DLG_NULL 77 6
|
|
BEGIN
|
|
PROMPT 1 0 "Dati fissi"
|
|
FLAGS "R"
|
|
END
|
|
|
|
DATE F_DATACON
|
|
BEGIN
|
|
PROMPT 2 1 "Data controllo "
|
|
VALIDATE NOT_EMPTY_FUNC
|
|
CHECKTYPE REQUIRED
|
|
HELP "Data donazione"
|
|
END
|
|
|
|
STRING F_TIPOCON 2
|
|
BEGIN
|
|
PROMPT 30 1 "Tipo/Esito "
|
|
FLAGS "U"
|
|
USE TCS
|
|
INPUT CODTAB F_TIPOCON
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@30" S0
|
|
OUTPUT F_TIPOCON CODTAB
|
|
OUTPUT F_DESC_TIPOCON S0
|
|
CHECKTYPE NORMAL
|
|
WARNING "Codice non presente"
|
|
HELP "Tipo/Esito controllo sanitario"
|
|
END
|
|
|
|
DATE F_PROSSDATA
|
|
BEGIN
|
|
PROMPT 2 2 "Data prossimo "
|
|
HELP "Data prevista per il prossimo controllo"
|
|
END
|
|
|
|
STRING F_PROSSTIPO 2
|
|
BEGIN
|
|
PROMPT 30 2 "Prossimo tipo "
|
|
FLAGS "U"
|
|
USE TCS
|
|
INPUT CODTAB F_PROSSTIPO
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@30" S0
|
|
OUTPUT F_PROSSTIPO CODTAB
|
|
OUTPUT F_DESC_PROSSTIPO S0
|
|
CHECKTYPE NORMAL
|
|
WARNING "Codice non presente"
|
|
HELP "Tipo/Esito del prossimo controllo previsto"
|
|
END
|
|
|
|
STRING F_MOTIVO 4
|
|
BEGIN
|
|
PROMPT 2 3 "Motivo "
|
|
FLAGS "U"
|
|
USE MTC
|
|
INPUT CODTAB F_MOTIVO
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_MOTIVO CODTAB
|
|
OUTPUT F_DESC_MOTIVO S0
|
|
CHECKTYPE NORMAL
|
|
WARNING "Codice motivo non presente"
|
|
HELP "Motivo del controllo sanitario"
|
|
END
|
|
|
|
STRING F_RESPONSAB 50
|
|
BEGIN
|
|
PROMPT 2 4 "Responsabile "
|
|
END
|
|
|
|
STRING F_DESC_TIPOCON 25
|
|
BEGIN
|
|
PROMPT 50 1 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_DESC_PROSSTIPO 25
|
|
BEGIN
|
|
PROMPT 50 2 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_DESC_MOTIVO 25
|
|
BEGIN
|
|
PROMPT 25 3 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
SPREADSHEET F_SOGGETTI
|
|
BEGIN
|
|
PROMPT 2 6 "Soggetti"
|
|
ITEM "Codice@8"
|
|
ITEM "Cod.CT@6"
|
|
ITEM "Cognome@25"
|
|
ITEM "Nome@25"
|
|
ITEM "Tipo"
|
|
ITEM "Id.1"
|
|
ITEM "Id.2"
|
|
ITEM "Id.3"
|
|
ITEM "Id.4"
|
|
ITEM "Int.SI"
|
|
ITEM "Int.AF"
|
|
ITEM "Pr.tipo"
|
|
ITEM "Pr.data"
|
|
ITEM "Mot."
|
|
ITEM "Responsabile@15"
|
|
ITEM "Nato il@10"
|
|
ITEM "Don."
|
|
ITEM "Sez."
|
|
ITEM "Sot."
|
|
ITEM "Cat."
|
|
ITEM "Tessera"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|
|
|
|
PAGE "Soggetto " -1 -1 78 20
|
|
|
|
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 "Don." TOTDON
|
|
DISPLAY "Sez." CODSEZ
|
|
DISPLAY "Sot." CODSOT
|
|
DISPLAY "C." CATDON
|
|
DISPLAY "Tessera" TESSAVIS
|
|
DISPLAY "Cod.CT@6" CODCT
|
|
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
|
|
OUTPUT F_S_TOTDON TOTDON
|
|
OUTPUT F_S_CODCT CODCT
|
|
ADD RUN at0 -0
|
|
END
|
|
|
|
STRING F_S_CODCT 6
|
|
BEGIN
|
|
PROMPT 35 1 "Cod. CT "
|
|
FLAGS "U"
|
|
USE LF_SOGGETTI KEY 7
|
|
INPUT CODCT F_S_CODCT
|
|
DISPLAY "Cod.CT@6" CODCT
|
|
DISPLAY "Codice@8" CODICE
|
|
DISPLAY "Cognome@25" COGNOME
|
|
DISPLAY "Nome@25" NOME
|
|
DISPLAY "Nato il@10" DATANASC
|
|
DISPLAY "Don." TOTDON
|
|
DISPLAY "Sez." CODSEZ
|
|
DISPLAY "Sot." CODSOT
|
|
DISPLAY "C." CATDON
|
|
DISPLAY "Tessera" TESSAVIS
|
|
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
|
|
OUTPUT F_S_TOTDON TOTDON
|
|
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 "Don." TOTDON
|
|
DISPLAY "Codice@8" CODICE
|
|
DISPLAY "Sez." CODSEZ
|
|
DISPLAY "Sot." CODSOT
|
|
DISPLAY "C." CATDON
|
|
DISPLAY "Tessera" TESSAVIS
|
|
DISPLAY "Cod.CT@6" CODCT
|
|
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
|
|
OUTPUT F_S_TOTDON TOTDON
|
|
OUTPUT F_S_CODCT CODCT
|
|
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"
|
|
ADD RUN at0 -0
|
|
END
|
|
|
|
GROUPBOX DLG_NULL 77 10
|
|
BEGIN
|
|
PROMPT 1 9 "Dati del controllo sanitario effettuato"
|
|
END
|
|
|
|
STRING F_S_TIPOCON 2
|
|
BEGIN
|
|
PROMPT 2 10 "Tipo/Esito "
|
|
FLAGS "U"
|
|
USE TCS
|
|
INPUT CODTAB F_S_TIPOCON
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@30" S0
|
|
OUTPUT F_S_TIPOCON CODTAB
|
|
OUTPUT F_S_DESC_TIPOCON S0
|
|
WARNING "Codice non presente"
|
|
HELP "Tipo/Esito controllo sanitario"
|
|
END
|
|
|
|
STRING F_S_IDON1 2
|
|
BEGIN
|
|
PROMPT 16 14 ""
|
|
FLAGS "U"
|
|
USE IDO
|
|
INPUT CODTAB F_S_IDON1
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@40" S0
|
|
OUTPUT F_S_IDON1 CODTAB
|
|
OUTPUT F_S_DESC_IDON1 S0
|
|
CHECKTYPE NORMAL
|
|
WARNING "Codice idoneita' non presente"
|
|
HELP "Idoneita' alla donazione"
|
|
END
|
|
|
|
STRING F_S_IDON2 2
|
|
BEGIN
|
|
PROMPT 16 15 ""
|
|
FLAGS "U"
|
|
USE IDO
|
|
INPUT CODTAB F_S_IDON2
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@40" S0
|
|
OUTPUT F_S_IDON2 CODTAB
|
|
OUTPUT F_S_DESC_IDON2 S0
|
|
CHECKTYPE NORMAL
|
|
WARNING "Codice non presente"
|
|
HELP "Idoneita' alla donazione"
|
|
END
|
|
|
|
STRING F_S_IDON3 2
|
|
BEGIN
|
|
PROMPT 16 16 ""
|
|
FLAGS "U"
|
|
USE IDO
|
|
INPUT CODTAB F_S_IDON3
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@40" S0
|
|
OUTPUT F_S_IDON3 CODTAB
|
|
OUTPUT F_S_DESC_IDON3 S0
|
|
CHECKTYPE NORMAL
|
|
WARNING "Codice non presente"
|
|
HELP "Idoneita' alla donazione"
|
|
END
|
|
|
|
STRING F_S_IDON4 2
|
|
BEGIN
|
|
PROMPT 16 17 ""
|
|
FLAGS "U"
|
|
USE IDO
|
|
INPUT CODTAB F_S_IDON4
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@40" S0
|
|
OUTPUT F_S_IDON4 CODTAB
|
|
OUTPUT F_S_DESC_IDON4 S0
|
|
CHECKTYPE NORMAL
|
|
WARNING "Codice non presente"
|
|
HELP "Idoneita' alla donazione"
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 50 14 "Intervalli: "
|
|
END
|
|
|
|
NUMBER F_S_INTSI 3 0
|
|
BEGIN
|
|
PROMPT 50 15 "Sangue intero "
|
|
FLAGS "U"
|
|
END
|
|
|
|
NUMBER F_S_INTAF 3 0
|
|
BEGIN
|
|
PROMPT 50 16 "Aferesi "
|
|
FLAGS "U"
|
|
END
|
|
|
|
STRING F_S_PROSSTIPO 2
|
|
BEGIN
|
|
PROMPT 2 11 "Prossimo tipo "
|
|
FLAGS "U"
|
|
USE TCS
|
|
INPUT CODTAB F_S_PROSSTIPO
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@40" S0
|
|
OUTPUT F_S_PROSSTIPO CODTAB
|
|
OUTPUT F_S_DESC_PROSSTIPO S0
|
|
CHECKTYPE NORMAL
|
|
WARNING "Codice non presente"
|
|
HELP "Tipo/Esito controllo sanitario"
|
|
END
|
|
|
|
DATE F_S_PROSSDATA
|
|
BEGIN
|
|
PROMPT 51 11 "Data "
|
|
HELP "Data controllo"
|
|
END
|
|
|
|
STRING F_S_MOTIVO 4
|
|
BEGIN
|
|
PROMPT 2 12 "Motivo "
|
|
FLAGS "U"
|
|
USE MTC
|
|
INPUT CODTAB F_S_MOTIVO
|
|
DISPLAY "Codice" CODTAB
|
|
DISPLAY "Descrizione@50" S0
|
|
OUTPUT F_S_MOTIVO CODTAB
|
|
OUTPUT F_S_DESC_MOTIVO S0
|
|
CHECKTYPE NORMAL
|
|
WARNING "Codice motivo non presente"
|
|
HELP "Motivo del controllo sanitario"
|
|
END
|
|
|
|
STRING F_S_RESPONSAB 50
|
|
BEGIN
|
|
PROMPT 2 13 "Responsabile "
|
|
END
|
|
|
|
NUMERO F_S_TOTDON 3
|
|
BEGIN
|
|
PROMPT 40 7 "Totale donazioni "
|
|
FLAGS "D"
|
|
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 38 3 "Tessera "
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_S_DESC_TIPOCON 25
|
|
BEGIN
|
|
PROMPT 22 10 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_S_DESC_PROSSTIPO 25
|
|
BEGIN
|
|
PROMPT 22 11 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_S_DESC_MOTIVO 25
|
|
BEGIN
|
|
PROMPT 24 12 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_S_DESC_CATDON 25
|
|
BEGIN
|
|
PROMPT 12 7 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
TEXT DLG_NULL
|
|
BEGIN
|
|
PROMPT 2 14 "Se idoneita': "
|
|
END
|
|
|
|
STRING F_S_DESC_IDON1 25
|
|
BEGIN
|
|
PROMPT 22 14 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_S_DESC_IDON2 25
|
|
BEGIN
|
|
PROMPT 22 15 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_S_DESC_IDON3 25
|
|
BEGIN
|
|
PROMPT 22 16 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
STRING F_S_DESC_IDON4 25
|
|
BEGIN
|
|
PROMPT 22 17 ""
|
|
FLAGS "D"
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
TOOLBAR "" 0 0 0 2
|
|
|
|
BUTTON DLG_OK 9 2
|
|
BEGIN
|
|
PROMPT -13 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_CANCEL 9 2
|
|
BEGIN
|
|
PROMPT -23 -1 ""
|
|
END
|
|
|
|
BUTTON DLG_DELREC 9 2
|
|
BEGIN
|
|
PROMPT -33 -1 ""
|
|
MESSAGE EXIT, K_DEL
|
|
END
|
|
|
|
ENDPAGE
|
|
|
|
ENDMASK
|