pedidos gerando vendas

[fabioazevedo]

boa tarde preciso de ajuda

temos duas tabelas com paixfilho (vendas e orcamentos).

quando digitamos um orcamento e o cliente autoriza a venda, criei um botao para gerar a venda, para nao digitar tudo novamente, ate ai funciona, so que na tabela de vendas tem processos diretos e indiretos que geram o total da venda, como estou fazendo este lancamento dia codigo, ele nao processa.

segue codigo.

{utilize o "var" para declarar variáveis}
begin
{codificação...}
if (TabelaPrincipal.Inclusao) or
(TabelaPrincipal.Modificacao) then
begin
MessageDlg('Salve o Orçamento antes de Gerar o fechamento!', mtInformation, [mbOk], 0);
exit;
end;

if MessageDlg('Converter esse Orçamento em Fechamento ?', mtConfirmation, [mbYes, mbNo], 0) = mrNo then
begin
exit; //nao confirmou
end;
TabGlobal.DFECHA_OS.inclui(Nil);
TabGlobal.DFECHA_OS.ORDEM.Conteudo := TabGlobal.DORDEM.ORDEM.Conteudo;
TabGlobal.DFECHA_OS.DATA_FECHA.Conteudo := DataAtual;
TabGlobal.DFECHA_OS.SUBTOTAL_SER.Conteudo := 0;
TabGlobal.DFECHA_OS.SUBTOTAL.Conteudo := TabGlobal.DORDEM.TOT_ORC.Conteudo;
TabGlobal.DFECHA_OS.ACRESCIMO.Conteudo := 0;
TabGlobal.DFECHA_OS.DESCONTO.Conteudo := 0;
TabGlobal.DFECHA_OS.TOTAL.Conteudo := TabGlobal.DORDEM.TOT_ORC.Conteudo;
TabGlobal.DFECHA_OS.COD_MEC.Conteudo := TabGlobal.DORDEM.COD_FUNC.Conteudo;

TabGlobal.DFECHA_OS.Salva;
TabGlobal.DORD_PROD.AtribuiFiltroMestre(true);

//Cria os Itens
TabGlobal.DORD_PROD.First;
while not (TabGlobal.DORD_PROD.EOF) do
begin
TabGlobal.DFECHA_PROD.Inclui(Nil);
TabGlobal.DFECHA_PROD.ORDEM.Conteudo := TabGlobal.DORD_PROD.ORDEM.Conteudo;
TabGlobal.DFECHA_PROD.SEQ.Conteudo := TabGlobal.DORD_PROD.SEQ.Conteudo;
TabGlobal.DFECHA_PROD.COD_PROD.Conteudo := TabGlobal.DORD_PROD.COD_PRODUTO.Conteudo;
TabGlobal.DFECHA_PROD.QTD.Conteudo := TabGlobal.DORD_PROD.QTD.Conteudo;
TabGlobal.DFECHA_PROD.ACRESCIMO.Conteudo := TabGlobal.DORD_PROD.ACRESCIMO.Conteudo;
TabGlobal.DFECHA_PROD.DESCONTO.Conteudo := TabGlobal.DORD_PROD.DESCONTO.Conteudo;
TabGlobal.DFECHA_PROD.TOTAL.Conteudo := TabGlobal.DORD_PROD.TOTAL.Conteudo;
TabGlobal.DFECHA_PROD.Salva;
TabGlobal.DORD_PROD.Next;
end;
// Cria Servicos
TabGlobal.DORD_SER.AtribuiFiltroMestre(true);
TabGlobal.DORD_SER.First;
while not (TabGlobal.DORD_SER.EOF) do
begin
TabGlobal.DFECHA_SERVICO.Inclui(Nil);
TabGlobal.DFECHA_SERVICO.ORDEM.Conteudo:= TabGlobal.DORD_SER.ORDEM.Conteudo;
TabGlobal.DFECHA_SERVICO.SERVICO.Conteudo:= TabGlobal.DORD_SER.SERVICO.Conteudo;
TabGlobal.DFECHA_SERVICO.VALOR.Conteudo := TabGlobal.DORD_SER.VALOR.Conteudo;
TabGlobal.DFECHA_SERVICO.Salva;
TabGlobal.DORD_SER.Next;
end;
TabGlobal.DFECHA_OS.AtualizaSQL;
TabGlobal.DFECHA_OS.Last;
//BlockInput(FALSE);
MessageDlg('Ordem de Servico Nº '+TabGlobal.DORDEM.ORDEM.ValorString+' Criada',mtInformation, [mbOk],0);
end;

[adassoft]

Faz a soma das vendas durante o loop e salva no final.