Identificador de Regra

GER-000INTWM01

Módulo: GER - Gerais.

Finalidade: Validar informações exportadas e exportar informações de usuários na integração de produtos e derivações na integração ERP X WMAS.

Características: Este identificador é chamado após gravar cada produto (por derivação) na base intermediária.

Tela: Integração ERP X WMAS

Transação: Não se aplica.

Regra:

Definir Alfa VSSqlInt;
Definir Numero VSSeqInt;
Definir Numero VSCodEmp;
Definir Alfa VSCodPro;
Definir Alfa VSCodDer;

@ Variáveis da regra @
Definir Alfa vCampoUsu;
Definir Alfa vAlfAux;
Definir Numero vNumAux;
Definir Cursor CurE075DER;

@ Buscar a informação do campo de usuário na derivação @
CurE075DER.SQL "SELECT USU_CAMPOUSU FROM E075DER
WHERE CODEMP = :VSCodEmp
AND CODPRO = :VSCodPro
AND CODDER = :VSCodDer";
CurE075DER.AbrirCursor();
vCampoUsu = "";
Se (CurE075DER.Achou)
vCampoUsu = CurE075DER.USU_CAMPOUSU;

CurE075DER.FecharCursor();

@ Comando SQL para ser executado na base intermediária @
VSSqlInt = "UPDATE PRODUTO
SET CAMPOUSU = '{CampoUsu}'
WHERE SEQUENCIAINTEGRACAO = {SeqInt}
AND CODIGOEMPRESA = {CodEmp}
AND CODIGOPRODUTO = '{CodPro}'
AND CODIGOPRODUTO2 = '{CodDer}'";
SubstAlfa("{CampoUsu}", vCampoUsu, VSSqlInt);
IntParaAlfa(VSSeqInt, vAlfAux);
SubstAlfa("{SeqInt}", vAlfAux, VSSqlInt);
IntParaAlfa(VSCodEmp, vAlfAux);
SubstAlfa("{CodEmp}", vAlfAux, VSSqlInt);
SubstAlfa("{CodPro}", VSCodPro, VSSqlInt);
SubstAlfa("{CodDer}", VSCodDer, VSSqlInt);

Variáveis Disponibilizadas: