campo-sirio/m770/770300a.uml

#include "770300a.h"

TOOLBAR "ToolBar" 0 0 0 2
#include <relapbar.h>
ENDPAGE

PAGE "Dati Previdenziali" -1 -1 75 12

GROUPBOX DLG_NULL 74 5
BEGIN
  PROMPT 1 0 "@bPercipiente"
END

NUMBER F_CODDITTA 5
BEGIN
  PROMPT 2 1 "Ditta "
  FLAGS "FRD"
  USE LF_NDITTE
  INPUT CODDITTA F_CODDITTA
  OUTPUT F_RAGDITTA RAGSOC
  CHECKTYPE REQUIRED
  FIELD CODDITTA             
  KEY 1
END

STRING F_RAGDITTA 50
BEGIN
  PROMPT 16 1 ""
  FLAGS "D"
END

LIST F_TIPOA 1 10
BEGIN
  PROMPT 2 2 "Tipo persona  "    
  ITEM "F|Fisica"
  ITEM "G|Giuridica"
  FIELD TIPOA
  KEY 1
END

NUMBER F_CODANAGR 6
BEGIN
  PROMPT 33 2 ""
  USE LF_PERC
  JOIN LF_ANAG INTO TIPOA=TIPOA CODANAGR=CODANAGR 
  INPUT CODDITTA F_CODDITTA SELECT
  INPUT TIPOA F_TIPOA SELECT
  INPUT CODANAGR F_CODANAGR 
  DISPLAY "Codice" CODANAGR
  DISPLAY "Denominazione@50"  LF_ANAG->RAGSOC
  DISPLAY "Codice Fiscale@16" LF_ANAG->COFI
  DISPLAY "Partita IVA@16"    LF_ANAG->PAIV
  OUTPUT F_CODANAGR CODANAGR
  OUTPUT F_RAGSOC LF_ANAG->RAGSOC
  CHEKTYPE REQUIRED
  FIELD CODANAGR
  KEY 1
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 2 3 "Denominazione "
  FLAGS "D"
END

GROUPBOX DLG_NULL 74 5
BEGIN
  PROMPT 1 5 "@bDati previdenziali"
END

STRING F_ENP 8
BEGIN
  PROMPT 2 6 "Ente previdenziale  "
  USE %ENT
  INPUT CODTAB F_ENP
  DISPLAY "Codice@8" CODTAB
  DISPLAY "Denominazione@50" S0
  DISPLAY "Codice Fiscale@16" S5
  OUTPUT F_ENP CODTAB
  OUTPUT F_DESCENP S0
  CHECKTYPE NORMAL
  FIELD ENTEPREV
END

STRING F_DESCENP 50
BEGIN
  PROMPT 2 7 "Denominazione Ente  "
  USE %ENT KEY 2
  INPUT S0 F_DESCENP
  DISPLAY "Denominazione@50" S0
  DISPLAY "Codice@8" CODTAB
  DISPLAY "Codice Fiscale@16" S5
  COPY OUTPUT F_ENP
  CHECKTYPE NORMAL
END

STRING F_CATEGORIA 1
BEGIN
  PROMPT 2 8 "Categoria           "
  FIELD CATEGORIA
END

CURRENCY F_FATTBIL 15
BEGIN
  PROMPT 1 -1 "FATTBIL "
  FIELD FATTBIL
END

ENDPAGE

ENDMASK