Identificador de Regra

GER-095HISFO01

Módulo: GER - Gerais.

Finalidade: Disponibiliza os campos da tabela de histórico de fornecedores (E095HFO) para que sejam validados via regra.

Características: Todos os campos da tabela "E095HFO", inclusive os de usuário, são passados para a regra através deste identificador. Eles podem ser acessados como variáveis através do nome "VS + ". Os campos numéricos ou hora são acessados na regra como tipo "NUMERO", os data como tipo "DATA" e os caracteres ou alfanuméricos como tipo "ALFA".
Também é disponibilizada a variável "VSEstado" que pode conter os valores: "FECHANDO" ,"ALTERANDO" ou "INSERINDO".
e a variável "VSOrigem" que informa qual rotina chamou a regra sendo:
CadastroFornecedor : 'CADFOR'
HistoricoFornecedor : 'HISFOR'
CadastroCliente : 'CADCLI'
HistoricoCliente : 'HISCLI'
Cadastros da Dll (Rubi) : 'DLLFOR' (apartir da versao 5.3.2.5)
Obs:quando a origem é "DLLFOR" pode haver incompatibilidade em algumas funções da regra.

Nenhum dos campos retorna valor.

Este identificador é chamado também na importação de dados para a tabela "E095HFO".

Tela: F095CAD, F095HFO

Transação: Não se aplica.

Regra:

Definir Numero VSCodFor;
Definir Numero VSCodEmp;
Definir Numero VSCodFil;
Definir Numero VSSalDup;
Definir Alfa VSCodCpg;
Definir Alfa VSUsu_CampoAlfa;
Definir Numero VSUsu_CampoNum;
Definir Data VSUsu_CampoData;
Definir Numero VSUsu_CampoHora;
Definir Alfa VSOrigem;




@ Caractere ENTER @
Definir Alfa ENTER;
CaracterParaAlfa(10, ENTER);

Definir alfa auxAlf;
Definir alfa msgStr;

@ Testa origem @
msgStr = "";

Se(VSOrigem <> "DLLFOR")
inicio
msgStr = " gerada pelo processo do Gestão Empresarial | ERP.";
fim
senao
inicio
msgStr = " gerada pelo processo de integração.";
fim

Mensagem(retorna, msgStr);

msgStr = "";

@ Mostrar o valor dos campos chave @
msgStr = msgStr + "Campos chave:" + ENTER;
IntParaAlfa(VSCodFor, auxAlf);
msgStr = msgStr + "- CodFor: " + auxAlf + "." + ENTER;
IntParaAlfa(VSCodEmp, auxAlf);
msgStr = msgStr + "- CodEmp: " + auxAlf + "." + ENTER;
IntParaAlfa(VSCodFil, auxAlf);
msgStr = msgStr + "- CodFil: " + auxAlf + "." + ENTER;

@ Mostrar campos de sistema @
msgStr = msgStr + "Campos de sistema:" + ENTER;
IntParaAlfa(VSSalDup, auxAlf);
msgStr = msgStr + "- SalDup: " + auxAlf + "." + ENTER;
auxAlf = VSCodCpg;
msgStr = msgStr + "- CodCpg: " + auxAlf + "." + ENTER;

@ Mostrar campos de usuário (supondo que eles existam no TBS) @
msgStr = msgStr + "Campos de usuário:" + ENTER;
auxAlf = VSUsu_CampoAlfa;
msgStr = msgStr + "- CampoAlfa: " + auxAlf + "." + ENTER;
IntParaAlfa(VSUsu_CampoNum, auxAlf);
msgStr = msgStr + "- CampoNum: " + auxAlf + "." + ENTER;
ConverteMascara(3, VSUsu_CampoData, auxAlf, "dd/mm/yyyy");
msgStr = msgStr + "- CampoData: " + auxAlf + "." + ENTER;
ConverteMascara(4, VSUsu_CampoHora, auxAlf, "hh:mm");
msgStr = msgStr + "- CampoHora: " + auxAlf + "." + ENTER;

Mensagem(retorna, msgStr);

Variáveis Disponibilizadas: