campo-sirio/src/ef/ef0600a.uml

// DEFINIZIONE MASCHERA PER LE STAMPE DI CONTROLLO DEGLI EFFETTI
#include "ef0600.h"

TOOLBAR "topbar" 0 0 0 2
#include <stdbar.h>
ENDPAGE

PAGE "Stampe di Controllo Effetti" 0 2 0 0

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

BOOL F_BANCA_APP
BEGIN
  PROMPT 50 3 "Stampa banca appoggio"
END

TEXT DLG_NULL
BEGIN
  PROMPT 52 4 "(richieste 198 colonne)"
END


RADIOBUTTON RDB_TIPOST 32
BEGIN        
  PROMPT 1 0 "Stampa per "
  ITEM "1|Banca di appoggio"
  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@  
  ITEM "5|Banca di presentazione"
  MESSAGE SHOW,2@|HIDE,1@|HIDE,3@|HIDE,4@
END                         

//---------data----------------------------------------------------------------------------------------------------------//
GROUPBOX DLG_NULL 75 4
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

LIST F_TIPOCF 11
BEGIN
  PROMPT 2 9 "Tipo effetti "
  ITEM "C|Attivi"
  ITEM "F|Passivi"
  GROUP 1
END

//---------banca----------------------------------------------------------------------------------------------------------//
GROUPBOX DLG_NULL 75 6
BEGIN
  PROMPT 1 7 "Stampa effetti per Banca"
  GROUP 2
END
   
NUMBER F_DABAN 5
BEGIN        
  PROMPT 2 8 "Dalla Banca "
  FLAGS "Z"
  GROUP 2
  USE %BAN KEY 1 SELECT CODTAB?="?????"
  INPUT CODTAB F_DABAN
  DISPLAY "ABI@5" CODTAB[1,5]
  DISPLAY "Denominazione@50" S0
  OUTPUT F_DABAN CODTAB[1,5]
  OUTPUT F_DABAN_DESCR S0
  CHECKTYPE SEARCH
END     

STRING F_DABAN_DESCR 50
BEGIN
  PROMPT 23 8 ""
  GROUP 2
  USE %BAN KEY 2 SELECT CODTAB?="?????"
  INPUT S0 F_DABAN_DESCR
  DISPLAY "Denominazione@50" S0
  DISPLAY "ABI@5" CODTAB[1,5]
  COPY OUTPUT F_DABAN
  CHECKTYPE SEARCH
END

NUMBER F_ABAN 5
BEGIN
  PROMPT 2 9 "Alla Banca  "
  FLAGS "Z"
  GROUP 2
  USE %BAN KEY 1 SELECT CODTAB?="?????"
  INPUT CODTAB F_ABAN
  DISPLAY "ABI@5" CODTAB[1,5]
  DISPLAY "Denominazione@50" S0
  OUTPUT F_ABAN CODTAB[1,5]
  OUTPUT F_ABAN_DESCR S0
  CHECKTYPE SEARCH
END

STRING F_ABAN_DESCR 50
BEGIN
  PROMPT 23 9 ""
  GROUP 2
  USE %BAN KEY 2 SELECT CODTAB?="?????"
  INPUT S0 F_ABAN_DESCR
  DISPLAY "Denominazione@50" S0
  DISPLAY "ABI@5" CODTAB[1,5]
  COPY OUTPUT F_ABAN
  CHECKTYPE SEARCH
END

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

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

LIST F_TIPOCF2 11
BEGIN
  PROMPT 2 11 "Tipo effetti "
  ITEM "C|Attivi"
  ITEM "F|Passivi"
  GROUP 2
END

//---------distinta-------------------------------------------------------------------------------------------------------//
GROUPBOX DLG_NULL 75 6
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

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

