#include "eftbman.h"

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

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
  INPUT TIPOCF "C"
  INPUT CODCF F_CODCF
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione Sociale@50" RAGSOC
  DISPLAY "Partita IVA@12" PAIV
  DISPLAY "Codice fiscale@16" COFI
  OUTPUT F_CODCF CODCF
  OUTPUT F_RAGSOC RAGSOC
  OUTPUT F_COFI COFI
  OUTPUT F_PIVA PAIV
  CHEKCTYPE REQUIRED
  HELP "Inserire il codice del cliente"
  FIELD I0
  ADD RUN cg0 -1 C
END

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

STRING F_PIVA 12
BEGIN
  PROMPT 2 3 "Partita IVA     "
  FLAGS "D"
END

STRING F_COFI 16
BEGIN
  PROMPT 2 4 "Codice Fiscale  "
  FLAGS "D"
END

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

STRING F_MANDATO 35
BEGIN
  PROMPT 2 7 "Codice      " 
  USE &EFMAN SELECT STR((#F_CODCF=0)||(#F_CODCF=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 
  OUTPUT F_DESCR S0
  OUTPUT F_CODCF I0
  CHECKTYPE REQUIRED
  FIELD CODTAB
  KEY 1
END

STRING F_DESCR 50
BEGIN
  PROMPT 2 8 "Descrizione "
  USE &EFMAN KEY 2 SELECT STR((#F_CODCF=0)||(#F_CODCF=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

DATE F_DATA 
BEGIN
  PROMPT 2 9 "Data        "
  FIELD D0
  CHECKTYPE REQUIRED
END

LISTBOX F_SEQUENZA 4 20
BEGIN
  PROMPT 34 9 "Sequenza "
  ITEM "RCUR|RCUR - Ricorrente"
  ITEM "FRST|FRST - Primo "
  ITEM "LAST|LAST - Ultimo"
  ITEM "OOFF|OOFF - Singolo"
  FIELD S6
END

NUMBER F_ABI 5
BEGIN        
  PROMPT 2 10 "Banca d'appoggio "
  FLAGS "Z"
  FIELD S4[1,5]
  CHECKTYPE REQUIRED
END     

NUMBER F_CAB 5
BEGIN        
  PROMPT 28 10 ""
  FLAGS "Z"
  USE LF_CFBAN
  INPUT TIPOCF  "C"
  INPUT CODCF   F_CODCF SELECT
  INPUT TIPOBAN "V"
  DISPLAY "ABI@5" ABI
  DISPLAY "CAB@5" CAB
  DISPLAY "IBAN@50" IBAN
  OUTPUT F_ABI  ABI
  OUTPUT F_CAB  CAB
  OUTPUT F_IBAN IBAN
  CHECKTYPE SEARCH
  FIELD S4[6,10]
END

STRING F_IBAN 34
BEGIN
  PROMPT 38 10 "IBAN "
  FLAGS "D"
  FIELD S1
END


ENDPAGE

ENDMASK