Identificador de Regra

COM-435CCCRE01

Módulo: COM - Comercial.

Finalidade: Adicionar na tela de entrada, campos que não constam na grade de contrato, como por exemplo os campos de usuário.

Características: Os dados procurados pela regra, deverão ser retornados através da variável "VSAOBSAUX" do tipo ALFA. Esta variável será recebida pelo campo "Observação" que esta disponível na grade de contratos e abaixo dela na caixa de texto "Observação".

Para quebrar a linha, na variável de retorno. Deve-se utilizar uma variável alfa e atribuir a ela a funcão exemplificada abaixo.

Definir Alfa aEnter;
RetornaAscII (13, aEnter);
VSAObsAux = "Informações" +aEnter+ " Preço Unitário : " + preuni +aEnter+ " Quantidade Utilizada : " + QtdUti;

Tela: F435CCC

Transação: Não se aplica.

Regra:

Abaixo segue exemplo de regra:

Definir alfa VSAObsAux;
Definir alfa PreUni;
Definir alfa QtdUti;
Definir numero VSNCodEmp;
Definir numero VSNCodFil;
Definir numero VSNNumCtr;
Definir numero VSNSeqCcp;
Definir Cursor Cur_E460CCP;
Definir Alfa aEnter;
RetornaAscII (13, aEnter);

Cur_E460CCP.SQL "SELECT PREUNI,QTDUTI FROM E460CCP WHERE CODEMP =:VSNCodEmp AND
CODFIL =:VSNCodFil AND NUMCTR =:VSNNumCtr AND SEQCCP =:VSNSeqCcp";
Cur_E460CCP.AbrirCursor();
Se (Cur_E460CCP.Achou)
Inicio
@ Encontrou o Registro@
IntParaAlfa(Cur_E460CCP.PreUni, PreUni);
IntParaAlfa(Cur_E460CCP.QtdUti, QtdUti);
VSAObsAux = "Informações" +aEnter+ " Preço Unitário : " + preuni +aEnter+ " Quantidade Utilizada : " + QtdUti;
Fim;
Cur_E460CCP.fecharCursor();

Variáveis Disponibilizadas: