Fortes Report

[Rodrigao]

Bom dia a todos.

Estou com o seguinte problema.

Tenho a tabela CaixaAux e Caixa.

No RLReport Conecto o DataSource DSCaixaAux.

coloquei 5 rlSubdetails onde via sql separo o que é receita, despesa, cheque etc.

em uma rlsubdetail uso a qry ibreceitas e ligo a datasource dsreceitas, para resumir vou indentificar somente esta.

coloco um rlband como rbdetail e coloco os rldbtext ligados ao ibreceitas. beleza.

Quando rodo o sistema, faço uma venda a vista por exemplo. entra no caixa como receita. imprimo o relatorio e esta receita não aparece na banda. Dae

reinicio o sistema, abro caixa imprimo o relatorio e dae aparece. E isso acontece com os outros rlsubdetails tb.

já tentei mudar tudo quanto é opção e o problema persiste. se puderem ajudar...

Atenciosamente,

Rodrigo

[Jhonas]

Fortes Report, Só aparece as bandas depois de reiniciar o sistema

Voce mesmo deu a resposta ..... quando voce reinicia o sistema, o que acontece com as suas tabelas ? elas se fecham e depois abrem para usar os registros.

verifique abertura e fechamento das tabelas

abraço

[Rodrigao]

Fortes Report, Só aparece as bandas depois de reiniciar o sistema

Voce mesmo deu a resposta ..... quando voce reinicia o sistema, o que acontece com as suas tabelas ? elas se fecham e depois abrem para usar os registros.

verifique abertura e fechamento das tabelas

abraço

Bom dia Jonas, Obrigado pela Resposta...

Mas faço Assim...

//Aqui abro todas as tabelas antes de abrir o relatorio

IBReceitas.Close;

IBReceitas.SQL.Clear;

IBReceitas.SQL.Add('SELECT * FROM RECEITASCAIXA(:DI, :CAIXA)');

IBReceitas.ParamByName('DI').AsDate:= DMX.IBCaixaAuxData.Value;

IBReceitas.ParamByName('CAIXA').AsString:= Caixa.Caption;

IBReceitas.Open;

IBRetirada.Close;

IBRetirada.ParamByName('DI').AsDate:= DMX.IBCaixaAuxData.Value;

IBRetirada.ParamByName('CAIXA').AsString:= '0';

IBRetirada.Open;

IBEmprestimo.Close;

IBEmprestimo.ParamByName('DI').AsDate:= DMX.IBCaixaAuxData.Value;

IBEmprestimo.ParamByName('CAIXA').AsString:= '0';

IBEmprestimo.Open;

IBDespesas.Close;

IBDespesas.ParamByName('DI').AsDate:= DMX.IBCaixaAuxData.Value;

IBDespesas.ParamByName('CAIXA').AsString:= '0';

IBDespesas.Open;

IBCDebito.Close;

IBCDebito.SQL.Clear;

IBCDebito.SQL.Add('Select Codigo,Credito,cast(CLIENTE AS VARCHAR(100)) AS Historico,Tipo,CAST(EMISSAO AS DATE) AS Data,Desconto,Troco,JurosCobrado from CARTAO where EMISSAO=:DI AND TIPOCARTAO='+QUOTEDSTR('J'));

IBCDebito.ParamByName('DI').AsDate:= DMX.IBCaixaAuxData.Value;

IBCDebito.Open;

IBCCredito.Close;

IBCCredito.SQL.Clear;

IBCCredito.SQL.Add('Select Codigo,Credito,cast(CLIENTE AS VARCHAR(100)) AS Historico,Tipo,CAST(EMISSAO AS DATE) AS Data,Desconto,Troco,JurosCobrado from CARTAO where EMISSAO=:DI and TIPOCARTAO='+ QUOTEDSTR('L'));

IBCCredito.ParamByName('DI').AsDate:= DMX.IBCaixaAuxData.Value;

IBCCredito.Open;

// Aqui chamo o Relatorio

Application.CreateForm(TFQRCDiario, FQRCDiario);

// aqui deve ser igual para todos os relatorios

FQRCDiario.Endereco.Caption:= dmx.TabEmpresaEndereco.Value + ' - ' + DMX.TabEmpresaBAIRRO.Value + ' - ' + dmx.TabEmpresaCIDADE.Value + ' - ' + DMX.TabEmpresaESTADO.Value;

FQRCDiario.TELEFONE.Caption:= DMX.TabEmpresaFONE.Value + ' email : ' + DMX.TabEmpresaEMAIL.Value + ' homepage: ' + dmx.TabEmpresaHOME.Value;

FQRCDiario.rlData.Caption:= 'Data: ' + Abertura.Caption;

if DMX.TabEmpresaBRANCO.Value = 'S' then begin

