Identificador de Regra

COM-000EXPDV21

Módulo: COM - Comercial.

Permite efetuar consistências adicionais.
O identificador de regra já recebe todas as informações consistidas e prontas para inserir na base de dados.
Com este identificador o cliente poderá fazer algumas inserções diretas na base tal como um CEP, por exemplo, um CEP enviado do ERP Varejo pode não estar cadastrado no Gestão Empresarial | ERP, e desta maneira se este não for gravado na base antes de gravar o cliente irá acarretar na não importação do cadastro do cliente.
Veja o exemplo.

Tela: ERP Varejo

Transação: Não se aplica.

Regra:

@ -- Utilizando a integração de ERP Varejo, é obrigatório a aplicação -- @
@ -- deste trecho do exemplo do identificador de regra -- @

@ -- Definindo as variáveis -- @
Definir Numero IntNCepCli;
Definir Alfa IntACidCli;
Definir Alfa IntASigUfs;

@ -- Definindo os cursores -- @
Definir Alfa SelecionaCEP;
Definir Alfa InserirCEP;

@ -- Verificar se o CEP proveniente do ERP VArejo já está cadastrado no Gestão Empresarial | ERP. -- @
SQL_Criar(SelecionaCEP);
SQL_DefinirComando (SelecionaCEP, "SELECT 1 FROM E008CEP WHERE CEPINI = :VCODCEP");
SQL_DefinirInteiro(SelecionaCEP,"VCODCEP",IntNCepCli);
SQL_AbrirCursor(SelecionaCEP);
Se (SQL_EOF(SelecionaCEP) = 1)
{
@ -- Se o CEO não foi encontrado será inserido na base, caso contrário irá gerar um erro na integração. -- @
SQL_Criar(InserirCEP);
SQL_DefinirComando(InserirCEP, "INSERT INTO E008CEP (CEPINI, CEPFIM, NOMCID, SIGUFS) VALUES (:VCEPINI, :VCEPFIM, :VNOMCID, :VSIGUFS)");
SQL_DefinirInteiro(InserirCEP,"VCEPINI",IntNCepCli);
SQL_DefinirInteiro(InserirCEP,"VCEPFIM",IntNCepCli);
SQL_DefinirAlfa(InserirCEP,"VNOMCID",IntACidCli);
SQL_DefinirAlfa(InserirCEP,"VSIGUFS",IntASigUfs);
SQL_AbrirCursor(InserirCEP);
SQL_FecharCursor(InserirCEP);
SQL_Destruir(InserirCEP);
}
SQL_FecharCursor(SelecionaCEP);
SQL_Destruir(SelecionaCEP);

Variáveis Disponibilizadas: