Identificador de Regra

CPR-435ALPRO01

Módulo: CPR - Compras.

Finalidade: esse identificador é responsável por disparar a pesagem de saída.

Tela: F435CCC.

Transação: não se aplica.

Regra:

Definir Numero CprNCodEmp;
Definir Numero CprNCodFil;
Definir Numero CprNDatEnt;
Definir Numero CprNSeqEnt;
Definir Numero CprNCodFor;
Definir Numero CprNPesEnt;
Definir Numero CprNPesSai;
Definir Numero CprNQtdDec;

Definir Alfa CprAProPes;
Definir Alfa CprADerPes;
Definir Alfa CprACodTrg;
Definir Alfa CprACodDep;

Definir Numero obtValorNumero_CodIcl;
Definir Numero obtValorNumero_SeqIcl;
Definir Numero obtValorNumero_CodMph;
Definir Numero obtValorNumero_VphIni;
Definir Numero obtValorNumero_UmiIni;
Definir Numero obtValorNumero_UmiFin;
Definir Numero obtValorNumero_VlrMel;
Definir Numero obtValorNumero_VphFin;
Definir Numero obtValorNumero_PesAmo;
Definir Numero obtValorNumero_ResAmo;
Definir Numero obtValorNumero_PerApu;
Definir Numero obtValorNumero_PerDsc;
Definir Numero obtValorNumero_QtdBas;
Definir Numero obtValorNumero_QtdDsc;

Definir Alfa obtValorAlfa_AltIde;
Definir Alfa obtValorAlfa_IndObg;
Definir Alfa obtValorAlfa_ProGer;
Definir Alfa obtValorAlfa_DerGer;
Definir Alfa obtValorAlfa_TnsGer;
Definir Alfa obtValorAlfa_UsaAmo;

Definir Numero CprNListaCla;
Definir Alfa CprA_S_N;

ListaRegraPrimeiro(CprNListaCla, CprA_S_N); /*Posiciona no primeiro registro da lista*/
se (CprA_S_N = "S")
inicio
  CprA_S_N = "N";  
  enquanto (CprA_S_N <> "S") /*Enquanto não estiver no final da lista entra no laço.*/
  inicio
    ListaRegraObterValorNumero(CprNListaCla, "CodIcl", obtValorNumero_CodIcl, CprA_S_N);
    ListaRegraObterValorNumero(CprNListaCla, "SeqIcl", obtValorNumero_SeqIcl, CprA_S_N);
    ListaRegraObterValorNumero(CprNListaCla, "CodMph", obtValorNumero_CodMph, CprA_S_N);
    ListaRegraObterValorNumero(CprNListaCla, "VphIni", obtValorNumero_VphIni, CprA_S_N);
    ListaRegraObterValorNumero(CprNListaCla, "UmiIni", obtValorNumero_UmiIni, CprA_S_N);
    ListaRegraObterValorNumero(CprNListaCla, "UmiFin", obtValorNumero_UmiFin, CprA_S_N);
    ListaRegraObterValorNumero(CprNListaCla, "VlrMel", obtValorNumero_VlrMel, CprA_S_N);
    ListaRegraObterValorNumero(CprNListaCla, "VphFin", obtValorNumero_VphFin, CprA_S_N);
    ListaRegraObterValorNumero(CprNListaCla, "PesAmo", obtValorNumero_PesAmo, CprA_S_N);
    ListaRegraObterValorNumero(CprNListaCla, "ResAmo", obtValorNumero_ResAmo, CprA_S_N);
    ListaRegraObterValorNumero(CprNListaCla, "PerApu", obtValorNumero_PerApu, CprA_S_N);
    ListaRegraObterValorNumero(CprNListaCla, "PerDsc", obtValorNumero_PerDsc, CprA_S_N);
    ListaRegraObterValorNumero(CprNListaCla, "QtdBas", obtValorNumero_QtdBas, CprA_S_N);
    ListaRegraObterValorNumero(CprNListaCla, "QtdDsc", obtValorNumero_QtdDsc, CprA_S_N);
  
    ListaRegraObterValorAlfa(CprNListaCla, "AltIde", obtValorAlfa_AltIde, CprA_S_N);
    ListaRegraObterValorAlfa(CprNListaCla, "IndObg", obtValorAlfa_IndObg, CprA_S_N); 
    ListaRegraObterValorAlfa(CprNListaCla, "ProGer", obtValorAlfa_ProGer, CprA_S_N); 
    ListaRegraObterValorAlfa(CprNListaCla, "DerGer", obtValorAlfa_DerGer, CprA_S_N); 
    ListaRegraObterValorAlfa(CprNListaCla, "TnsGer", obtValorAlfa_TnsGer, CprA_S_N); 
    ListaRegraObterValorAlfa(CprNListaCla, "UsaAmo", obtValorAlfa_UsaAmo, CprA_S_N); 
    
	  se ((obtValorNumero_CodIcl > 1) e (obtValorNumero_PerDsc > 3))
	  inicio
	    CprAProPes = "CEV0002";
	    CprADerPes = "0002";
	    CprACodDep = "1";
	    pare;
	  fim 
  
    ListaRegraProximo(CprNListaCla, CprA_S_N); /*Posiciona no próximo registro;*/
    ListaRegraFim(CprNListaCla, CprA_S_N); /*Atualiza variável final de lista*/
  fim
fim

ListaRegraSalvarLista(CprNListaCla, "C:\\ERP", "listaCSV", "C");

Variáveis disponibilizadas:

Nome Tipo Observações Retorna Valor
CprNCodEmp NÚMERO Código da empresa N
CprNCodFil NÚMERO Código da filial N
CprNDatEnt NÚMERO Data de entrada N
CprNSeqEnt NÚMERO Sequência de entrada N
CprNCodFor NÚMERO Código do Fornecedor N
CprAProPes ALFA Código do produto que esta sendo pesado e pode ser substituído. N
CprADerPes ALFA Código da derivação do produto que esta sendo pesado e pode ser substituído. N
CprACodDep ALFA Código do depósito do produto que esta sendo pesado e pode ser substituído. N
CprACodTrg ALFA Código da transgenia do produto que esta sendo pesado e pode ser substituída. N
CprNPesEnt NÚMERO Peso de entrada do veículo na unidade de peso da balança. N
CprNPesSai NÚMERO Peso de saída do veículo na unidade de peso da balança. N
CprNPesOri NÚMERO Peso de origem da carga. N
CprNQtdDec NÚMERO Quantidade de decimais que deve ser utilizada para arredondamento de possíveis cálculos e que utilizada pelo sistema. N
CprAGPeOri ALFA Gerar pelo peso de origem? Retornar: S para Sim e N para Não. N

Variáveis disponibilizadas dentro da lista CprNListaCla:

Nome Tipo Observações Retorna Valor
CodIcl NÚMERO Código do item de classificação. N
SeqIcl NÚMERO Sequência do item de classificação. N
CodMph NÚMERO Código de melhoria de PH. N
VphIni NÚMERO Ph inicial. N
UmiIni NÚMERO Umidade inicial da regra de PH. N
UmiFin NÚMERO Umidade inicial da regra de PH. N
VlrMel NÚMERO Umidade inicial da regra de PH N
VphFin NÚMERO Ph final. N
PesAmo NÚMERO Peso da amostra. N
ResAmo NÚMERO Resultado da amostra. N
PerApu NÚMERO Percentual apurado. N
PerDsc NÚMERO Percentual de desconto. N
QtdBas NÚMERO Quantidade que foi base de cálculo utilizada no cálculo do desconto. N
QtdDsc NÚMERO Quantidade de desconto calculada. N
AltIde ALFA Desconto alterado via identificador de regras. N
IndObg ALFA Indicativo de obrigatoriedade do item de classificação. N
ProGer ALFA Código do subproduto gerado N
DerGer ALFA Código da derivação do subproduto gerado N
TnsGer ALFA Código da derivação do subproduto gerado N
UsaAmo ALFA Utiliza amostra. N

Este artigo ajudou você?