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.