Identificador de Regra

GER-085CADCL02

Módulo: GER - Gerais.

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

Características: Todos os campos da tabela "E085CLI", 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 "VS + ", sendo os campos numéricos e de hora acessados na regra como tipo "NUMERO", os de data como tipo "DATA" e os caracteres ou alfanuméricos como tipo "ALFA".
Nenhum dos campos retorna valor.

Existe 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). Isso foi feito 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, esta não deve ser declarada e sim utilizada então a variável "GerACliFor".

Tela: F085CAD

Transação: Não se aplica.

Regra:

Definir Numero VSCodCli;
Definir Numero VSCgcCpf;
Definir Alfa VSNomCli;
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);

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