campo-sirio/at/at0400a.uml

#include "at0400a.h"

TOOLBAR "" 0 0 0 2

BUTTON F_VISUALIZZA 2 2
BEGIN
  PROMPT 1 1 "~Visualizza"
  PICTURE TOOL_FINDREC
  MESSAGE EXIT,F_VISUALIZZA
END

BUTTON F_MODIFICA 2 2
BEGIN
  PROMPT 2 2 "~Modifica"
  PICTURE TOOL_EDIT
  MESSAGE EXIT,F_MODIFICA
END

BUTTON F_ELIMINA 2 2
BEGIN
  PROMPT 3 3 "~Elimina"
  PICTURE TOOL_DELREC
  MESSAGE EXIT,F_ELIMINA
END

#include <helpbar.h>

ENDPAGE

PAGE "Correzione errato giornaliero donazioni" 0 2 0 0

GROUPBOX DLG_NULL 77 5
BEGIN
  PROMPT 1 0 "Dati dell'inserimento errato"
  FLAGS "R"
END

DATE F_DATADON
BEGIN
   PROMPT 2 1 "Data donazione  "
   CHECKTYPE REQUIRED
   HELP "Data donazione"
END

STRING F_TIPODON 2
BEGIN
   PROMPT 2 2 "Tipo donazione  "
   FLAGS "U"
   USE TDN
   INPUT CODTAB F_TIPODON
   DISPLAY "Codice" CODTAB
   DISPLAY "Descrizione@30" S0
   OUTPUT F_TIPODON CODTAB
   OUTPUT F_DESC_TIPODON S0
   CHECKTYPE NORMAL
   WARNING "Codice non presente"
   HELP "Tipo donazione"
END

STRING F_LUOGODON 4
BEGIN
   PROMPT 2 3 "Punto prelievo  "
   FLAGS "U"
   USE LDN
   INPUT CODTAB F_LUOGODON
   DISPLAY "Codice" CODTAB
   DISPLAY "Descrizione@50" S0
   OUTPUT F_LUOGODON CODTAB
   OUTPUT F_DESC_LUOGODON S0
   CHECKTYPE NORMAL
   WARNING "Codice non presente"
   HELP "Punto di prelievo"
END

STRING F_DESC_TIPODON 30
BEGIN
  PROMPT 26 2 ""
  FLAGS "D"
END

STRING F_DESC_LUOGODON 50
BEGIN
  PROMPT 26 3 ""
  FLAGS "D"
END

NUMBER F_TOTALE 8
BEGIN
   PROMPT 50 1 "Totale soggetti "
   FLAGS "D"
END

GROUPBOX DLG_NULL 77 5
BEGIN
  PROMPT 1 5 "Dati corretti"
  FLAGS "R"
END

DATE F_NDATADON
BEGIN
   PROMPT 2 6 "Data donazione  "
   HELP "Data donazione"
   //GROUP 1
   FLAGS "D"
END

STRING F_NTIPODON 2
BEGIN
   PROMPT 2 7 "Tipo donazione  "
   FLAGS "U"
   USE TDN
   INPUT CODTAB F_NTIPODON
   DISPLAY "Codice" CODTAB
   DISPLAY "Descrizione@30" S0
   OUTPUT F_NTIPODON CODTAB
   OUTPUT F_DESC_NTIPODON S0
   CHECKTYPE NORMAL
   WARNING "Codice non presente"
   HELP "Tipo donazione"
   //GROUP 1
   FLAGS "D"
END

STRING F_NLUOGODON 4
BEGIN
   PROMPT 2 8 "Punto prelievo  "
   FLAGS "U"
   USE LDN
   INPUT CODTAB F_NLUOGODON
   DISPLAY "Codice" CODTAB
   DISPLAY "Descrizione@50" S0
   OUTPUT F_NLUOGODON CODTAB
   OUTPUT F_DESC_NLUOGODON S0
   CHECKTYPE NORMAL
   WARNING "Codice non presente"
   HELP "Punto di prelievo"
   GROUP 1
END

STRING F_DESC_NTIPODON 30
BEGIN
  PROMPT 26 7 ""
  FLAGS "D"
  GROUP 1
END

STRING F_DESC_NLUOGODON 50
BEGIN
  PROMPT 26 8 ""
  FLAGS "D"
  GROUP 1
END

SPREADSHEET F_SOGGETTI
BEGIN
   PROMPT 2 10 "Soggetti"
   ITEM "Codice@8"
   ITEM "Cognome@25"
   ITEM "Nome@25"
   ITEM "Tessera"
   ITEM "Don."
   ITEM "Con."
   ITEM "Et. sacca"
   ITEM "1<>"
   ITEM "Data don."
   ITEM "Nato il@10"
   ITEM "Sez."
   ITEM "Sot."
   ITEM "Cat."
   ITEM "Int.SI"
END

ENDPAGE

ENDMASK

PAGE "Soggetto " -1 -1 78 20

GROUPBOX DLG_NULL 77 6
BEGIN
  PROMPT 1 0 "Soggetto donatore"
  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
  OUTPUT F_S_INTSI INTSI
//  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
  OUTPUT F_S_INTSI INTSI
  HELP "Cognome del soggetto"
//  CHECKTYPE NORMAL
  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

STRING F_S_TESSAVIS 6
BEGIN
  PROMPT 33 3 "Tessera AVIS "
  USE LF_SOGGETTI KEY 4
  INPUT TESSAVIS F_S_TESSAVIS
  DISPLAY "Tessera" TESSAVIS
  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 "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
  OUTPUT F_S_INTSI INTSI
  HELP "Cognome del soggetto"
//  CHECKTYPE NORMAL
  ADD RUN at0 -0
END

STRING F_S_TIPODON 2
BEGIN
   PROMPT 2 16 "Tipo donazione "
   FLAGS "U"
   USE TDN
   INPUT CODTAB F_S_TIPODON
   DISPLAY "Codice" CODTAB
   DISPLAY "Descrizione@30" S0
   OUTPUT F_S_TIPODON CODTAB
   //OUTPUT F_S_DESC_TIPODON S0
   CHECKTYPE NORMAL
   WARNING "Codice non presente"
   HELP "Tipo donazione (se diverso da dati fissi)"
END

GROUPBOX DLG_NULL 77 9
BEGIN
  PROMPT 1 6 "Dati del controllo sanitario effettuato"
END

STRING F_S_TIPOCON 2
BEGIN
   PROMPT 2 7 "Tipo controllo "
   FLAGS "U"
   USE TCS SELECT S6=="N"
   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

GROUPBOX DLG_NULL 77 3
BEGIN
  PROMPT 1 15 "Dati complementari della donazione"
END

NUMBER F_S_ETICHETTA 9
BEGIN
   PROMPT 30 16 "Etichetta sacca "
END

BOOLEAN F_S_PRIMADON
BEGIN
   PROMPT 60 16 "Prima donazione"
END

DATE F_S_DATADON
BEGIN
   PROMPT 2 16 "Data don. "
END

DATE F_S_DATANASC
BEGIN
  PROMPT 2 3 "Nato il        "
  FLAGS "D"
END

STRING F_S_CODSEZ 2
BEGIN
  PROMPT 2 4 "Sez./Sottog.   "
  FLAGS "D"
END

STRING F_S_DENSEZ 25 23
BEGIN
  PROMPT 20 4 ""
  FLAGS "D"
END

STRING F_S_CODSOT 2
BEGIN
  PROMPT 46 4 ""
  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 23
BEGIN        	
  PROMPT 49 4 ""
  FLAGS "D"
END

STRING F_S_CATDON 2
BEGIN
  PROMPT 60 3 "Categoria "
  FLAGS "D"
//  USE CTD
//  INPUT CODTAB F_S_CATDON
//  OUTPUT F_S_DESC_CATDON S0
//  CHECKTYPE NORMAL
END

NUMBER F_S_INTSI 3 0
BEGIN
   PROMPT 40 12 "Sangue intero "
END

STRING F_S_DESC_TIPOCON 25
BEGIN
  PROMPT 23 7 ""
  FLAGS "D"
END

//STRING F_S_DESC_CATDON 25 15
//BEGIN
//  PROMPT 61 3 ""
//  FLAGS "D"
//END

TEXT DLG_NULL
BEGIN
   PROMPT 2 8 "Se idoneita': tipi donazione ammessi"
END

STRING F_S_IDON1 2
BEGIN
  PROMPT 40 8 ""
  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 40 9 ""
  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 40 10 ""
  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 40 11 ""
  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 2 12 "                          intervalli"
END

//NUMBER F_S_INTSI 3 0
//BEGIN
//   PROMPT 29 12 "Sangue intero "
//   FLAGS "U"
//END

NUMBER F_S_INTAF 3 0
BEGIN
   PROMPT 59 12 "Aferesi "
   FLAGS "U"
END

STRING F_S_PROSSTIPO 2
BEGIN
   PROMPT 2 13 "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 55 13 "Data "
   FLAGS "D"
   HELP "Data controllo"
END

STRING F_S_DESC_IDON1 25
BEGIN
  PROMPT 45 8 ""
  FLAGS "D"
END

STRING F_S_DESC_IDON2 25
BEGIN
  PROMPT 45 9 ""
  FLAGS "D"
END

STRING F_S_DESC_IDON3 25
BEGIN
  PROMPT 45 10 ""
  FLAGS "D"
END

STRING F_S_DESC_IDON4 25
BEGIN
  PROMPT 45 11 ""
  FLAGS "D"
END

STRING F_S_DESC_PROSSTIPO 25
BEGIN
  PROMPT 23 13 ""
END

BUTTON DLG_OK 9 2
BEGIN
   PROMPT -13 -1 ""
END

BUTTON DLG_CANCEL 9 2
BEGIN
   PROMPT -23 -1 ""
END

ENDPAGE

ENDMASK