FQRCDiario.RLDBText1.Left:= FQRCDiario.RLDBImage1.Left;

FQRCDiario.Endereco.Left:= FQRCDiario.RLDBImage1.Left +2;

FQRCDiario.TELEFONE.Left:= FQRCDiario.RLDBImage1.Left +2;

end else begin

FQRCDiario.RLDBImage1.Height:= DMX.TabEmpresaTAM1.Value;

FQRCDiario.RLDBImage1.Width:= DMX.TabEmpresaTAM2.Value;

FQRCDiario.rlDBText1.Left:= FQRCDiario.RLDBImage1.Left + FQRCDiario.RLDBImage1.Width + 15;

FQRCDiario.Endereco.Left:= FQRCDiario.RLDBImage1.Left + FQRCDiario.RLDBImage1.Width + 17;

FQRCDiario.TELEFONE.Left:= FQRCDiario.RLDBImage1.Left + FQRCDiario.RLDBImage1.Width + 17;

end;

FQRCDiario.RLLabel2.Caption:= FormatFloat('0.00', StrToFloat(CurrToStr(StrToCurr(Receitas.Caption)+ StrToCurr(Cheques.Caption)+ StrToCurr(CredAnt.Caption))));

FQRCDiario.RLLabel3.Caption:= FormatFloat('0.00', StrToFloat(Despesas.Caption));

FQRCDiario.RLLabel5.Caption:= FormatFloat('0.00', StrToFloat(Retirada.Caption));

FQRCDiario.RLLabel12.Caption:= FormatFloat('0.00', StrToFloat(Emprestimo.Caption));

FQRCDiario.RLLabel15.Caption:= FormatFloat('0.00', StrToFloat(CDebito.Caption));

FQRCDiario.RLLabel18.Caption:= FormatFloat('0.00', StrToFloat(CCredito.Caption));

FQRCDiario.RLLabel22.Caption:= FormatFloat('0.00', StrToFloat(Inicial.Caption));

FQRCDiario.RLLabel42.Caption:= FormatFloat('0.00', StrToFloat(SaldoAtual.Caption));

FQRCDiario.RLLabel24.Caption:= FormatFloat('0.00', StrToFloat(Receitas.Caption));

FQRCDiario.RLLabel27.Caption:= FormatFloat('0.00', StrToFloat(Cheques.Caption));

FQRCDiario.RLLabel28.Caption:= FormatFloat('0.00', StrToFloat(CredAnt.Caption));

FQRCDiario.RLLabel37.Caption:= FormatFloat('0.00', StrToFloat(Despesas.Caption));

FQRCDiario.RLLabel38.Caption:= FormatFloat('0.00', StrToFloat(Retirada.Caption));

FQRCDiario.RLLabel31.Caption:= FormatFloat('0.00', StrToFloat(Emprestimo.Caption));

FQRCDiario.RLLabel49.Caption:= FormatFloat('0.00', StrToFloat(CCredito.Caption));

FQRCDiario.RLLabel47.Caption:= FormatFloat('0.00', StrToFloat(Crediario.Caption));

FQRCDiario.RLLabel50.Caption:= FormatFloat('0.00', StrToFloat(CDebito.Caption));

FQRCDiario.RLLabel48.Caption:= FormatFloat('0.00', StrToFloat(Deposito.Caption));

FQRCDiario.RLLabel33.Caption:= FormatFloat('0.00', StrToFloat(CurrToStr(StrToCurr(Emprestimo.Caption)+StrToCurr(CredAnt.Caption)+StrToCurr(Cheques.Caption)+StrToCurr(Receitas.Caption))));

FQRCDiario.RLLabel40.Caption:= FormatFloat('0.00', StrToFloat(CurrToStr(StrToCurr(Despesas.Caption)+StrToCurr(Retirada.Caption))));

FQRCDiario.RLReport1.Preview;

FQRCDiario.Release;

Eu abro as tabelas antes de imprimir o relatorio.

Atenciosamente,

Rodrigo

[Rodrigao]

Continuo Verificando aqui,

e parece que o Fortes Grava o ultimo relatorio e sempre exibe o mesmo.

Ex.

Se faço uma venda e entra uma receita no caixa de 100,00 vamos supor....

dae entro la no caixa e mando imprimir aparece a entrada de 100,00

mas

se eu saio do sistema e entro novamente, abro o caixa e imprimo um relatorio, aparece as outras entradas

e eu vou em vendas e faço uma venda de 100,00 quando vou no caixa novamente, imprimo o relatorio

não aparece a receita de 100,00, parece que fica gravado o primeiro relatorio que eu tirei sem o valor de 100,00.

Dae fecho o sistema, entro novamente e abro o caixa e mando imprimir o relatorio, dae aparece o valor de 100,00.

não sei se deu pra entender... se puderem ajudar...

Atenciosamente,

Rodrigo