// DEFINIZIONE MASCHERA PRINCIPALE PER LA GESTIONE DISTINTE
#include "ef0300.h"

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

PAGE "Distinta" 0 -1 0 19

GROUPBOX DLG_NULL 78 11
BEGIN
  PROMPT 1 0 ""
END

LIST F_TIPODIST 17
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 12
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] 
  OUTPUT F_DENBANP S0
  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]
  CHECKTYPE REQUIRED      
  VALIDATE REQIF_FUNC 1 F_CODCABP
  WARNING "Banca assente"
END

NUMBER F_TOTIMP 18 2
BEGIN         
  PROMPT 2 6 "Valore di presentazione "
  PICTURE "###.###.###.###,@@"
END

NUMBER F_IMP 18 2
BEGIN         
  PROMPT 2 7 "Importo Distinta        "
  PICTURE "###.###.###.###,@@"
  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. "
  PICTURE "###.###.###.###,@@@"
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

LIST F_TIPOPAG 24
BEGIN             
  PROMPT 2 9 "Tipo Effetto            "
  FIELD LF_EFFETTI->TIPOPAG
  ITEM "0|         "
  ITEM "2|Effetto cambiario"
  ITEM "3|Ricevuta Bancaria"
  ITEM "4|Cessione"
  ITEM "5|Effetto cambiario"
  ITEM "6|Lettera di credito"
  ITEM "7|Effetto cambiario"
  ITEM "8|Rapporti interb.diretti"
  ITEM "9|Bonifici"
END

SPREADSHEET F_SHEET_RIBA 78 6
BEGIN         
  PROMPT 1 12 "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"