#include "batbmed.h"

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

PAGE "Medici" -1 -1 78 20

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

NUMBER F_CODMED 6
BEGIN
  PROMPT 2 2 "Cod. medico "
  FIELD CODMED
  FLAGS "U"
  KEY 1
  USE LF_MEDICI
  INPUT CODMED F_CODMED
  DISPLAY "Codice " CODMED
  DISPLAY "Cognome@25" COGNOME
  DISPLAY "Nome@25" NOME
  OUTPUT F_CODMED CODMED
  OUTPUT F_COGNOME COGNOME
  OUTPUT F_NOME NOME
  CHECKTYPE REQUIRED
END

STRING F_COGNOME 25
BEGIN
  PROMPT 2 3 "Cognome     "
  FIELD COGNOME
  KEY 2
  USE LF_MEDICI KEY 2
  INPUT COGNOME F_COGNOME
  INPUT NOME F_NOME
  DISPLAY "Cognome@25" COGNOME
  DISPLAY "Nome@25" NOME
  DISPLAY "Codice " CODMED
  COPY OUTPUT F_CODMED
  CHECKTYPE REQUIRED
  WARNING "Inserire il cognome del medico"
END

STRING F_NOME 25
BEGIN
  PROMPT 2 4 "Nome        "
  FIELD NOME
  KEY 2
  COPY ALL F_COGNOME
  CHECKTYPE NORMAL
END

GROUPBOX DLG_NULL 77 5
BEGIN
   PROMPT 1 6 "Indirizzo"
END

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

STRING F_COM 4
BEGIN
  PROMPT 2 8 "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 8 ""
  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 9 "Località "
  FIELD LOCALITA
  FLAGS "U"
  USE LCP SELECT S7=#F_COM
  INPUT CODTAB F_LOCALITA
  DISPLAY "Codice" CODTAB
  DISPLAY "Località@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… postale se diversa dal comune"
END

STRING F_DENLOC 30
BEGIN
  PROMPT 19 9 ""
  USE LCP KEY 2 SELECT S7=#F_COM
  INPUT S0 F_DENLOC
  DISPLAY "Località@30" S0
  DISPLAY "CAP@5" S6
  DISPLAY "Codice" CODTAB
  COPY OUTPUT F_LOCALITA
  CHECKTYPE NORMAL
  HELP "Localit… postale se diversa dal comune"
END

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

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

GROUPBOX DLG_NULL 77 3
BEGIN
   PROMPT 1 11 "Telefoni"
END

STRING F_TELAMB 15
BEGIN
   PROMPT 2 12 "Ambulatorio "
   FIELD TELAMB
END

STRING F_TELABI 15
BEGIN
   PROMPT 40 12 "Abitazione "
   FIELD TELABI
END

ENDPAGE
ENDMASK