Ajuda para resolver Mestre Detalhes de Pedidos com Itens
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.
----
Discussão (1)
Carregando comentários...