#include "ef0300.h"

TOOLBAR "" 0 20 0 2
#include <toolbar.h>
ENDPAGE

PAGE "Gestione Distinte" 0 -1 0 19

GROUPBOX DLG_NULL 78 10
BEGIN
  PROMPT 1 0 ""
END

LIST F_TIPODIST 19
BEGIN       
  PROMPT 2 1 "Tipo Distinta           "  
  KEY 4
  FIELD LF_EFFETTI->TIPODIST
  ITEM "I|All'incasso"
  ITEM "B|Salvo buon fine"
  ITEM "S|Allo sconto"
END

LIST F_NUMBERRIGA 10 
BEGIN         
  PROMPT 1 60 "Numero Riga Distinta "
  KEY 4
  FIELD LF_EFFETTI->NRIGADIST           
  ITEM "1|PRIMA RIGA"  
  FLAGS "D"            
END

NUMBER F_NUMBER 7 
BEGIN         
  PROMPT 48 1 "Numero Distinta      "
  FIELD LF_EFFETTI->NDIST           
  FLAGS "R" 
  KEY 4
  USE LF_EFFETTI KEY 4 SELECT NRIGADIST = 1
  INPUT NDIST F_NUMBER   
  INPUT TIPODIST F_TIPODIST
  INPUT NRIGADIST F_NUMBERRIGA
  DISPLAY "Nr. distinta" NDIST
  DISPLAY "Tipo distinta" TIPODIST
  OUTPUT F_NUMBER NDIST
  OUTPUT F_TIPODIST TIPODIST 
  OUTPUT F_NUMBERRIGA NRIGADIST
  CHECKTYPE REQUIRED
END

DATE F_DATA 
BEGIN       
  PROMPT 2 2 "Data Distinta           "
  FIELD LF_EFFETTI->DATADIST
END

TEXT DLG_NULL
BEGIN        
  PROMPT 2 3 "Banca di Presentazione  "
END                     

STRING F_DENBANP 50 
BEGIN  
  PROMPT 26 3 ""
  FLAGS "U"
  USE %BAN KEY 2 
  INPUT S0 F_DENBANP     
  DISPLAY "Denominazione@50" S0
  DISPLAY "Codice ABI" CODTAB[1,5]
  DISPLAY "Codice CAB" CODTAB[6,10]
  OUTPUT F_DENBANP S0
  OUTPUT F_CODABIP CODTAB[1,5]
  OUTPUT F_CODCABP CODTAB[6,10]
END
  
NUMBER F_CODABIP 5 0
BEGIN         
  PROMPT 15 4 "Codice ABI " 
  FIELD LF_EFFETTI->CODABIP
  FLAGS "RZ"
  USE %BAN KEY 1 SELECT CODTAB ?= "?????" 
  INPUT CODTAB F_CODABIP
  DISPLAY "Codice ABI" CODTAB[1,5]
  DISPLAY "Denominazione@50" S0
  OUTPUT F_CODABIP CODTAB[1,5]
  OUTPUT F_CODCABP CODTAB[6,10] 
  CHECKTYPE REQUIRED
  WARNING "Codice ABI assente"
END

NUMBER F_CODCABP 5 0
BEGIN
  PROMPT 15 5 "Codice CAB " 
  FIELD LF_EFFETTI->CODCABP
  FLAGS "RZ"
  USE %BAN KEY 1 SELECT CODTAB ?= "??????????"  
  INPUT CODTAB[1,5] F_CODABIP 
  INPUT CODTAB[6,10] F_CODCABP  
  DISPLAY "Codice ABI" CODTAB[1,5]
  DISPLAY "Codice CAB" CODTAB[6,10]
  DISPLAY "Denominazione@50"  S0 
  OUTPUT F_CODABIP CODTAB[1,5]
  OUTPUT F_CODCABP CODTAB[6,10]
  OUTPUT F_DENBANP S0
  CHECKTYPE REQUIRED      
  VALIDATE REQIF_FUNC 1 F_CODCABP
  WARNING "Banca assente"
END

NUMBER F_TOTIMP 18 2
BEGIN         
  PROMPT 2 6 "Valore di presentazione "
END

NUMBER F_IMP 18 2
BEGIN         
  PROMPT 2 7 "Importo Distinta        "
  NUM_EXPR #F_IMP>=#F_TOTIMP
  WARNING "Il valore di presentazione non puo' superare l'importo della distinta"
END

NUMBER F_TOTIMPVAL 18 3
BEGIN        
  PROMPT 2 8 "Valore di pres. in val. "
END 

STRING F_CODVAL 3
BEGIN        
  PROMPT 48 8 "Codice Valuta            " 
  FLAGS "UZ"
  USE %VAL
  INPUT CODTAB F_CODVAL
  DISPLAY "Codice" CODTAB
  DISPLAY "Nome@50" S0
  OUTPUT F_CODVAL CODTAB
END

SPREADSHEET F_SHEET_RIBA 78 10
BEGIN         
  PROMPT 1 10 "RIGHE DISTINTA"
  ITEM ""
  ITEM "Nr. Ri.Ba."       
  ITEM "Scadenza"
  ITEM "Cliente@50" 
  ITEM "Nr. Fattura" 
  ITEM "Data Fattura"
  ITEM "Nr. Rata" 
  ITEM "Valuta"
  ITEM "Importo" 
  ITEM "Importo Val."
END

ENDPAGE
ENDMASK

#include "EF0300B.UML"