Identificador de Regra

VEN-120GRAGR01

Módulo: VEN - Vendas.

Finalidade: Repassa para a regra associada ao identificador uma lista de derivações ligadas aos produtos indicando, em cada item da lista, em que produto finalizou a distribuição de quantidades (por esgotamento). Esse identificador é utilizado em conjunto com o identificador VEN-120OBTGR01.

Ao findar a distribuição de uma derivação, é armazenado, no mesmo formato de lista, o produto onde findou-se a distribuição. Ao final de todas as derivações a lista é montada e passada para a regra para ser utilizada/armazenada como o usuário da regra desejar. Assim, poderá ser posteriormente recuperada e utilizada quando for pressionado novamente o botão "Mostrar" da grade com a mesma família em tela, e caso esteja informado faixa e proporcionalidade, efetuando uma distribuição diferenciada da distribuição anterior caso nessa segunda lista formou-se uma combinação diferenciada de derivações e produtos. As derivações que não tiveram distribuição são omitidas da lista.

Características: São omitidas as derivações que não tiveram quantidades distribuidas na rotina

Tela: F120GPD - Botão Grade II

Transação: Não se aplica.

Regra:

Definir Numero VSCodEmp;
Definir Alfa VSCodFam;
Definir Alfa VSCodMdp;
Definir Alfa VSLstGra;

Definir Cursor CUR_USU_TDISREP;

CUR_USU_TDISREP.Sql "Select USU_STRDER from USU_TDISPED where USU_CODEMP = :VSCodEmp and USU_CODFAM = :VSCodFam and USU_CODMDP = :VSCodMdp";

CUR_USU_TDISREP.AbrirCursor();

Se(CUR_USU_TDISREP.Achou)
Inicio
ExecSql "Update USU_TDISPED set USU_STRDER = :VSLstGra where USU_CODEMP = :VSCodEmp and USU_CODFAM = :VSCodFam and USU_CODMDP = :VSCodMdp";
Fim
Senao ExecSql "Insert into USU_TDISPED (USU_CODEMP, USU_CODFAM, USU_CODMDP, USU_STRDER) VALUES (:VSCodEmp, :VSCodFam, :VSCodMdp, :VSLstGra)";

CUR_USU_TDISREP.FecharCursor();

Variáveis Disponibilizadas: