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: