[firebase-br] Off-Topic ( ClientDataSet x Lx300 ) Por favor !!!!
Antonio Carlos
a.lima.silva em terra.com.br
Ter Ago 1 11:31:50 -03 2006
Bem já sabem que é off e para estar sendo postado é porque já fui em vários
locais ditos especializados e nínguem quiz ou soube ajudar e ai já em
desespero, derrepente encontro alguem que passou por isso.
O pepino é a impressão de forma louca que esta ocorrendo, uso Firebird 1.5,
DBexpress, Delphi7 Sp1, RDPrint 4.0
Seleciono normalmente os itens de um pedido de saida por vendas e uso o
RDPrint para gerar o relatório em matriciais.
SdsItemPVenda.CommandText := 'SELECT * FROM ITENS_VENDA WHERE ITEMSCOD_PED
:= P00';
CdsItemPVenda.Params.Clear;
CdsItemPVenda.FetchParams;
CdsItemPVenda.Close;
CdsItemPVenda.IndexFieldNames := 'ITEMS_INCITEM' ; // crio um index para
ordenar os itens para a exibição em um DBGrid
CdsItemPVenda.Open;
A impressão é simples
RDPrint.Abrir;
CdsItemPVenda.DisableControls; // para evitar a amostragem no dbgrid;
CdsItemPVenda.First;
while not CdsItemPVenda.eof do
begin
RDPrint(RDPrintFIELD..... ) ;
CdsItemPVenda.next;
end;
RDPrint.fechar;
CdsItemPVenda.First;
CdsItemPVenda.EnableControls;
Ocorre que "AS VEZES( NÃO HÁ UMA PERIDIOCIDADE, É ESPORÁDICO), SOMENTE NO
CLIENTE " a impressão fica louca !
Exemplo :
Um pedido onde há apenas 1 item é impresso dois, e o total mantém-se o de
um.Um total que é 234,00 é impresso 0,00 , ou é impresso dois itens e por ai
vai ou.
No rodapé da página onde é impresso a quantidade de itens atraves do
CdsItemPVenda.RecordCount sempre está certo.
Já gastei uma caixa de formulário no laboratório ( com outra impressora
LQ570 ) e o "defeito não aconteceu"
Já postei ao proprietario do componente e ele informou não haver bug .
Postei em listas de hardware sobre LX300 e suas panes e não obtive nenhuma
ajuda.
Alguma luz ?
Mais detalhes sobre a lista de discussão lista