Identificador de Regra

GER-000MINAG01

Módulo: GER - Gerais.

Finalidade: permitir manipular os valores adicionais de lote (agronegócio). É acionado no processamento e fechamento de NFs de entrada. Os campos PERGER, PERPUR, PERUMI, DATTES, CODSLT, CODEND, CODSAF, CODTRM, CODBNF, CODCAT, CODPNE, CODETP, CODCUL, NUMTER, NUMAOG, NUMCER, NUMBOL, NUMAMO, INDFAB, CODFAB, LOTFAB, VLTFAB e PROFAB podem ser retornados ao sistema.

Características: liberado para as rotinas que gravam dados na tabela E440DLS.

Tela: Objeto para Controle de Lotes.

Transação: não se aplica.

Regra:

Definir Alfa VGerNPerGer;
Definir Alfa VGerNPerPur;
Definir Alfa VGerNPerUmi;
Definir Alfa VGerDDatTes;
Definir Alfa VGerNCodPne;
Definir Alfa VGerNCodEtp;
Definir Alfa VGerNCodCul;

Definir Alfa Quebra;
Definir Alfa StrAux;

inicio

RetornaAscii(13, Quebra);

DecimalParaAlfa(E440DLS.PerGer, VGerNPerGer);
DecimalParaAlfa(E440DLS.PerPur, VGerNPerPur);
DecimalParaAlfa(E440DLS.PerUmi, VGerNPerUmi);
ConverteMascara(3,E440DLS.DatTes, VGerDDatTes, "DD/MM/YYYY");
IntParaAlfa(E440DLS.CodPne, VGerNCodPne);
IntParaAlfa(E440DLS.CodEtp, VGerNCodEtp);
IntParaAlfa(E440DLS.CodCul, VGerNCodCul);

StrAux = Quebra +
"GerNPerGer: " + VGerNPerGer + Quebra +
"GerNPerPur: " + VGerNPerPur + Quebra +
"GerNPerUmi: " + VGerNPerUmi + Quebra +
"GerDDatTes: " + VGerDDatTes + Quebra +
"GerACodSlt: " + E440DLS.CodSlt + Quebra +
"GerACodEnd: " + E440DLS.CodEnd + Quebra +
"GerACodSaf: " + E440DLS.CodSaf + Quebra +
"GerACodTrm: " + E440DLS.CodTrm + Quebra +
"GerACodBnf: " + E440DLS.CodBnf + Quebra +
"GerACodCat: " + E440DLS.CodCat + Quebra +
"GerNCodPne: " + VGerNCodPne + Quebra +
"GerNCodEtp: " + VGerNCodEtp + Quebra +
"GerNCodCul: " + VGerNCodCul + Quebra +
"GerANumTer: " + E440DLS.NumTer + Quebra +
"GerANumAog: " + E440DLS.NumAog + Quebra +
"GerANumCer: " + E440DLS.NumCer + Quebra +
"GerANumBol: " + E440DLS.NumBol + Quebra +
"GerANumAmo: " + E440DLS.NumAmo + Quebra +
"[&OK]";
Mensagem(Retorna,StrAux);

XX = 0;
fim

Variáveis disponibilizadas:

Nome Tipo Observações Retorna Valor
E440DLS.PerGer NÚMERO Percentual de germinação S
E440DLS.PerPur NÚMERO Percentual de pureza S
E440DLS.PerUmi NÚMERO Percentual de umidade S
E440DLS.DatTes DATA Data do teste do produto S
E440DLS.CodSlt ALFA Código do status do lote S
E440DLS.CodEnd ALFA Código do endereçamento de produto S
E440DLS.CodSaf ALFA Código da safra S
E440DLS.CodTrm ALFA Código do tratamento S
E440DLS.CodBnf ALFA Código do beneficiamento S
E440DLS.CodCat ALFA Código do categoria do lote S
E440DLS.CodPne NÚMERO Código da peneira S
E440DLS.CodEtp NÚMERO Código da espécie do tipo de produto S
E440DLS.CodCul NÚMERO Código da cultivar S
E440DLS.NumTer ALFA Número do termo de conformidade S
E440DLS.NumAog ALFA Número do atestado de origem genética S
E440DLS.NumCer ALFA Número do certificado de sementes S
E440DLS.NumBol ALFA Número do boletim de análise de sementes S
E440DLS.NumAmo ALFA Número da Amostra S
E440DLS.IndFab ALFA Indica se é um lote de fabricante S
E440DLS.CodFab ALFA Código do fabricante S
E440DLS.LotFab ALFA Código de lote do fabricante S
E440DLS.VltFab DATA Data de validade do produto do fabricante S
E440DLS.ProFab ALFA Código do produto no fabricante S

 

 

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ê?