LIST F_TIPOORD 20
BEGIN
   PROMPT 40 8 "Ordinamento "
   ITEM "D|Data scadenza"
   MESSAGE ENABLE,F_DA_DATA3|ENABLE,F_A_DATA3
   ITEM "N|Numero fattura"
   //MESSAGE RESET,F_DA_DATA3|RESET,F_A_DATA3|DISABLE,F_DA_DATA3|DISABLE,F_A_DATA3
   ITEM "C|Cliente/Fornitore"
   //MESSAGE RESET,F_DA_DATA3|RESET,F_A_DATA3|DISABLE,F_DA_DATA3|DISABLE,F_A_DATA3
   GROUP 3
END

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

NUMBER F_DADIST 5 
BEGIN            
  PROMPT 18 9 " "          
  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
  DISPLAY "C/F" TIPOCF
  OUTPUT F_DADIST NDIST
  CHECKTYPE NORMAL    
END     

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

NUMBER F_ADIST 5 
BEGIN            
  PROMPT 44 9 " "
  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
  DISPLAY "C/F" TIPOCF
  OUTPUT F_ADIST NDIST
  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

LIST F_TIPOCF3 11
BEGIN
  PROMPT 2 11 "Tipo effetti "
  ITEM "C|Attivi"
  ITEM "F|Passivi"
  GROUP 3
END

//---------clifo----------------------------------------------------------------------------------------------------------//
GROUPBOX DLG_NULL 75 7 
BEGIN
  PROMPT 1 7 "Stampa effetti per Cliente/Fornitori"
  GROUP 4
END
   
LIST F_TIPOCF4 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_TIPOCF4 SELECT
  INPUT CODCF F_DACLI 
  DISPLAY "Codice" CODCF
  DISPLAY "Ragione sociale@60" RAGSOC
  OUTPUT F_DACLI CODCF
  OUTPUT F_DACLI_DESCR RAGSOC
  CHECKTYPE SEARCH
END     

STRING F_DACLI_DESCR 50
BEGIN
  PROMPT 21 9 " "
  GROUP 4
  USE LF_CLIFO KEY 2
  INPUT TIPOCF F_TIPOCF4 SELECT
  INPUT RAGSOC F_DACLI_DESCR
  DISPLAY "Ragione sociale@60" RAGSOC
  DISPLAY "Codice" CODCF
  OUTPUT F_DACLI_DESCR RAGSOC
  OUTPUT F_DACLI CODCF
  CHECKTYPE SEARCH
END

NUMBER F_ACLI 6
BEGIN
  PROMPT 2 10 "A Codice  "
  GROUP 4                               
  COPY USE F_DACLI
  INPUT TIPOCF F_TIPOCF4 SELECT
  INPUT CODCF F_ACLI 
  COPY DISLAY F_DACLI
  OUTPUT F_ACLI CODCF
  OUTPUT F_ACLI_DESCR RAGSOC
  CHECKTYPE SEARCH
END

STRING F_ACLI_DESCR 50
BEGIN
  PROMPT 21 10 " "
  GROUP 4
  COPY USE F_DACLI_DESCR
  INPUT TIPOCF F_TIPOCF4 SELECT
  INPUT RAGSOC F_ACLI_DESCR
  COPY DISPLAY F_DACLI_DESCR
  OUTPUT F_ACLI_DESCR RAGSOC
  OUTPUT F_ACLI CODCF
  CHECKTYPE SEARCH
END

DATA F_DA_DATA4
BEGIN      
  PROMPT 2 11 "Da Data scad."
  GROUP 4
END

DATA F_A_DATA4
BEGIN         
  PROMPT 30 11 "A Data scad."
  GROUP 4                
  VALIDATE DATE_CMP_FUNC >= F_DA_DATA4
  WARNING "Data limite superiore  non valida"
END

DATA F_DA_DATA4F
BEGIN      
  PROMPT 2 12 "Da Data fatt."
  GROUP 4
END

DATA F_A_DATA4F
BEGIN         
  PROMPT 30 12 "A Data fatt."
  GROUP 4                
  VALIDATE DATE_CMP_FUNC >= F_DA_DATA4F
  WARNING "Data limite superiore  non valida"
END

ENDPAGE
ENDMASK