campo-sirio/ef/ef0600a.uml

// DEFINIZIONE MASCHERA PER LE STAMPE DI CONTROLLO DEGLI EFFETTI

#include "ef0600.h"

PAGE "Stampe di Controllo Effetti" -1 -1 58 15

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

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

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

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

DATA F_A_DATA
BEGIN         
  PROMPT 30 8 "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 7 "Stampa effetti per Banca di presentazione"
  GROUP 2
END
   
NUMBER F_DABAN 5
BEGIN        
  PROMPT 2 8 "Dalla Banca "
  FLAGS "RZ" 
  GROUP 2
  USE BNP
// 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 8 "Alla Banca "
  FLAGS "RZ"
  GROUP 2
  USE BNP
// 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 9 "Dalla Data  "
  GROUP 2
END

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

GROUPBOX DLG_NULL 55 7
BEGIN
  PROMPT 1 7 "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 8 "Dalla Distinta "
GROUP 3
END                   

LIST F_DATIPODIST 19
BEGIN       
  PROMPT 4 9 " "
  KEY 4
  GROUP 3
  ITEM " |Senza distinta"  MESSAGE CLEAR,F_DADIST|CLEAR,F_ADIST
  ITEM "I|All'incasso"     MESSAGE ENABLE,F_DADIST|ENABLE,F_ADIST
  ITEM "B|Salvo buon fine" MESSAGE ENABLE,F_DADIST|ENABLE,F_ADIST
  ITEM "S|Allo sconto"     MESSAGE ENABLE,F_DADIST|ENABLE,F_ADIST
END

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

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

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

TEXT DLG_NULL
BEGIN
 PROMPT 2 11 "Dalla Data  "
 GROUP 3
END

DATA F_DA_DATA3
BEGIN      
  PROMPT 4 12 " "
  GROUP 3
END

TEXT DLG_NULL
BEGIN
 PROMPT 30 11 "Alla Data  "
 GROUP 3
END

DATA F_A_DATA3
BEGIN         
  PROMPT 31 12 " "
  GROUP 3
  VALIDATE DATE_CMP_FUNC >= F_DA_DATA3
  WARNING "Data limite superiore  non valida"    
END

GROUPBOX DLG_NULL 55 5
BEGIN
  PROMPT 1 7 "Stampa effetti per Cliente/Fornitori"
  GROUP 4
END
   
LIST F_TIPOCF 11
BEGIN
  PROMPT 2 8 "Tipo        "
  ITEM "C|Clienti"
  ITEM "F|Fornitori"
  GROUP 4
END

NUMBER F_DACLI 6
BEGIN        
  PROMPT 2 9 "Da Codice   "
  GROUP 4    
  USE LF_CLIFO
  INPUT TIPOCF F_TIPOCF SELECT
  INPUT CODCF F_DACLI 
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione sociale@60" RAGSOC
  OUTPUT F_DACLI CODCF
  CHECKTYPE NORMAL
END     

NUMBER F_ACLI 6
BEGIN
  PROMPT 30 9 "A Codice   "
  GROUP 4                               
  COPY USE F_DACLI
  INPUT TIPOCF F_TIPOCF SELECT
  INPUT CODCF F_ACLI 
  COPY DISLAY F_DACLI
  DISPLAY "Codice" CODCF
  OUTPUT F_ACLI CODCF
  CHECKTYPE NORMAL
END

DATA F_DA_DATA4
BEGIN      
  PROMPT 2 10 "Dalla Data  "
  GROUP 4
END

DATA F_A_DATA4
BEGIN         
  PROMPT 30 10 "Alla Data  "
  GROUP 4                
  VALIDATE DATE_CMP_FUNC >= F_DA_DATA2
  WARNING "Data limite superiore  non valida"
END

BUTTON DLG_OK 10 2
BEGIN
  PROMPT -12 -1 ""
END

BUTTON DLG_QUIT 10 2
BEGIN
  PROMPT -22 -1 ""
END 

ENDPAGE
ENDMASK