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

GER-085HISCL01

Módulo: GER - Gerais.

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

Executado também na importação de dados para a tabela "E085HCL".

Características: Todos os campos da tabela "E085HCL", inclusive os de usuário, são passados para a regra por meio deste identificador. Eles podem ser acessados como variáveis pelo de 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: "ALTERANDO" ou "INSERINDO". Nenhum dos campos retorna valor.

Tela: F085CAD, F085HCL

Transação: Não se aplica.

Regra:

Definir Numero VSCodCli;
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;

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

Definir alfa auxAlf;
Definir alfa msgStr;

msgStr = "";

@ Mostrar o valor dos campos chave @
msgStr = msgStr + "Campos chave:" + ENTER;
IntParaAlfa(VSCodCli, auxAlf);
msgStr = msgStr + "- CodCli: " + 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:

Nome Tipo Observações Retorna Valor
VSCODCLI NÚMERO Código do cliente (chave do registro) N
VSCODEMP NÚMERO Código da empresa (chave do registro) N
VSCODFIL NÚMERO Código da filial (chave do registro) N
VSESTADO ALFA Indica a operação sendo realizada: "ALTERANDO" ou "INSERINDO". 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ê?