Editar venda Mestre Detalhe

Delphi

21/01/2015

Boa noite galera,

Estou fazendo uma programa controle de estoque, eu consigo inserir os produtos e salvar normalmente, mas ao localizar as vendas para edição os produtos não chega na tabela
já verifiquei os valor do campo q chega no parametro esta correto estou usando mestre detalhe.

esse codigo é na tela pesquisa de compra realizadas ápos duplo clique na compra.Ai envia para tela de compra.Obs: Titulo eu coloquei venda ta errado.
begin
      if not (dmCompras.cdsCadCompra.State in [dsEdit]) then
         begin
            dmCompras.cdsCadCompra.Append;
            with dmCompras.cdsItemCompra do
              begin
                dmCompras.cdsCadCompra.Append;
                Append;
                FieldByName('CODPRODUTO').AsInteger:=
                dmCompras.cdsLocProdutoCODPRODUTO.AsInteger;
                Open;
              end;
              if dmCompras.cdsCadCompra.State in [dsInsert] then
              if dmCompras.cdsItemCompra.State in [dsInsert] then
         end
      else
        with dmCompras.cdsItemCompra do
          begin
            Append;
            FieldByName('CODPRODUTO').AsInteger:=
            dmCompras.cdsLocProdutoCODPRODUTO.AsInteger;
            Open;
          end;
        frmCadCompra.status := True;
        close;
        frmCadCompra.DBEditQuantidade.SetFocus;
    end;
Vinicius Ribeiro

Vinicius Ribeiro

Curtidas 0
POSTAR