campo-sirio/at/at0700a.uml

#include "at0700.h" 
#include "lf.h"

TOOLBAR "" 0 20 0 2 
#include <toolbar.h>
ENDPAGE

PAGE "Sezioni 1" -1 -1 78 20

GROUPBOX DLG_NULL 77 4
BEGIN
  PROMPT 1 0 ""
  FLAGS "R"
END

STRING F_CODSEZ 2
BEGIN
  PROMPT 2 1 "Cod. sezione     "
  FIELD CODSEZ
  FLAGS "U"
  KEY 1
  USE LF_SEZIONI
  INPUT CODSEZ F_CODSEZ
  INPUT CODSOT F_CODSOT
  DISPLAY "Cod.sez. " CODSEZ
  DISPLAY "Cod.sot. " CODSOT
  DISPLAY "Sezione@25" DENSEZ
  DISPLAY "Sottogruppo@25" DENSOT
  OUTPUT F_CODSEZ CODSEZ
  OUTPUT F_DENSEZ DENSEZ
  OUTPUT F_CODSOT CODSOT
  OUTPUT F_DENSOT DENSOT
  MESSAGE COPY,1@
  CHECKTYPE REQUIRED
END

STRING F_CODSOT 2
BEGIN
  PROMPT 2 2 "Cod. sottogruppo "
  FIELD CODSOT
  FLAGS "U"
  KEY 1
  COPY ALL F_CODSEZ
  MESSAGE COPY,2@
  CHECKTYPE NORMAL
  WARNING "Inserire il codice della sezione"
END

STRING F_DENSEZ 25
BEGIN
  PROMPT 29 1 "Denominazione sez. "
  FIELD DENSEZ
  KEY 2
  USE LF_SEZIONI KEY 2
  INPUT DENSEZ F_DENSEZ
  INPUT DENSOT F_DENSOT
  DISPLAY "Sezione@25" DENSEZ
  DISPLAY "Sottogruppo@25" DENSOT
  DISPLAY "Cod.sez. " CODSEZ
  DISPLAY "Cod.sot. " CODSOT
  COPY OUTPUT F_CODSEZ
  MESSAGE COPY,3@
  CHECKTYPE REQUIRED
  WARNING "Inserire la denominazione della sezione"
END

STRING F_DENSOT 25
BEGIN
  PROMPT 29 2 "Denominazione sot. "
  FIELD DENSOT
  KEY 2
  COPY ALL F_DENSEZ
  MESSAGE COPY,4@
  CHECKTYPE NORMAL
  WARNING "Inserire la denominazione del sottogruppo"
END

GROUPBOX DLG_NULL 77 7
BEGIN
  PROMPT 1 4 "Dati anagrafici"
END

STRING F_INDIRIZZO 50
BEGIN                                                                            			
  PROMPT 2 5 "Indirizzo        "
  FIELD INDIRIZZO
END

STRING F_COM 4
BEGIN
  PROMPT 2 6 "Comune    "
  FIELD COM
  FLAGS "U"
  USE LF_COMUNI 
  INPUT STATO ""
  INPUT COM F_COM
#include <comdcod.h>
  OUTPUT F_COM COM
  OUTPUT F_DENCOM DENCOM
  OUTPUT F_PROVCOM PROVCOM
  OUTPUT F_CAPCOM CAPCOM
  CHECKTYPE NORMAL
  WARNING "Comune assente"
END

STRING F_DENCOM 48
BEGIN
  PROMPT 19 6 ""
  USE LF_COMUNI KEY 2
  INPUT DENCOM F_DENCOM
#include <comdden.h>
  COPY OUTPUT F_COM
  CHECKTYPE NORMAL
END

STRING F_LOCALITA 4
BEGIN
  PROMPT 2 7 "Localita' "
  FIELD LOCALITA
  FLAGS "U"
  USE LCP SELECT S7=#F_COM
  INPUT CODTAB F_LOCALITA
  DISPLAY "Codice" CODTAB
  DISPLAY "Localit<69>@30" S0
  DISPLAY "CAP@5" S6
  OUTPUT F_LOCALITA CODTAB
  OUTPUT F_DENLOC S0
  OUTPUT F_CAPCOM S6
  OUTPUT F_COM S7
  CHECKTYPE NORMAL
  HELP "Codice localit<69> postale se diversa dal comune"
END

STRING F_DENLOC 30
BEGIN
  PROMPT 19 7 ""
  COPY USE F_LOCALITA
  INPUT S0 F_DENLOC
  DISPLAY "Localit<69>@30" S0
  DISPLAY "CAP@5" S6
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_LOCALITA
  CHECKTYPE NORMAL
  HELP "Localit<69> postale se diversa dal comune"
END


STRING F_PROVCOM 5
BEGIN
  PROMPT 71 6 ""
  FLAGS "D"
END

STRING F_CAPCOM 5
BEGIN
  PROMPT 67 7 "CAP "
  FLAGS "D"
END

STRING F_TELEFONO 15
BEGIN
  PROMPT 2 8 "Telefono "
  FIELD TELEFONO
END

STRING F_FAX 15
BEGIN
  PROMPT 32 8 "Fax "
  FIELD FAX
END

STRING F_REFERCED 50
BEGIN
  PROMPT 2 9 "Referente CED    "
  FIELD REFERCED
END

RADIOBUTTON F_STATO 13
BEGIN
  PROMPT 1 11 "Stato"
  FIELD STATO
  ITEM "A|Attiva"
  ITEM "E|Estinta"
END


GROUPBOX DLG_NULL 35 7
BEGIN
  PROMPT 16 11 "Parametri convocazione"
END

