Ir para conteúdo
Fórum CódigoFonte.net

suporte2011

Membros
  • Total de itens

    1
  • Registro em

  • Última visita

  1. suporte2011

    OnDrawColumnCell do Dbgrid

    Boa tarde a todos(as). Sou Iniciante no delphi, estou montando um sistema de cadastro de produtos e emissão de nfe usando o ACBR. Cheguei em uma barreira estou a 3 dias tentando passa la , tenho duas tabelas tabela 01, e tabela 02, Quando cadastro uma nota fiscal de entrada, primeiro o produto entra na tabela 01 depois passa para a tabela 02, fiz o código abaixo para determinar o seguinte: TFrmXmlNfe.DBGridProdutosDrawColumnCell begin ean := SqlProdutoscodbarras.AsString; If TBLPRODUTOSTEMPcodbarras.AsString = ean then DBGridProdutos.Canvas.Font.Color:= clFuchsia; DBGridProdutos.DefaultDrawDataCell(Rect, DBGridProdutos.columns[datacol].field, State); end; Faço uma pesquisa na tabela 02 se existe um produto com o mesmo código de barras do produto que estou cadastrando. Criei uma varial chamada EAN pra pegar o registro do sql E coloquei o código no OnDrawColumnCell do Dbgrid. O código estar funcionando, mais, ele estar pegando apenas o ultimo registro da tabela, por ex se na tabela 01 existe 3 produtos iguais aos da tabela 02 ele registra apenas o ultimo item, isso se o ultimo item for igual ao da tabela 02. Por ex: se na tabela 01 tem 5 itens e o item de num 4 for igual ao da tabela 02 ele não registra. Resumindo estou querendo que quando eu cadastrar um produto, se este produto já existe que ele fique de outra cor. Algum dos colegas poderiam me ajudar ? Desde já agradeço
×