#include "ef0200.h"

TOOLBAR "" 0 0 0 2
#include <relapbar.h>
END{AGE

PAGE "Mandati" 0 2 0 0

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 1 1 "@bCliente"
END

NUMBER F_CODCF 6
BEGIN
  PROMPT 2 2 "Codice    "
  USE LF_CLIFO
  JOIN LF_CFVEN TO LF_CLIFO INTO CODCF=CODCF TIPOCF="C"
  JOIN LF_COMUNI TO LF_CLIFO INTO STATO=STATOCF COM=COMCF
  INPUT TIPOCF "C"
  INPUT CODCF F_CODCF
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Codice fiscale@16" COFI
  DISPLAY "Partita IVA@11" PAIV
  DISPLAY "Comune@50" LF_COMUNI->DENCOM
  OUTPUT F_CODCF CODCF
  OUTPUT F_RAGSOC RAGSOC
  OUTPUT F_INDIRIZZO INDCF
  OUTPUT F_CODABI CODABI
  OUTPUT F_CODCAB CODCAB
  OUTPUT F_ADDSPINC LF_CFVEN->ADDSPINC
  OUTPUT F_ADDBOLLIRB LF_CFVEN->ADDBOLLIRB
  OUTPUT F_ADDBOLLITR LF_CFVEN->ADDBOLLITR
  OUTPUT F_ADDBNS1500 LF_CFVEN->ADDBNS1500
  OUTPUT F_COMUNE LF_COMUNI->DENCOM
  OUTPUT F_PROV LF_COMUNI->PROVCOM
  HELP "Inserire il codice del cliente"
END

STRING F_RAGSOC 50
BEGIN
  PROMPT 22 2 ""
  USE LF_CLIFO KEY 2
  JOIN LF_CFVEN TO LF_CLIFO KEY 1 INTO CODCF=CODCF TIPOCF="C"
  JOIN LF_COMUNI TO LF_CLIFO KEY 1 INTO STATO=STATOCF COM=COMCF
  INPUT TIPOCF "C"
  INPUT RAGSOC F_RAGSOC
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Codice" CODCF
  DISPLAY "Codice fiscale@16" COFI
  DISPLAY "Partita IVA@11" PAIV
  COPY OUTPUT F_CODCF
END

STRING F_INDIRIZZO 35
BEGIN
  PROMPT 2 3 "Indirizzo "
  FLAGS "D"
END

STRING F_COMUNE 50
BEGIN
  PROMPT 2 4 "Comune    "
  FLAGS "D"
END

STRING F_PROV 2
BEGIN
  PROMPT 70 4 ""
  FLAGS "D"
END

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 1 6 "@bMandato"
END

STRING F_MANDATO 35
BEGIN
  STRING 2 7 "Codice      " 
  USE &EFMAN SELECT (#F_CLIFO=0)||(#F_CLIFO=I0)
  JOIN LF_CLIFO INTO TIPOCF="C" CODCF=I0
  INPUT CODTAB F_MANDATO
  DISPLAY "Codice@35" CODTAB
  DISPLAY "Descrizione@50" S0
  DISPLAY "Cliente" I0
  DISPLAY "Ragione Sociale@50" LF_CLIFO->RAGSOC
  OUTPUT F_MANDATO CODTAB 
  CHECKTYPE REQUIRED
  FIELD CODTAB
  KEY 1
END

STRING F_DESCR 50
BEGIN
  STRING 2 8 "Descrizione "
  USE &EFMAN KEY 2 SELECT (#F_CLIFO=0)||(#F_CLIFO=I0)
  JOIN LF_CLIFO INTO TIPOCF="C" CODCF=I0
  INPUT CODTAB F_MANDATO
  DISPLAY "Descrizione@50" S0
  DISPLAY "Codice@35" CODTAB
  DISPLAY "Cliente" I0
  DISPLAY "Ragione Sociale@50" LF_CLIFO->RAGSOC
  COPY OUTPUT F_MANDATO
  CHECKTYPE REQUIRED
  FIELD S0
  KEY 2
END

ENDPAGE

ENDMASK