#include "ef1100a.h"

TOOLBAR "topbar" 0 0 0 2
#include <elabar.h>
ENDPAGE

PAGE "Emissione Bonifici e RID SEPA" 0 2 0 0

GROUPBOX DLG_NULL 78 5
BEGIN
  PROMPT 1 0 "@bSelezione"
END

LIST F_TIPOCF 1 10
BEGIN
  PROMPT 2 1 "Effetti "
  ITEM "F|Passivi"
    MESSAGE "9",F_TIPO
  ITEM "C|Attivi"
    MESSAGE "8",F_TIPO
END

LIST F_TIPO 1 10
BEGIN
  PROMPT 25 1 "Tipo "
  ITEM "9|Bonifici"
  ITEM "8|R.I.D."
  FLAGS "D"
END

DATE F_DATA
BEGIN
  PROMPT 60 1 "Dal "
END

NUMBER F_ABI 5
BEGIN
  PROMPT 2 2 "Banca "
  FLAGS "UZ"
END

NUMBER F_CAB 5
BEGIN
  PROMPT 15 2 ""
END

STRING F_PRO 2
BEGIN
  PROMPT 22 2 ""
  FLAGS "UZ"
  USE BNP
  JOIN %BAN INTO CODTAB==CODTAB[1,5]
  INPUT CODTAB[1,5] F_ABI
  INPUT CODTAB[6,10] F_CAB
  INPUT CODTAB[6,12] F_PRO
  DISPLAY "ABI@5" CODTAB[1,5]
  DISPLAY "CAB@5" CODTAB[6,10]
  DISPLAY "Prg." CODTAB[11,12]
  DISPLAY "Denominazione\nBanca di presentazione@50" 4->S0
  DISPLAY "SEPA\nDett.@4C" B3
  OUTPUT F_ABI CODTAB[1,5]
  OUTPUT F_CAB CODTAB[6,10]
  OUTPUT F_PRO CODTAB[11,12]
  OUTPUT F_BANCA 4->S0
  CHECTYPE NORMAL
END

STRING F_BANCA 50 47
BEGIN
  PROMPT 28 2 ""
  USE BNP
  BY 4->S0|CODTAB
  JOIN %BAN INTO CODTAB==CODTAB
  INPUT S0 F_BANCA
  COPY DISPLAY F_PRO
  COPY OUTPUT F_PRO
  CHECTYPE NORMAL
END

BOOLEAN F_SHOWALL
BEGIN
  PROMPT 2 3 "Mostra anche le distinte già elaborate"
END

BOOLEAN F_APOS
BEGIN
  PROMPT 45 3 "Controlla caratteri speciali SEPA"
END

SPREADSHEET F_SHEET 0 -1
BEGIN
  PROMPT 1 5 ""
  ITEM "@1"
  ITEM "Tipo"
  ITEM "Distinta@R"
  ITEM "Data@10"
  ITEM "Importo@12R"
  ITEM "ABI@5"
  ITEM "CAB@5"
  ITEM "Prg."
  ITEM "Banca di presentazione@50"
  ITEM "Contab.@5C"
  ITEM "XML@5C"
END

ENDPAGE

ENDMASK

PAGE "Distinta" -1 -1 37 7

BOOLEAN S_SELECT
BEGIN
  PROMPT 1 1 "Selezione"
END

STRING S_TIPO 1
BEGIN
  PROMPT 1 2 "Tipo "
  FIELD TIPODIST
  FLAGS "D"
END

NUMBER S_NUMERO 6
BEGIN
  PROMPT 21 2 "Distinta "
  FLAGS "U"
  FIELD NDIST
  FLAGS "D"
END

DATE S_DATA
BEGIN
  PROMPT 1 3 "Data    "
  FIELD DATADIST
  FLAGS "D"
END

CURRENCY S_IMPORTO 12
BEGIN
  PROMPT 21 3 "Importo "
  FLAGS "D"
END

NUMBER S_ABI 5
BEGIN
  PROMPT 1 4 "ABI     "
  FLAGS "DUZ"
  FIELD CODABIP
END

NUMBER S_CAB 5
BEGIN
  PROMPT 21 4 "CAB     "
  FLAGS "DUZ"
  FIELD CODCABP
END

STRING S_PRO 2
BEGIN
  PROMPT 40 4 "Progr. "
  FLAGS "DU"
  FIELD PROGBNP
END

STRING S_BANCA 50
BEGIN
  PROMPT 1 5 "Banca   "
  FLAGS "D"
END

BOOLEAN S_EFFCONT
BEGIN
  PROMPT 1 6 "Contabilizzato"
  FLAGS "D"
END

BOOLEAN S_EFFCOMP
BEGIN
  PROMPT 40 6 "Generato XML SEPA"
  FLAGS "D"
END

ENDPAGE

TOOLBAR "Topbar" 0 0 0 2

BUTTON DLG_OK 2 2
BEGIN
  PROMPT 1 1 ""
END

BUTTON DLG_CANCEL 2 2
BEGIN
  PROMPT 2 1 ""
END

ENDPAGE

ENDMASK