ExecAuto FCI - FISA061

Saudações à todos.

Fiz a criação da rotina (anexa) para processamento de cálculo de produtos com FCI.

Quando informo nos parâmetros de/até o mesmo produto e a query retorna apenas 1 produto, a rotina funciona normalmente.

Porém, quando colocamos de vazio à zzzzzz e a query retorna varios produtos, o processamento da execauto não funciona dentro do While.

Foi feito o desenvolvimento considerando as informações no link abaixo:

https://tdn.engpro.totvs.com.br/pages/releaseview.action?pageId=618870419

Anexo fonte desenvolvido.

:warning: Atenção: Esta publicação foi transferida automaticamente do fórum antigo, mas os anexos não foram incluídos.

Olá Josuel,

Acredito que o problema esteja na variável "aWizAuto", a cada passo do While você está adicionando conteúdo na variável novamente.

Quando você utiliza a função AADD() é adicionada uma nova posição no array.

Zere a variável no inicio do while:


aWizAuto := {}

Ou substitua o conteúdo dela:


aWizAuto := {{ DTOS(MV_PAR01),;    // Data de
               DTOS(MV_PAR02),;    // Data ate
               (cAlias)->B1_COD,;  // Produto de
               (cAlias)->B1_COD,;  // Produto ate
               "2",;               // Seleciona filiais ? 1-Sim|2-Não
               "1.0",;             // Versao
               "2",;               // Considera produtos bloqueados ? 1-Sim|2-Não
               "1"}}

Olá @Daniel
Obrigado pelo retorno e informações.
Realmente este tipo de codigo não iria funcionar.

Erro grave meu. Obrigado.
Isso que dar copiar e colar rsrsrs.

Disponha.
Abraço!