campo-sirio/ef/ef0600a.uml

#include "ef0600.h"

PAGE "Stampe di Controllo Effetti" -1 -1 60 13

DATE F_DATA_STAMPA
BEGIN
  PROMPT 30 1 "Data di stampa "  
  FLAGS "A"
END

RADIOBUTTON RDB_TIPOST 24
BEGIN        
  PROMPT 2 1 "Stampa per "
  ITEM "1|Scadenza"
  MESSAGE SHOW,1@|HIDE,2@|HIDE,3@
  ITEM "2|Banca"
  MESSAGE SHOW,2@|HIDE,1@|HIDE,3@
  ITEM "3|Distinta"
  MESSAGE SHOW,3@|HIDE,1@|HIDE,2@
END                         

GROUPBOX DLG_NULL 55 3
BEGIN
  PROMPT 1 6 "Stampa effetti per Data di scadenza"
  GROUP 1
END 

DATA F_DA_DATA
BEGIN      
  PROMPT 2 7 "Dalla Data  "   
  GROUP 1 
END

DATA F_A_DATA
BEGIN         
  PROMPT 30 7 "Alla Data  "
  GROUP 1                                          
  VALIDATE DATE_CMP_FUNC >= F_DA_DATA
  WARNING "Data limite superiore  non valida"
END

GROUPBOX DLG_NULL 55 4
BEGIN
  PROMPT 1 6 "Stampa effetti per Banca di presentazione"
  GROUP 2
END
   
NUMBER F_DABAN 5
BEGIN        
  PROMPT 2  7 "Dalla Banca "
  FLAGS "RZ" 
  GROUP 2
  USE %BAN KEY 1 SELECT CODTAB ?= "?????" 
  INPUT CODTAB F_DABAN
  DISPLAY "Codice ABI" CODTAB[1,5]
  DISPLAY "Denominazione@50" S0
  OUTPUT F_DABAN CODTAB[1,5]
  CHECKTYPE NORMAL
END     

NUMBER F_ABAN 5
BEGIN
  PROMPT 30 7 "Alla Banca "
  FLAGS "RZ"
  GROUP 2
  USE %BAN KEY 1 SELECT CODTAB ?= "?????" 
  INPUT CODTAB F_ABAN
  DISPLAY "Codice ABI" CODTAB[1,5]
  DISPLAY "Denominazione@50" S0
  OUTPUT F_ABAN CODTAB[1,5]  
  CHECKTYPE NORMAL
END

DATA F_DA_DATA2
BEGIN      
  PROMPT 2 8 "Dalla Data  "
  GROUP 2
END

DATA F_A_DATA2
BEGIN         
  PROMPT 30 8 "Alla Data  "
  GROUP 2                
  VALIDATE DATE_CMP_FUNC >= F_DA_DATA2
  WARNING "Data limite superiore  non valida"
END

GROUPBOX DLG_NULL 55 6
BEGIN
  PROMPT 1 6 "Stampa effetti per Distinta"
  GROUP 3
END 

LIST F_NUMBERRIGA 10 
BEGIN         
  PROMPT 1 60 "Numero Riga Distinta "
  KEY 4     
  GROUP 3
  ITEM "1|PRIMA RIGA"  
  FLAGS "D"            
END

TEXT DLG_NULL
BEGIN
PROMPT 2 7 "Dalla Distinta "
GROUP 3
END                   

LIST F_DATIPODIST 19
BEGIN       
  PROMPT 4 8 " "
  KEY 4
  GROUP 3
  ITEM " |** Nessuno **"
  ITEM "I|All'incasso"
  ITEM "B|Salvo buon fine"
  ITEM "S|Allo sconto"
END

NUMBER F_DADIST 7 
BEGIN            
  PROMPT 4 9 " "          
  FLAGS "R"   
  GROUP 3
  KEY 4
  USE LF_EFFETTI KEY 4 SELECT NRIGADIST = 1
  INPUT NDIST F_DADIST   
  INPUT TIPODIST F_DATIPODIST
  INPUT NRIGADIST F_NUMBERRIGA
  DISPLAY "Nr. distinta" NDIST
  DISPLAY "Tipo distinta" TIPODIST
  OUTPUT F_DADIST NDIST
  OUTPUT F_DATIPODIST TIPODIST 
  OUTPUT F_NUMBERRIGA NRIGADIST
  CHECKTYPE NORMAL    
END     

TEXT DLG_NULL
BEGIN
 PROMPT 30 7 "Alla Distinta "
 GROUP 3
END                   

LIST F_ATIPODIST 19
BEGIN       
  PROMPT 31 8 " "
  GROUP 3
  KEY 4                                         
  ITEM " |** Nessuno **"
  ITEM "I|All'incasso"
  ITEM "B|Salvo buon fine"
  ITEM "S|Allo sconto"
END

NUMBER F_ADIST 7 
BEGIN            
  PROMPT 31 9 " "
  FLAGS "R"
  KEY 4
  GROUP 3
  USE LF_EFFETTI KEY 4 SELECT NRIGADIST = 1
  INPUT NDIST F_ADIST   
  INPUT TIPODIST F_ATIPODIST
  INPUT NRIGADIST F_NUMBERRIGA
  DISPLAY "Nr. distinta" NDIST
  DISPLAY "Tipo distinta" TIPODIST
  OUTPUT F_ADIST NDIST
  OUTPUT F_ATIPODIST TIPODIST 
  OUTPUT F_NUMBERRIGA NRIGADIST    
  CHECKTYPE NORMAL
  //NUM_EXPR  {#THIS_FIELD>=#F_DADIST}
  //WARNING "Limite superiore  non valido"
END 

DATA F_DA_DATA3
BEGIN      
  PROMPT 2 10 "Dalla Data  "
  GROUP 3
END

DATA F_A_DATA3
BEGIN         
  PROMPT 30 10 "Alla Data  "
  GROUP 3
  VALIDATE DATE_CMP_FUNC >= F_DA_DATA3
  WARNING "Data limite superiore  non valida"    
END

BUTTON DLG_OK 9 2
BEGIN
  PROMPT -13 -1 ""
END

BUTTON DLG_CANCEL 9 2
BEGIN
  PROMPT -23 -1 ""
END

BUTTON DLG_QUIT 9 2
BEGIN
  PROMPT -33 -1 ""
END 

ENDPAGE
ENDMASK