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:

Variáveis disponibilizadas dentro da lista CprNListaCla: