Fórum tabela temporaria. delphi + access #503073

 begin
  Query1.SQL.Clear;
  Query1.SQL.Add('Select MAX(COD_VENDA) as CodigoVenda from VENDAS');
  Query1.SQL.Open;
  CodigoVenda := Query1.FieldByName('CodigoVenda').AsInteger;
  Query1.Close;

    cdsItensVenda.Append
 
   table_vendas.FieldByName('COD_VENDA').AsInteger :=
      CodigoVenda;
 
   table_vendas.FieldByName('COD_PRODUTO').AsInteger :=
      cdsTemporario.FieldByName('COD_PRODUTO').AsInteger;
 
    table_vendas.FieldByName('QTDE').AsInteger :=
      cdsTemporario.FieldByName('QTDE').AsInteger;
 
    table_vendas.FieldByName('VALOR').AsInteger :=
      cdsTemporario.FieldByName('VALOR').AsInteger;
 
    table_vendas.FieldByName('TOTAL').AsInteger :=
      cdsTemporario.FieldByName('TOTAL').AsInteger;
 
    table_vendas.Post

    cdsTemporario.Delete;
  end;
end;