Desativar Processo Inverso Reverso [RESOLVIDO]

[Gilberto]

Olá, Boa Tarde

Estou gerando registros numa tabela DEntradas e gostaria que os dados inseridos não afetassem o Saldo dos Produtos,

Precisava desativar o Processo somente nesta Rotina de inserção de dados.

Como posso pazer isso no Xmaker6.

Att
Gilberto

[Suporte]

Olá,

Pode ser feito assim:
//1 Campo lógico nas condições antes do processamento.
Criando um campo para ser testado nas condições do Processo direto.

ou

//2 desativando os mesmo e reativando depois...
TabGlobal.DVENDAS.AfterPost := Nil;
TabGlobal.DVENDAS.AfterCancel := Nil;
...
insert dos dados
...
TabGlobal.DVENDAS.AfterPost := TabGlobal.DVENDAS.ProcessoDireto1;
TabGlobal.DVENDAS.AfterCancel := TabGlobal.DVENDAS.ProcessoDireto2;


Qualquer dúvida volte a nos contatar.

[Gilberto]

Olá, Obrigado pela pronta resposta.

A Segunda opção funcionou perfeitamente.

Att
Gilberto

---
while not TabProdutos.Eof do //Tabela do Paradox
begin
GaugePro.Progress := GaugePro.Progress + 1;
LabelArq.Caption := 'Processando... Linha: ' + IntToStr(GaugePro.Progress);
LabelPro.Caption := TabProdutosPROCOD.Value;
Application.ProcessMessages;
if TabProdutosPROESTATUAL.Value <> 0 then
begin
TabGlobal.DEntradas.AfterPost := Nil;
TabGlobal.DEntradas.AfterCancel := Nil;
TabGlobal.DEntradas.Inclui(nil);
TabGlobal.DEntradas.REGISTRO.Conteudo := RetornaAutoIncremento(TabGlobal.DEntradas, 'Registro', '');
if TabGlobal.DProdutos.Locate('REFERENCIA', TabProdutosPROCOD.Value, []) then
TabGlobal.DEntradas.CODPRO.Conteudo := TabGlobal.DProdutos.CODIGO.CONTEUDO
else
TabGlobal.DEntradas.CODPRO.Conteudo := 0;
TabGlobal.DEntradas.PRODUTO.Conteudo := TabProdutosPROCOD.Value;
TabGlobal.DEntradas.DESCRICAO.Conteudo := TabProdutosPRODES.Value;
TabGlobal.DEntradas.QTDE.Conteudo := TabProdutosPROESTATUAL.Value;
TabGlobal.DEntradas.DATA.Conteudo := StrToDate('01/01/2011');
TabGlobal.DEntradas.MOTIVO.Conteudo := 'SALDO INICIAL';
TabGlobal.DEntradas.Salva;
TabGlobal.DEntradas.AfterPost := TabGlobal.DEntradas.ProcessoDireto1;
TabGlobal.DEntradas.AfterCancel := TabGlobal.DEntradas.ProcessoDireto2;
end;
TabProdutos.Next;
end;