campo-sirio/m770/771100f.uml

#include "771100.h"

TOOLBAR "" 0 20 0 2
  
BUTTON F_FISICA 10 2
BEGIN
PROMPT -14 -1 "F~isiche"
END
  
BUTTON DLG_SAVEREC 10 2
BEGIN
PROMPT -24 -1 "~Registra"
MESSAGE EXIT,K_SAVE 
PICTURE BMP_SAVEREC
PICTURE BMP_SAVERECDN
END

BUTTON DLG_CANCEL 10 2
BEGIN
PROMPT -34 -1 ""
MESSAGE EXIT,K_ESC
END

BUTTON DLG_QUIT 10 2
BEGIN
PROMPT -44 -1 ""
MESSAGE EXIT,K_QUIT
END

ENDPAGE

PAGE "Direttore / Professionista" -1 -1 78 18

GROUPBOX DLG_NULL 78 4
BEGIN
  PROMPT 0 0 ""
  FLAGS "R"
END

NUMBER F_CODDITTA 5
BEGIN
  PROMPT 1 1 "Ditta             "
  FLAGS "GRD"
  USE LF_NDITTE KEY 1
  CHECKTYPE REQUIRED
  INPUT CODDITTA F_CODDITTA
  OUTPUT F_RAGSOC RAGSOC 
  KEY 1
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 1 2 "Ragione sociale   "
  FLAGS "D"
END                                

GROUPBOX DLG_NULL 78 7
BEGIN
  PROMPT 0 5 "Dati anagrafici"
END

NUMBER F_ANAGR 5
BEGIN                        
  PROMPT 1 6 "Codice         "
  USE LF_ANAGFIS KEY 1
  CHECKTYPE NORMAL
  INPUT CODANAGR F_ANAGR
  JOIN LF_ANAG TO LF_ANAGFIS INTO TIPOA="F" CODANAGR=CODANAGR 
  JOIN LF_COMUNI TO LF_ANAGFIS INTO COM==COMNASC
  DISPLAY "Codice" CODANAGR
  DISPLAY "Ragione Sociale@50" LF_ANAG->RAGSOC
  OUTPUT F_COFI LF_ANAG->COFI
  OUTPUT F_COGNOME LF_ANAG->RAGSOC[1,30]
  OUTPUT F_NOME LF_ANAG->RAGSOC[31,50]
  OUTPUT F_SESSO SESSO
  OUTPUT F_DATANASC DATANASC
  OUTPUT F_COMNASC LF_COMUNI->DENCOM
  OUTPUT F_PROVNASC LF_COMUNI->PROVCOM        
  OUTPUT F_ANAGR CODANAGR
  FIELD LF_BASE->CODPRO
  FLAGS "R"
  KEY 1
END

STRING F_COFI 16
BEGIN
  PROMPT 1 7 "Codice fiscale "
  FLAGS "D" 
END                       

STRING F_COGNOME 30
BEGIN
  PROMPT 1 8 "Cognome        "
  FLAGS "D"
END                            

STRING F_NOME 20
BEGIN
  PROMPT 1 9 "Nome           "
  FLAGS "D"
END 

STRING F_SESSO 1
BEGIN
  PROMPT 39 9 "Sesso "
  FLAGS "D"                  
END

DATE F_DATANASC 
BEGIN
  PROMPT 49 9 "Data di nascita "
  FLAGS "D"
END

STRING F_COMNASC 50
BEGIN
  PROMPT 1 10 "Comune nascita "
  FLAGS "D"
END

STRING F_PROVNASC 5
BEGIN
  PROMPT 70 10 ""
  FLAGS "D"
END

BOOLEAN F_CONTROLLI
BEGIN
  PROMPT 1 13 "Si attesta che sono stati eseguiti i controlli di cui art.4"
  FIELD LF_BASE->FLART4
END

ENDPAGE 

ENDMASK