campo-sirio/ef/ef0600a.uml

// DEFINIZIONE MASCHERA PER LE STAMPE DI CONTROLLO DEGLI EFFETTI

#include "ef0600.h"

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

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 25
BEGIN        
  PROMPT 1 1 "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                         

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

//---------banca----------------------------------------------------------------------------------------------------------//
GROUPBOX DLG_NULL 75 6
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 ?= "??????????"
  JOIN %BAN ALIAS 100 INTO CODTAB==CODTAB
  INPUT CODTAB F_DABAN
  DISPLAY "ABI@5" CODTAB[1,5]
  DISPLAY "CAB@5" CODTAB[6,10]
  DISPLAY "Denominazione@50" 100@->S0
  OUTPUT F_DABAN CODTAB[1,5]
  OUTPUT F_DABAN_DESCR %BAN->S0
  CHECKTYPE SEARCH
END     

STRING F_DABAN_DESCR 50
BEGIN
  PROMPT 23 8 ""
  GROUP 2
  USE %BAN KEY 2 SELECT (CODTAB?="??????????")&&(200@->CODTAB!="")
  JOIN BNP ALIAS 200 INTO CODTAB==CODTAB
  INPUT S0 F_DABAN_DESCR
  DISPLAY "Denominazione@50" S0
  DISPLAY "ABI@5" CODTAB[1,5]
  DISPLAY "CAB@5" CODTAB[6,10]
  COPY OUTPUT F_DABAN
  CHECKTYPE SEARCH
END

NUMBER F_ABAN 5
BEGIN
  PROMPT 2 9 "Alla Banca  "
  FLAGS "RZ"
  GROUP 2
  USE BNP KEY 1 SELECT CODTAB ?= "??????????"
  JOIN %BAN ALIAS 100 INTO CODTAB==CODTAB
  INPUT CODTAB F_ABAN
  DISPLAY "ABI@5" CODTAB[1,5]
  DISPLAY "CAB@5" CODTAB[6,10]
  DISPLAY "Denominazione@50" 100@->S0
  OUTPUT F_ABAN CODTAB[1,5]
  OUTPUT F_ABAN_DESCR %BAN->S0
  CHECKTYPE SEARCH
END

STRING F_ABAN_DESCR 50
BEGIN
  PROMPT 23 9 ""
  GROUP 2
  USE %BAN KEY 2 SELECT (CODTAB?="??????????")&&(200@->CODTAB!="")
  JOIN BNP ALIAS 200 INTO CODTAB==CODTAB
  INPUT S0 F_ABAN_DESCR
  DISPLAY "Denominazione@50" S0
  DISPLAY "ABI@5" CODTAB[1,5]
  DISPLAY "CAB@5" CODTAB[6,10]
  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

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

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
  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
  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 10 "Dalla Data  "
 GROUP 3
END

DATA F_DA_DATA3
BEGIN      
  PROMPT 15 10 " "
  GROUP 3
END

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

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

//---------clifo----------------------------------------------------------------------------------------------------------//
GROUPBOX DLG_NULL 75 6
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
  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_TIPOCF 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_TIPOCF 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_TIPOCF 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 "Dalla Data  "
  GROUP 4
END

DATA F_A_DATA4
BEGIN         
  PROMPT 30 11 "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