Fórum Formulário de Pedidos #322052
24/05/2006
0
Gostaria de abrir uma discussão sobre a maneira que a maioria faz o formulário de pedido ...
e já aproveitando o gancho, estou com um problema; tenho um botão finaliza pedido e neste botão tenho código:
1º dou um ibdatasetpedido.post (para salvar os itens da tabela mestre)
2º no mesmo código do botão dou um ibqueryitens.ExecSql (que executa uma instrução que salva os itens do pedido,
só que há um problema, qdo vou salvar os itens ele fala que houve uma violação de FK porque o pedido ainda não existe, mas eu dei um ´salvar´ primeiro no pedido ?? porque isso tá acontecendo ??
Obrigado
Kleber.
Ksotte
Curtir tópico
+ 0Posts
24/05/2006
Ksotte
Gostei + 0
24/05/2006
Catunda
Gostei + 0
06/12/2006
Pestana
try
dataSetVendas.Post;
dataSetItens.Post;
DM.Trans.CommitRetaining;
except
DM.Trans.RollbackRetaining;
raise;
end;
estou utilizando o D7 e o Interbase 6.5
Gostei + 0
07/12/2006
Brjedi
[]s,
Gostei + 0
07/12/2006
Pestana
Gostei + 0
08/12/2006
Pestana
Gostei + 0
08/12/2006
Laelsonc
A dúvida é com relação a condições de pagamento. No meu caso tem alguns produtos que tem certo desconto á vista. Esse desconto varia de produto pra outro. O seu formulário preve essa situação ? Tô sem saber onde eu devo lançar esse desconto. Se é o no produto ou se devo fazer pedidos separados. Depois qro ver nas vendas...rsrsr.
Gostei + 0
08/12/2006
Pestana
Gostei + 0
08/12/2006
Emerson Nascimento
emerson.en@gmail.com
Gostei + 0
08/12/2006
Pestana
Gostei + 0
10/12/2006
Leonardobhbr
No meu sistema eu fiz tanto (descontos,impostos) tanto para itens se tiver um tratamento diferenciado de valores quanto no pedido como um todo.
Gostei + 0
10/12/2006
Corcos
[b:c85ee0ffdb]No botão INCLUIR[/b:c85ee0ffdb]
begin
Qry.Cancel;
Qry.Append;
end;
[b:c85ee0ffdb]No botão ALTERAR[/b:c85ee0ffdb]
begin
if Qry.IsEmpty then
exit
else
Qry.Edit;
end;
[b:c85ee0ffdb]No botão SALVAR[/b:c85ee0ffdb]
if Qry.State in [dsInsert] then
With dtmDados do
Begin
Qry.Post;
Qry.ApplyUpdates;
IBTransaction.Commit;
Qry.Close;
Qry.Open;
end;
if Qry.State in [dsEdit] then
with dtmDados do
Begin
Qry.Post;
Qry.ApplyUpdates;
TIBTransaction.Commit;
Qry.Close;
Qry.Open;
end;
end;
Gostei + 0
11/12/2006
Pestana
consegui resolver aquele problema?
Gostei + 0
11/12/2006
Emerson Nascimento
Gostei + 0
13/12/2006
Pestana
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)