NUMBER F_INTMINCONV 4
BEGIN
  PROMPT 17 12 "Int. min. convoc. "
  FIELD INTMINCONV
  HELP "Intervallo minimo di convocazione in giorni (dall'ultima don.)"
END

NUMBER F_INTMIN 4
BEGIN
  PROMPT 17 13 "Int. avvisi: min. "
  FIELD INTMIN
END

NUMBER F_INTMAX 4
BEGIN
  PROMPT 17 14 "             max. "
  FIELD INTMAX
END

LISTBOX F_TIPOCONV 11
BEGIN
  PROMPT 17 15 "Tipo convocazione "
  FIELD TIPOCONV
  ITEM "D|Data fissa"
  ITEM "G|dal Giorno"
END

DATE F_DATAULTCON
BEGIN
  PROMPT 17 16 "Data ultima conv. "
  FIELD DATAULTCON
  FLAGS "D"
END

GROUPBOX DLG_NULL 25 6
BEGIN
   PROMPT 53 11 "Intestazione tessere"
END

STRING F_INTESTAZ1 20
BEGIN
   PROMPT 55 12 ""
   FIELD INTESTAZ1
END

STRING F_INTESTAZ2 20
BEGIN
   PROMPT 55 13 ""
   FIELD INTESTAZ2
END

STRING F_INTESTAZ3 20
BEGIN
   PROMPT 55 14 ""
   FIELD INTESTAZ3
END

STRING F_INTESTAZ4 20
BEGIN
   PROMPT 55 15 ""
   FIELD INTESTAZ4
END

ENDPAGE

PAGE "Sezioni 2" -1 -1 78 20

GROUPBOX DLG_NULL 77 4
BEGIN
  PROMPT 1 0 ""
  FLAGS "R"
END

STRING DLG_NULL 2
BEGIN
  PROMPT 2 1 "Cod. sezione     "
  FLAGS "D"
  GROUP 1
END

STRING DLG_NULL 2
BEGIN
  PROMPT 2 2 "Cod. sottogruppo "
  FLAGS "D"
  GROUP 2
END

STRING DLG_NULL 25
BEGIN
  PROMPT 29 1 "Denominazione sez. "
  FLAGS "D"
  GROUP 3
END

STRING DLG_NULL 25
BEGIN
  PROMPT 29 2 "Denominazione sot. "
  FLAGS "D"
  GROUP 4
END

GROUPBOX DLG_NULL 35 8
BEGIN
  PROMPT 1 4 "Dati per stampa cartolina"
END

STRING F_CONVORA 20
BEGIN
  PROMPT 2 5 "Orario "
  FIELD CONVORA
END

STRING F_CONVSEDE1 25
BEGIN
  PROMPT 2 6 "Sede   "
  FIELD CONVSEDE1
END

STRING F_CONVSEDE2 25
BEGIN
  PROMPT 2 7 "       "
  FIELD CONVSEDE2
END

STRING F_CONVSEDE3 25
BEGIN
  PROMPT 2 8 "       "
  FIELD CONVSEDE3
END              

STRING F_CONVSEDE4 25
BEGIN
  PROMPT 2 9 "       "
  FIELD CONVSEDE4
END

STRING F_CONVNOTE 25
BEGIN
  PROMPT 2 10 "Note   "
  FIELD CONVNOTE
END  

GROUPBOX DLG_NULL 41 8
BEGIN
  PROMPT 37 4 "Parametri per chiusura fine anno"
END

NUMBER F_DONEMER 3
BEGIN
  PROMPT 38 5 "Donazioni per passaggio a emeriti "
  FIELD DONEMER
  FLAGS "U"
END

NUMBER F_INTESTI 2
BEGIN
  PROMPT 38 6 "Intervallo di estinzione in anni  "
  FIELD INTESTI
  FLAGS "U"
END

TEXT DLG_NULL
BEGIN
   PROMPT 38 7 "Categorie:"
END

STRING F_CATEMER 2
BEGIN
  PROMPT 39 8 "emeriti    "
  FIELD CATEMER
  FLAGS "U"
  USE CTD
  INPUT CODTAB F_CATEMER
  DISPLAY "Codice" CODTAB
  DISPLAY "Descrizione@30" S0
  OUTPUT F_CATEMER CODTAB
  OUTPUT F_DESC_CATEMER S0
  CHECKTYPE NORMAL
  WARNING "Codice non presente"
END

STRING F_DESC_CATEMER 20
BEGIN
  PROMPT 56 8 ""
  FLAGS "D"
END

STRING F_CATESTI 2
BEGIN
  PROMPT 39 9 "estinti    "
  FIELD CATESTI
  FLAGS "U"
  USE CTD
  INPUT CODTAB F_CATESTI
  COPY DISPLAY F_CATEMER
  OUTPUT F_CATESTI CODTAB
  OUTPUT F_DESC_CATESTI S0
  CHECKTYPE NORMAL
  WARNING "Codice non presente"
END

STRING F_DESC_CATESTI 20
BEGIN
  PROMPT 56 9 ""
  FLAGS "D"
END

STRING F_CATCANC 2
BEGIN
  PROMPT 39 10 "cancellati "
  FIELD CATCANC
  FLAGS "U"
  USE CTD
  INPUT CODTAB F_CATCANC
  COPY DISPLAY F_CATEMER
  OUTPUT F_CATCANC CODTAB
  OUTPUT F_DESC_CATCANC S0
  CHECKTYPE NORMAL
  WARNING "Codice non presente"
END

STRING F_DESC_CATCANC 20
BEGIN
  PROMPT 56 10 ""
  FLAGS "D"
END


ENDPAGE

ENDMASK