campo-sirio/ef/ef0300a.uml

#include "ef0300.h"

TOOLBAR "" 0 20 0 2

#include <toolbar.h>

ENDPAGE

PAGE "Gestione Distinte" 0 -1 0 19

GROUPBOX DLG_NULL 78 9
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 TIPODIST F_TIPODIST
  INPUT NDIST F_NUMBER                     
  INPUT NRIGADIST F_NUMBERRIGA
  DISPLAY "Tipo distinta" TIPODIST
  DISPLAY "Nr. distinta" NDIST
  //DISPLAY "Nr. riga distinta" NRIGADIST
  OUTPUT F_TIPODIST TIPODIST 
  OUTPUT F_NUMBER NDIST       
  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 25 3 ""
  FLAGS "U"
  USE %BAN KEY 2 
  INPUT S0 F_DENBANP
  DISPLAY "Codice ABI" CODTAB[1,5]
  DISPLAY "Denominazione@50" S0
  OUTPUT F_DENBANP S0
  OUTPUT F_CODABIP CODTAB[1,5]
  OUTPUT F_CODCABP CODTAB[6,10]
END  

NUMBER F_CODABIP 5 0
BEGIN         
  PROMPT 14 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 NORMAL
  WARNING "Codice ABI assente"
END

NUMBER F_CODCABP 5 0
BEGIN
  PROMPT 14 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 NORMAL       
  VALIDATE REQIF_FUNC 1 F_CODCABP
  WARNING "Banca assente"
END

NUMBER F_TOTIMP 18 2
BEGIN         
  PROMPT 2 6 "Valore Distinta        "
END

NUMBER F_TOTIMPVAL 18 3
BEGIN         
  PROMPT 2 7 "Valore Distinta Val.   "
END 

STTING F_CODVAL 8
BEGIN        
  PROMPT 48 7 "Codice Valuta       "
END

SPREADSHEET F_SHEET_RIBA 78 8
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

BUTTON B_AGGIUNGI 10 2
BEGIN          
  PROMPT -12 -2 "~AGGIUNGI"   
  PICTURE BMP_NEWREC
  PICTURE BMP_NEWRECDN   
END

BUTTON B_ELIMINA 10 2
BEGIN          
  PROMPT -22 -2 "~ELIMINA"
  PICTURE BMP_DELREC
  PICTURE BMP_DELRECDN
END

ENDPAGE
ENDMASK

#include "EF0300B.UML"