Página 1 de 1
Desativar Processo Inverso Reverso [RESOLVIDO]
Enviado: Março 22nd, 2011, 4:41 pm
por 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
Re: Desativar Processo Inverso Reverso
Enviado: Março 22nd, 2011, 6:27 pm
por 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.
Re: Desativar Processo Inverso Reverso [RESOLVIDO]
Enviado: Março 23rd, 2011, 10:01 am
por 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;