Identificador de Regra

VEN-135LIBPD01

Módulo: VEN - Vendas.

Finalidade: Consistir o pedido que está para ser incluído em uma carga pelas telas F135FCP e F135IPC ao carregá-lo na grade de pedidos das mesmas. Caso o retorno da variável VSPERMITE = N, então o pedido ficará na cor vermelha na grade de pedidos.

Na tela de exclusão de cargas (F135ECA) o pedido que está sendo excluído será disponibilizado para a regra, não sendo retornado nenhum valor para a rotina.

Para as telas F135FCP e F135IPC o retorno da variável VSPERMITE indicará se o pedido poderá ser selecionado na grade das telas F135FCP e F135IPC, podendo seu valor ser "SIM" ou "NAO". Para a tela de exclusão de cargas (F135ECA) não haverá retorno de variáveis.

Características: Nas telas F135FCP e F135IPC o valor da variável VSDisOperacao será "INCLUIR".

Na tela F135ECA o valor da variável VSDisOperacao será "EXCLUIR".

Tela: F135IPC

Transação: Não se aplica.

Regra:

Definir Alfa VSDisPermite;
Definir Alfa VSDisBloqueado;
Definir Alfa VSDisOperacao;
Definir Numero VSDisCodEmp;
Definir Numero VSDisCodFil;
Definir Numero VSDisNumPed;
Definir Cursor cur_e120ped;

se (VSDisOperacao = "EXCLUIR")
Inicio
VSDisBloqueado = "S";
ExecSql"UPDATE E120PED SET USU_BLOQUEADO=:VSDisBloqueado
WHERE CODEMP=:VSDisCodEmp AND
CODFIL=:VSDisCodFil AND
NUMPED=:VSDisNumPed";

fim
senao
Inicio
cur_e120ped.sql "SELECT USU_BLOQUEADO FROM E120PED
WHERE CODEMP=:VSDISCODEMP
AND CODFIL=:VSDISCODFIL
AND NUMPED=:VSDISNUMPED";
cur_e120ped.abrircursor();
Se (cur_e120ped.achou)
Inicio
se (cur_e120ped.usu_bloqueado = "S")
VSDisPermite = "NAO";
senao
VSDisPermite = "SIM";
fim
cur_e120ped.fecharcursor();
fim;

Variáveis Disponibilizadas: