USE 90
JOIN 13 ALIAS 500 INTO COM==COMNASC
JOIN 13 ALIAS 501 INTO COM==DOM_CODCOM
JOIN LCP ALIAS 100 INTO CODTAB==DOM_CODLOC
JOIN 96 INTO CODSEZ==CODSEZ|CODSOT=CODSOT
JOIN 97 INTO CODMED==CODMED
JOIN CTD ALIAS 700 INTO CODTAB==CATDON
JOIN TCS ALIAS 200 INTO CODTAB==STATO
JOIN LDN ALIAS 400 INTO CODTAB==PUNTORACC
JOIN GAZ ALIAS 300 INTO CODTAB==GRUPPOAZIE
JOIN 94 INTO CODICE==CODICE
JOIN BNZ TO 94 ALIAS 600 INTO CODTAB==TIPOBEN

END
DESCRIPTION
BEGIN
  90->* "Soggetti Sezioni AVIS"
  100@->* "Localita' postali"
  200@->* "TCS"
  300@->* "GAZ"
  100@->* "LCP"
  500@->* "Comune di nascita"
  501@->* "Comuni di domicilio"
  600@->* "Tabella benemerenze"
  96->* "Sezioni AVIS"
  97->* "Medici"
  94->* "Benemerenze"
END

GENERAL
BEGIN
  OFFSET 0 0
  FONT ""
  SIZE
  GRID ""
END

SECTION BODY ODD 70

STRINGA 1 50
BEGIN
   KEY "Intestazione della scheda + data del giorno"
   PROMPT 15 12 ""
   MESSAGE _TODAY
END

STRINGA 2 25
BEGIN
 KEY "Cognome"
 PROMPT 0 0 ""
 FLAGS "H"
 MESSAGE RESET,4|COPY,4
 FIELD 90->COGNOME
END

STRINGA 3 25
BEGIN
 KEY "Nome"
 PROMPT 0 0 ""
 FLAGS "H"
 MESSAGE APPEND,4
 FIELD 90->NOME
END

STRINGA 4 51 1
BEGIN
 KEY "Cognome e nome"
 PROMPT 15 18 ""
END

NUMERO 5 8
BEGIN
   KEY "Codice soggetto"
   PROMPT 15 20 ""
   FIELD 90->CODICE
END

STRINGA 6 2
BEGIN
 KEY "Categoria"
 PROMPT 67 20 ""
 FIELD 90->CATDON
END

STRINGA 7 50
BEGIN
 KEY "Comune di nascita"
 PROMPT 0 0 ""
 FLAGS "H"
 MESSAGE RESET,9|COPY,9
 FIELD 500@->DENCOM
END

STRINGA 8 5
BEGIN
 KEY "Provincia di nascita"
 PROMPT 0 0 ""
 FLAGS "H"
 MESSAGE APPEND,9
 FIELD 500@->PROVCOM
END

STRINGA 9 55
BEGIN
 KEY "Comune e provincia di nascita"
 PROMPT 15 22 ""
END

DATA 10 18
BEGIN
 KEY "Data nascita"
 PROMPT 67 22 ""
 FIELD 90->DATANASC
 FORMAT "1444-"
END

STRINGA 11 30 1
BEGIN
 KEY "Indirizzo"
 PROMPT 15 24 ""
 FIELD 90->DOM_INDIR
END

STRINGA 12 4
BEGIN
 KEY "Codice localita'"
 PROMPT 0 0 ""
 FLAGS "H"
 FIELD 90->DOM_CODLOC
END

STRINGA 13 30
BEGIN
 KEY "Denominazione localita' o comune"
 PROMPT 0 0 ""
 FLAGS "H"
 MESSAGE RESET,15|COPY,15
 FIELD 100@->S0
 FIELD 501@->DENCOM
END

STRINGA 14 5
BEGIN
 KEY "Provincia"
 PROMPT 0 0 ""
 FLAGS "H"
 MESSAGE APPEND,15
 FIELD 501@->PROVCOM
END

STRINGA 15 50 1
BEGIN
 KEY "Loc./Com. e Prov."
 PROMPT 15 26 ""
END

STRINGA 16 25
BEGIN
   KEY "Codice fiscale"
   PROMPT 15 28 ""
   FIELD 90->CF
END

STRINGA 17 15
BEGIN
   KEY "Gruppo sanguigno"
   PROMPT 45 28 ""
   FIELD 90->GRUPPOAB0
END

STRINGA 18 15
BEGIN
   KEY "Rh/AntiD"
   PROMPT 66 28 ""
   FIELD 90->RHANTID
END

LISTA 19
BEGIN
 KEY "Sesso"
 PROMPT 67 18 ""
 FIELD 90->SESSO
 ITEM "0|?"
 ITEM "1|M"
 ITEM "2|F"
 ITEM "9|?"
END

STRINGA 20
BEGIN
  PROMPT 0 0 ""
  FLAG "H"
END
STRINGA 21 
BEGIN
  PROMPT 0 0 ""
  FLAG "H"
END
STRINGA 22 
BEGIN
  PROMPT 0 0 ""
  FLAG "H"
END

END   // FINE SECTION BODY

END   // END FORM