#include "ef0200.h"

PAGE "Selezione dati" -1 -1 78 19

GROUPBOX DLG_NULL 76 5
BEGIN
  PROMPT 1 0 "Dati clienti"
END

NUMBER F_CODCF 6
BEGIN
  PROMPT 2 1 "Cliente   "
  USE LF_CLIFO KEY 1
  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 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 1 ""
  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 2 "Indirizzo "
  FLAGS "D"
END

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

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

NUMBER F_CODABI 5
BEGIN
  PROMPT 2 5 "Banca d'appoggio    "
  FLAGS "RZ"
  USE %BAN KEY 1 SELECT CODTAB ?="?????"
  INPUT CODTAB F_CODABI
  DISPLAY "Codice ABI" CODTAB[1,5]
  DISPLAY "Codice CAB" CODTAB[6,10]
  DISPLAY "Denominazione@50" S0
  OUTPUT F_CODABI CODTAB[1,5]
  OUTPUT F_CODCAB CODTAB[6,10]
  CHECKTYPE NORMAL
  HELP "Inserire il codice della banca d'appoggio"
END

NUMBER F_CODCAB 5
BEGIN
  PROMPT 32 5 ""
  FLAGS "RZ"
  USE %BAN
  INPUT CODTAB[1,5] F_CODABI
  INPUT CODTAB[6,10] F_CODCAB
  COPY DISPLAY F_CODABI
  COPY OUTPUT F_CODABI
  CHECKTYPE NORMAL
END

LIST F_TIPOEFF 18
BEGIN
  PROMPT 43 5 "Tipo effetto  "
  ITEM "2|Tratta"
  ITEM "3|Ricevuta bancaria"
  HELP "Inserire il tipo dell'effetto"
END

GROUPBOX DLG_NULL 35 4
BEGIN
  PROMPT 1 6 "Addebiti"
END

BOOLEAN F_ADDSPINC
BEGIN
  PROMPT 2 7 "Sp. incasso"
  HELP "Flag di addebito delle spese d'incasso"
END

BOOLEAN F_ADDBOLLIRB
BEGIN
  PROMPT 19 7 "Bolli R.B."
  HELP "Flag di addebito bolli delle R.B. "
END

BOOLEAN F_ADDBOLLITR
BEGIN
  PROMPT 2 8 "Bolli Tr."
  HELP "Flag di addebito bolli delle tratte"
END

BOOLEAN F_ADDBNS1500
BEGIN
  PROMPT 19 8 "Bollo esente"
  HELP "Flag di addebito dei bolli"
END

BUTTON DLG_PARTITE 9 2
BEGIN
  PROMPT 39 8 "~Partite"
  MESSAGE EXIT,K_F6
END

BUTTON DLG_OK 9 2
BEGIN
  PROMPT 52 8 ""
END

BUTTON DLG_QUIT 9 2
BEGIN
  PROMPT 65 8 ""
END

CURRENCY F_RESIDUO 15
BEGIN
  PROMPT 2 10 "Residuo da ripartire   "
  FLAGS "RD"
END

SPREADSHEET F_SHEET_EFF 74
BEGIN
  PROMPT 2 12 "Immissione effetti"
  ITEM "Data scad."
  ITEM "Importo rata@15 R"
  ITEM "Spese incasso@15 R"
  ITEM "Importo bolli@15 R"
  ITEM "Importo effetto@15 R"
END

ENDPAGE
ENDMASK

#include "ef0200b.uml"