campo-sirio/at/at0100c.uml

#include "at0100c.h"

TOOLBAR "" 0 0 0 2
#include <stdbar.h>
ENDPAGE

PAGE "Famiglia" 0 2 0 0

BUTTON F_NUOVA 21
BEGIN
   PROMPT 2 1 "Crea nuova famiglia"
   GROUP 1
END

GROUPBOX F_ES_COLLEGA 45 5
BEGIN
   PROMPT 30 1 "Collega a famiglia esistente"
   GROUP 1
END

NUMBER F_ES_CODICE 8
BEGIN
  PROMPT 31 2 "Codice  "
  FLAGS "RG"
  USE LF_SOGGETTI SELECT LF_FAMIGLIE->CODFAM!=0
  JOIN LF_FAMIGLIE TO LF_SOGGETTI KEY 2 INTO CODFAM=CODICE
  INPUT CODICE F_ES_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
  OUTPUT F_ES_CODICE CODICE
  OUTPUT F_ES_COGNOME COGNOME
  OUTPUT F_ES_NOME NOME
  CHECKTYPE NORMAL
  ADD RUN at0 -0
  GROUP 1
END

STRING F_ES_COGNOME 25
BEGIN
  PROMPT 31 3 "Cognome "
  USE LF_SOGGETTI KEY 2 SELECT LF_FAMIGLIE->CODFAM!=0
  JOIN LF_FAMIGLIE TO LF_SOGGETTI KEY 2 INTO CODFAM=CODICE
  INPUT COGNOME F_ES_COGNOME
  INPUT NOME F_ES_NOME
  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
  COPY OUTPUT F_ES_CODICE
  CHECKTYPE SEARCH
  HELP "Cognome del soggetto"
  ADD RUN at0 -0
  GROUP 1
END

STRING F_ES_NOME 25
BEGIN
  PROMPT 31 4 "Nome    "
  COPY ALL F_ES_COGNOME
  CHECKTYPE SEARCH
  HELP "Nome del soggetto"
  ADD RUN at0 -0
  GROUP 1
END


SPREADSHEET F_FAMIGLIARI
BEGIN
   PROMPT 2 6 ""
   ITEM "Grado"
   ITEM "Codice@8"
   ITEM "Cognome@25"
   ITEM "Nome@25"
   ITEM "Nato il@10"
   ITEM "Sez."
   ITEM "Sot."
   ITEM "Cat."
   ITEM "Tessera"
END

ENDPAGE

ENDMASK


PAGE "Soggetto familiare" -1 -1 78 20

GROUPBOX DLG_NULL 77 6
BEGIN
  PROMPT 1 0 "Dati familiare"
END


LISTBOX F_F_GRADOPAR 12
BEGIN
  PROMPT 2 1 "Grado parentela "
  FLAGS "U"
#include "parenti.h"
END

NUMBER F_F_CODICE 8
BEGIN
  PROMPT 2 2 "Codice          "
  FLAGS "RG"
  USE LF_SOGGETTI KEY 1
  INPUT CODICE F_F_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
  OUTPUT F_F_CODICE CODICE
  OUTPUT F_F_COGNOME COGNOME
  OUTPUT F_F_NOME NOME
  OUTPUT F_F_DATANASC DATANASC
  OUTPUT F_F_CODSEZ CODSEZ
  OUTPUT F_F_CODSOT CODSOT
  OUTPUT F_F_CATDON CATDON
  OUTPUT F_F_TESSAVIS TESSAVIS
  CHECKTYPE NORMAL
  ADD RUN at0 -0
END

STRING F_F_COGNOME 25
BEGIN
  PROMPT 2 3 "Cognome e nome  "
  USE LF_SOGGETTI KEY 2
  INPUT COGNOME F_F_COGNOME
  INPUT NOME F_F_NOME
  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
  COPY OUTPUT F_F_CODICE
  //CHECKTYPE SEARCH
  HELP "Cognome del soggetto"
  ADD RUN at0 -0
END

STRING F_F_NOME 25
BEGIN
  PROMPT 46 3 ""
  COPY ALL F_F_COGNOME
  COPY OUTPUT F_F_CODICE
  //CHECKTYPE SEARCH
  HELP "Nome del soggetto"
  ADD RUN at0 -0
END

DATE F_F_DATANASC
BEGIN
  PROMPT 2 4 "Nato il         "
  FLAGS "D"
END

GROUPBOX DLG_NULL 77 4
BEGIN
  PROMPT 1 6 "Dati associativi"
END

STRING F_F_CODSEZ 2
BEGIN
  PROMPT 2 7 "Sez. "
  FLAGS "D"
END

STRING F_F_DENSEZ 25
BEGIN
  PROMPT 12 7 ""
  FLAGS "D"
END

STRING F_F_CODSOT 2
BEGIN
  PROMPT 40 7 "Sot. "
  FLAGS "D"
  USE LF_SEZIONI
  INPUT CODSEZ F_F_CODSEZ
  INPUT CODSOT F_F_CODSOT
  OUTPUT F_F_DENSEZ DENSEZ
  OUTPUT F_F_DENSOT DENSOT
  CHECKTYPE NORMAL
END

STRING F_F_DENSOT 25
BEGIN        	
  PROMPT 50 7 ""
  FLAGS "D"
END

STRING F_F_CATDON 2
BEGIN
  PROMPT 2 8 "Cat. "
  FLAGS "D"
  USE CTD
  INPUT CODTAB F_F_CATDON
  OUTPUT F_F_DESC_CATDON S0
  CHECKTYPE NORMAL
END

STRING F_F_TESSAVIS 10
BEGIN
  PROMPT 52 8 "Tessera AVIS "
  FLAGS "D"
END

STRING F_F_DESC_CATDON 25
BEGIN
  PROMPT 12 8 ""
  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