PC Toledo

Ola caros colegas,.
Tenho um relatorio de contas a receber na qual eu gostaria de colocar um dado que não está relacionado com o bando de dados dbf.
Esses dados se refere ao filtro do relatorio, ou seja, ao digitar a data inicial e a data final, gostaria de colocá - los no relatório. Como eu faço isso ? De preferência, eu gostaria de colocar no cabeçalho. Para reforçar, essas estruturas que carregam os dados desse relatorio vem de outro prg que serve de base para todos os outros relatorios.
Eis a fonte abaixo...obrigado e ate mais..
Josmar

SELE 4
IF !USEREDE( "RECEBER", .F., 10 )
BEEP()
MENSAGEM( "O arquivo RECEBER n„o est dispon¡vel", 3 )
RETURN
ELSE
SET INDEX TO RECEB013,RECEB014,RECEB015,RECEB016,RECEB017,RECEB018,RECEB019,RECEB020
ENDIF

SELE RECEBER
SET ORDER TO 5
GOTO TOP
M->FILTRO_1 := CTOD( " / / " )
M->FILTRO_2 := CTOD( " / / " )
JANELA( 07, 19, 17, 63 )
@ 10, 23 CLEAR TO 14, 59
@ 11, 26 SAY "Digite a data inicial:" GET M->FILTRO_1
@ 13, 26 SAY "Digite a data final:" GET M->FILTRO_2
CURSOR( LIGA )
READ
CURSOR( DESLIGA )
IF LASTKEY() = T_ESC
RETURN
ENDIF

SET FILTER TO RECEBER->VENC_REC>=M->FILTRO_1 .AND. RECEBER->VENC_REC<=M->FILTRO_2 .AND. SALDO_REC<>0
IF !(RECEBER->VENC_REC>=M->FILTRO_1 .AND. RECEBER->VENC_REC<=M->FILTRO_2 .AND. SALDO_REC<>0)
SKIP
ENDIF

NUM_RELATORIO := 1

--> Cabeçalho
relatorio:ADDTITULO( " RELACAO DE CONTAS A RECEBER" )
relatorio:ADDTITULO( "" )



relatorio:LIN_SUPERIOR := 1
relatorio:LIN_INFERIOR := 61
relatorio:COL_INICIAL := 0
relatorio:ADD( "LANC:", RECEBER->LANC_REC, 1 )
relatorio:ADD( "COD:", RECEBER->COD_REC, 8 )
relatorio:ADD( "NOME:", RECEBER->NOM_REC, 14 )
relatorio:ADD( "VENC:", RECEBER->VENC_REC, 65 )
relatorio:ADD( "VALOR:", RECEBER->VALOR_REC, 76, "@Z 999,999,999.99" )
relatorio:ADD( "SALDO:", RECEBER->SALDO_REC, 91, "@Z 999,999,999.99" )
relatorio:ADDTOTAL( RECEBER->VALOR_REC, 60, "@Z 999,999,999.99" )
relatorio:ADDTOTAL( RECEBER->SALDO_REC, 85, "@Z 999,999,999.99" )
relatorio:RODA()
SELE RECEBER
SET FILTER TO

Amiguinho

Voce esta usando o objeto report do bom e velho MIRO3, mas o melhor gerador para estes relatórios é o da versão 2 que gera código mais explicito.

Para adicionar titulos a este objeto voce acrescenta no maximo duas linhas atraves do método ADDTITULO(), assim:

...
relatorio:TIPO := COLUNAR
relatorio:LIN_SUPERIOR := 1
relatorio:LIN_INFERIOR := 60
relatorio:COL_INICIAL := 3
relatorio:ADDTITULO( "PRIMEIRA LINHA DE TITULO DO RELATORIO" )
relatorio:ADDTITULO( "SEGUNDA LINHA DE TITULO DO RELATORIO" )
...

@braços :?)

Ola Rochinha...blz ?
Obrigado pela sua gentileza por me ajudar, mas o que eu estou querendo e colocar o conteúdo do filtro no relatório..por exemplo:
Eu digito a data inicial e a data final de uma filtragem qualquer...Tem como aparecer esses dados do get filtro no cabeçalho, ou seja, no
ADDTITULO ?
Um abraço !
Josmar

Amiguinho

Faça assim:

relatorio:ADDTITULO( "RELATORIO DE RECEBIMENTOS" )
relatorio:ADDTITULO( "DESDE "+DTOC(M->FILTRO_1)+" ATE "+DTOC(M->FILTRO_2) )
...

É isto que vc precisa?

@braços :?)

Ola rochinha,
Valeu pela dica, funcionou perfeitamente...ficou muito legal. Valew mesmo...Obrigado..
Um Abraço...Josmar