#include "775100a.h"

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

PAGE "Gestione percipienti" 0 2 0 0

GROUPBOX DLG_NULL 78 3
BEGIN
    PROMPT 1 0 ""
END

NUMBER F_CODDITTA 5
BEGIN
    PROMPT 3 1 "Ditta  "
    FLAGS "RDG"
    USE LF_NDITTE KEY 1
    INPUT CODDITTA F_CODDITTA
    DISPLAY "Codice" CODDITTA
    DISPLAY "Ragione sociale @50" RAGSOC
    OUTPUT F_RAGDITTA RAGSOC
    FIELD LF_PERC->CODDITTA
    KEY 1
    CHECKTYPE REQUIRED             
END

STRING F_RAGDITTA 50
BEGIN
    PROMPT 17 1 "Ragione "
    FLAGS "D"
END

NUMBER F_ANNODIC 4
BEGIN
    PROMPT 52 4 "Anno dichiarazione "
    FLAGS "DR"
END

TEXT DLG_NULL
BEGIN
  PROMPT 1 7 "@bDati percipiente"
END

LISTBOX F_TIPOA 1 9
BEGIN
  PROMPT 1 8 ""    
  FIELD LF_PERC->TIPOA
  ITEM "F|Fisica"
  ITEM "G|Giuridica"
  KEY 1
END

NUMBER F_CODANAGR 5
BEGIN
  PROMPT 15 8 "" 
  USE LF_PERC KEY 1 SELECT ((CODDITTA==#F_CODDITTA)&&(TIPOA==#F_TIPOA))
  JOIN LF_ANAG TO LF_PERC KEY 1 INTO TIPOA=TIPOA CODANAGR=CODANAGR  
  INPUT CODDITTA F_CODDITTA
  INPUT TIPOA    F_TIPOA
  INPUT CODANAGR F_CODANAGR
  DISPLAY "Tipo "               TIPOA
  DISPLAY "Codice "             CODANAGR
  DISPLAY "Cognome - Nome o Ragione sociale@50"  LF_ANAG->RAGSOC
  OUTPUT F_TIPOA        TIPOA
  OUTPUT F_CODANAGR     CODANAGR
  OUTPUT F_RAGSOC       LF_ANAG->RAGSOC
  FIELD LF_PERC->CODANAGR
  CHECKTYPE REQUIRED
  KEY 1  
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 25 8 ""
  USE LF_ANAG KEY 2      
  INPUT TIPOA    F_TIPOA 
  INPUT RAGSOC F_RAGSOC
  DISPLAY "Cognome - Nome o Ragione sociale@50" RAGSOC
  DISPLAY "Tipo" TIPOA
  DISPLAY "Codice" CODANAGR
  OUTPUT F_RAGSOC RAGSOC
  OUTPUT F_CODANAGR CODANAGR
  OUTPUT F_TIPOA TIPOA
  ADD RUN BA4 -1
END            

CURRENCY F_FATTBIL 15
BEGIN
  PROMPT 1 14 "Fatture da ricevere "
  FIELD LF_PERC->FATTBIL
END

ENDPAGE

ENDMASK