Esta versão do sistema foi descontinuada e não recebe atualizações e novas implementações. Acesse a documentação da versão 5.10.3 aqui

Identificador de Regra

CPR-435UNMED01

Módulo: CPR - Compras.

Finalidade: permite a conversão de unidades de medida do produto recebido, por exemplo, KG's (quilos) para TO's (toneladas).

Características: a rotina é executada no momento em que o sistema efetua a conversão de unidades de medidas, desde que possua regra vinculada ao identificador.

Tela: F435CCC

Transação: Não se aplica.

Regra:

@Exemplo de regra: @

Definir Numero CprNCodEmp;
Definir Numero CprNCodFil;
Definir Numero CprNDatEnt;
Definir Numero CprNSeqEnt;
Definir Numero CprNCodFor;
Definir Numero CprNPesEnt;
Definir Numero CprNPesSai;
Definir Numero CprNQtdOri;
Definir Numero CprNQtdDec;
Definir Numero CprNPesConv;
Definir Alfa CprAProPes;
Definir Alfa CprADerPes;
Definir Alfa CprAUniMed_De;
Definir Alfa CprAUniMed_Para;
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);
			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");
CprNPesConv = CprNQtdOri / 1000;

x=y;

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 da pesagem N
CprNSeqEnt NÚMERO Sequência de entrada da pesagem N
CprNCodFor NÚMERO Código do Fornecedor. 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
CprNQtdOri NÚMERO Quantidade que deve ser convertida, equivalente a (CprNPesEnt - CprNPesSai). N
CprNQtdDec NÚMERO Quantidade de decimais que deve ser utilizada para arredondamento de cálculos. N
CprAProPes ALFA Código do produto que está sendo pesado. N
CprADerPes ALFA Código da derivação do produto que está sendo pesado. N
CprAUniMed_De ALFA Código da Unidade de medida de origem, exemplo KG. N
CprAUniMed_Para ALFA Código da unidade de medida de destino, exemplo MT³. N
CprNPesConv NÚMERO Variável que deve ser utilizada para retornar o peso convertido. S

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 final da regra de pH. N
VlrMel NÚMERO Valor de melhoria 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 Transação da derivação do subproduto gerado N
UsaAmo ALFA Utiliza amostra? N

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