Identificador de Regra

GER-095CADFO02

Módulo: GER - Gerais.

Finalidade: Aciona uma regra qualquer quando o botão "Regra", da tela de cadastro de fornecedores, é pressionado.

Características: Todos os campos da tabela "E095FOR", inclusive os de usuário, são passados automaticamente para as regras por meio deste identificador. Os campos são acessados como variáveis pelo nome de "VS + ", sendo os campos numéricos e de hora acessados na regra como tipo "NUMERO", os data como tipo "DATA" e os caracteres ou alfanuméricos como tipo "ALFA".
Nenhum dos campos retorna valor.

Quando o identificador de regras "VEN-000ALIRF01" estiver ativo, existirá um confilto na variável "VSCliFor" que está definida nos dois identificadores de regra com tipos de dados diferentes. Nesse caso, utilizar as variáveis "VSCodCli" ou "VSCodFor" que foram criadas no identificador "000ALIRF01" a partir da versão 5.5.1.16f.

O conflito acima também pode ser resolvido utilizando uma variável especial de nome "GerACliFor" para identificar o campo "CliFor" (Cliente ou Fornecedor - Indicativo se o registro representa um cliente ou um fornecedor ou ambos). Essa variável foi criada também para evitar que a variável padrão "VSCliFor" deste identificador, que é declarada como Alfa, conflite com a variável "VSCliFor" do identificador "COM-000AISOU01", que identifica ou o código do cliente ou o código do fornecedor dependendo do ponto do sistema onde é invocado. A variável "VSCliFor" não deixa de existir e pode ser usada. Porém, quando essa variável entrar em conflito quando utilizado o identificador "COM-000AISOU01" é usado juntamente com este identificador, a mesma não deve ser declarada e sim utilizada então a variável "GerACliFor". Isso foi implementado a partir da versão 5.5.2.4.

Tela: F095CAD

Transação: Não se aplica.

Regra:

Definir Numero VSCodFor;
Definir Numero VSCgcCpf;
Definir Alfa VSNomFor;
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(VSCodFor, auxAlf);
msgStr = msgStr + "- CodFor: " + auxAlf + "." + ENTER;
IntParaAlfa(VSCodEmp, auxAlf);

@ Mostrar campos de sistema @
msgStr = msgStr + "Campos de sistema:" + ENTER;
IntParaAlfa(VSCgcCpf, auxAlf);
msgStr = msgStr + "- CgcCpf: " + auxAlf + "." + ENTER;
auxAlf = VSNomFor;
msgStr = msgStr + "- NomFor: " + 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: