campo-sirio/at/at0300a.uml

#include "at0300a.h"

TOOLBAR "" 0 20 0 2
 
BUTTON DLG_SAVEREC 10 2
BEGIN
  PROMPT -14 -11 "~Registra"
  MESSAGE EXIT,K_SAVE
  PICTURE BMP_SAVEREC
  PICTURE BMP_SAVERECDN
END

BUTTON DLG_NEWREC 10 2
BEGIN
  PROMPT -24 -11 "~Nuovo"
  MESSAGE EXIT,K_INS
  PICTURE BMP_NEWREC
  PICTURE BMP_NEWRECDN
END

BUTTON DLG_CANCEL 10 2
BEGIN
  PROMPT -34 -11 "~Annulla"
  MESSAGE EXIT,K_ESC
  PICTURE 102
END

BUTTON DLG_QUIT 10 2
BEGIN
  PROMPT -44 -11 "~Fine"
  MESSAGE EXIT,K_QUIT
  PICTURE BMP_QUIT
  PICTURE BMP_QUITDN
END

ENDPAGE

PAGE "Giornaliero controlli" -1 -1 78 20


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 "Cognome@25"
   ITEM "Nome@25"
   ITEM "Tipo"
   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
  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
  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
  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 SEARCH
  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 SELECT S6 # "I"
   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_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_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 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_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

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