Esta versão do sistema foi descontinuada e não recebe atualizações e novas implementações. Acesse a documentação da versão 5.10.3 aqui

Identificador de Regra

INT-000MESSC01

Finalidade: é executado através do processo automático da integração do Mercado Eletrônico e seu objetivo é permitir a personalização de um campo de status da solicitação de compra utilizando os dados recebidos no serviço getMessageAcompanhamentoProcessoItemRequisicao.

Módulo: INT - Integrações.

Transação: Não se aplica.

Regra:

Exemplo de regra:

Adiciona nos campos de situação de motivo e observação de motivo o status da solicitação de compra no Mercado Eletrônico. Para utilizar o parâmetro global MosMotSol e visualizar nas telas de consulta F406SOL e F406CSS.

Definir alfa IntAXML;
Definir numero IntNCodEmp;
Definir numero IntNNumSol;
Definir numero IntNSeqSol;
Definir alfa  IntAIDRequisicao;
Definir alfa  IntAProcessoAtual;
Definir numero IntNQuantidade;
Definir alfa IntAStatus;
Definir alfa IntAData;
Definir alfa IntALoginDono;
Definir Alfa aDia;
Definir Alfa aAno;
Definir Alfa aMes;
Definir Alfa aDataHora;

nCodMot = 0;

aDataHora = IntAData;
aDia = aDataHora;
aMes = aDataHora;
aAno = aDataHora;
CopiarAlfa(aDia, 9, 2);
CopiarAlfa(aMes, 6, 2);
CopiarAlfa(aAno, 1, 4);
DeletarAlfa(aDataHora, 1, 11);
aDataHora = aDia + "/" + aMes + "/" + aAno + " | " + aDataHora;


Se (IntAStatus = "Canceled (6)") {
    IntAStatus = "Cancelada";
    nCodMot = 51;    
} 
Senao Se (IntAStatus = "In Quotation (3)") {
    IntAStatus = "Em Cotação " + IntAProcessoAtual + " - " + aDataHora;
    nCodMot = 52;    
}
Senao Se (IntAStatus = "In Request ()") {
    IntAStatus = "Em Pedência de Compras";
    nCodMot = 53;   
}
Senao Se (IntAStatus = "In Pre Order (5)") {
    IntAStatus = "Pré Pedido " + IntAProcessoAtual + " - " + aDataHora;
    nCodMot = 54;    
}

Se (nCodMot > 0) {
    ExecSQL "UPDATE E405SOL \
                SET CODMOT = :nCodMot, \
                    OBSMOT = :IntAStatus \
              WHERE CODEMP = :IntNCodEmp \ 
                AND NUMSOL = :IntNNumSol \ 
                AND SeqSol = :IntNSeqSol"; 
}

Variáveis Disponibilizadas:

Nome Tipo Observações Retorna valor
IntAXaml ALFA Xml recebido do Mercado Eletrônico N
IntNCodEmp NÚMERO Código da Empresa Da Solicitação de compra N
IntNNumSol NÚMERO Número da Solicitação de compra N
IntNSeqSol NÚMERO Sequência da Solicitação de compra N
IntAIDRequisicao ALFA IRRequisicao Recebido no XML N
IntAProcessoAtual ALFA ProcessoAtual Recebido no XML N
IntNQuantidade ALFA Quantidade Recebido no XML N
IntAStatus ALFA Status Recebido no XML N
IntAData ALFA Data recebido no XML N
IntALoginDono ALFA LoginDono Recebido no XML N

Atenção

Caso o parâmetro global LisVarReg esteja habilitado, a variável ListaVariaveis estará disponível em todos os identificadores de regras do sistema. O conteúdo desta variável lista os campos disponibilizados no identificador de regras em questão.

Não é aconselhada a ativação desse parâmetro global para o uso cotidiano. Esse recurso de listagem dos campos de identificadores auxilia a construção de regras e o Suporte para, por exemplo, depuração ou quando não houver acesso à documentação dos identificadores de regras.

Este artigo ajudou você?