PAT-670BEMNF01

Módulo: PAT - Patrimônio.

Finalidade: quando ativo e com regra definida, permite criar uma regra para definir mais de um bem principal para cada item de nota fiscal. Conforme exemplo abaixo:

A regra é aplicada ao clicar no botão Mostrar.

Tela: F670EBA (Grade Item Nota Fiscal de Entrada).

Transação: Não se aplica.

Regra:

Definir Numero PATNCodEmp; /* Código da Empresa */
Definir Numero PATNCodFil; /* Código da Filial */
Definir Numero PATNCodFor; /* Código do Fornecedor */
Definir Numero PATNNumNfc; /* Número da Nota Fiscal */
Definir Alfa PATACodSnf; /* Código da Série */
Definir Numero PATNSeqIpc; /* Sequencia do Item de Produto */
Definir Numero PATNSeqIsc; /* Sequencia do Item de Serviço */
Definir Numero PATNQtdTot; /* Quantidade de itens total do item de produto/serviço */

Definir Alfa PATABemPri; /* Bem principal atual encontrado no item da nota */
Definir Numero PATNQtdInc; /* Quantidade a incluir original do item */
Definir Alfa PATADelimitador; /*RETORNO: Delimitador a ser utilizado nas varáveis de retorno - Default: ';' */

Definir Alfa PATABens; /*RETORNO: Variável de retorno contendo os bens principais do item atual - Ex: "MOVTESTE001-000;MOVTESTE002-000;MOVTESTE003-000"*/
Definir Alfa PATAQtdPorBem; /*RETORNO: Variável de retorno contendo as quantidades de itens a serem incluídas para cada bem principal - Ex: "2;3;1"*/

Definir Alfa xBem;
Definir Numero xQtd;
Definir Alfa xQtdAlfa;

Definir alfa xCursor;

PATABens = "";
PATAQtdPorBem = "";

SQL_Criar(xCursor);
SQL_DefinirComando(xCursor, "SELECT * FROM USU_TBEM_IPC \
WHERE USU_CODEMP = :CODEMP AND \
USU_CODFIL = :CODFIL AND \
USU_CODFOR = :CODFOR AND \
USU_NUMNFC = :NUMNFC AND \
USU_CODSNF = :CODSNF AND \
USU_SEQIPC = :SEQIPC AND \
USU_SEQISC = :SEQISC");
SQL_DefinirInteiro(xCursor, "CODEMP", PATNCodEmp);
SQL_DefinirInteiro(xCursor, "CODFIL", PATNCodFil);
SQL_DefinirInteiro(xCursor, "CODFOR", PATNCodFor);
SQL_DefinirInteiro(xCursor, "NUMNFC", PATNNumNfc);
SQL_DefinirAlfa(xCursor, "CODSNF", PATACodSnf);
SQL_DefinirInteiro(xCursor, "SEQIPC", PATNSeqIpc);
SQL_DefinirInteiro(xCursor, "SEQISC", PATNSeqIsc);

SQL_AbrirCursor(xCursor);

Enquanto(SQL_EOF(xCursor) = 0)
{
SQL_RetornarAlfa(xCursor, "USU_CODBEM", xBem);
SQL_RetornarInteiro(xCursor, "USU_QTDINC", xQtd);
IntParaAlfa(xQtd, xQtdAlfa);
PATABens = PATABens + xBem + PATADelimitador;
PATAQtdPorBem = PATAQtdPorBem + xQtdAlfa + PATADelimitador;
SQL_Proximo(xCursor);
}

SQL_FecharCursor(xCursor);
SQL_Destruir(xCursor);

Variáveis Disponibilizadas: