Ajuda para resolver Mestre Detalhes de Pedidos com Itens

[dowglas maia 0]

boa noite, estou com uma dor de cabeça tremenda para jogar os Detalhes de um Pedido da minha tabela virtual pra a tabela do banco de dados itens de pedido... sempre diz que a mesma não estar em modo de edit ou insert, veja o código... desde ja agradeço.

 

aqui eu inicio ... com butão inserir...

procedure TF_ppdv.ActNovoExecute(Sender: TObject);

begin

inherited;

WITH DM_Dados do

begin

begin

Sql_Pedido.close;

Sql_Pedido.open;

Sql_Pedido.Append;

Sql_Pedidoped_cliente.AsInteger := 1;

Sql_Pedido.Post;

Sql_Pedido.Edit;

EdtPedido.Text := IntToStr(Sql_Pedidoped_id.Value);

EdtCodigo.SetFocus;

end;

end;

end;

//------------------------

este e butão de salvar...

procedure TF_ppdv.ActSalvarExecute(Sender: TObject);

begin

inherited;

with DM_Dados do

begin

begin

//Sql_Pedidoped_id.Value := Sql_Pedidoped_id.Value;

Sql_Pedidoped_data.Value := now;

Sql_Pedidoped_codigo.Value := EdtPedido.Text;

Sql_Pedidoped_cliente.Value := StrToInt(EdtCodigo.Text);

Sql_Pedidoped_usuario.Value := StrToInt(edtIDfun.Text);

Sql_Pedidoped_forma_pag.Value := 1;

Sql_Pedidoped_fechado.AsString := 'SIM';

Sql_Pedidoped_faturado.AsString := 'NÃO';

Sql_Pedidoped_total.Value := StrToCurr(Edt_VlrTotal.Text);

Sql_Pedido.Post;

end;

//-----------

begin

DM_Dados.Sql_Itens.Close;

DM_Dados.Sql_Itens.Open;

DM_Dados.Sql_Itens.Append;

Sql_Itensitn_ped_id.AsInteger :=Sql_Pedidoped_id.AsInteger;

//Sql_Itensitn_ped_cod.AsString := '00';

tbl_pedido.First;

while not tbl_pedido.Eof do

begin

Sql_Itensitn_produto.Value := tbl_pedidoCódigo.Value;

Sql_Itensitn_qtda.Value := tbl_pedidoqtda.Value;

Sql_Itensitn_preco.Value :=tbl_pedidovlravista.Value;

Sql_Itensitn_descricao.AsString :=tbl_pedidodescricao.AsString;

Sql_Itens.Next;

end;

Sql_Itens.Post;

end;

//==========================

ShowMessage('Pedido Realiza com Sucesso');

Sql_Pedido.Close;

end;

end;

 

 

vejas a foto.

https://plus.google.com/u/0/114869034846731142574/posts/ARtWNeqDtYo?pid=6277301283217300130&oid=114869034846731142574

----

 

 

[dowglas maia 0]

resolvido... eu estava colocando no laço para ir para o proximo reg... detro da tabela de intens,,, e o certo é a tabela de pedido(cache)..