Identificador de Regra

CPR_115CPLIP01

Módulo: CPR - Compras.

Finalidade: Para os registro de pesagem informado na requisição, via regra é possível informar ao ERP (Gestão Empresarial | ERP) informações que podem não vir na requisição do web service ou até mesmo substituir alguma informação recebida como parâmetro por outra desejada e definida via regra customizada.

Regra

definir numero CprNCodEmp;

definir numero CprNCodFil;

definir numero CprNCodTra;

definir alfa CprAPlaVei;

definir alfa CprACodPro;

definir alfa CprACodDer;

definir alfa CprACodSaf;

definir alfa CprACodTrg;

definir alfa CprACodDep;

definir alfa CprAIndPre;

Definir Numero CprNListPar; /*Lista dos participantes da pesagem*/

Definir Numero CprNListCtr; /*Lista dos contratos da pesagem*/

Definir Numero CprNListNfc; /*Lista de notas informada para a pesagem*/

definir numero participante_CodFor;

definir numero participante_PerPar;

definir numero participante_QtdPar;

definir numero participante_SeqOrm;

definir numero contrato_CodFor;

definir numero contrato_NumCtr;

definir numero contrato_SeqCcp;

definir numero nota_CodFor;

definir numero nota_NumNfc;

definir alfa nota_CodSnf;

definir alfa nota_ChvNel;

Definir Alfa CprA_S_N;

ListaRegraPrimeiro(CprNListPar, 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(CprNListPar, "CodFor", participante_CodFor, CprA_S_N);

ListaRegraObterValorNumero(CprNListPar, "PerPar", participante_PerPar, CprA_S_N);

ListaRegraObterValorNumero(CprNListPar, "QtdPar", participante_QtdPar, CprA_S_N);

ListaRegraObterValorNumero(CprNListPar, "SeqOrm", participante_SeqOrm, CprA_S_N);

ListaRegraProximo(CprNListPar, CprA_S_N); /*Posiciona no próximo registro;*/

ListaRegraFim(CprNListPar, CprA_S_N); /*Atualiza variável final de lista*/

fim

ListaRegraPrimeiro(CprNListCtr, 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(CprNListCtr, "CodFor", contrato_CodFor, CprA_S_N);

ListaRegraObterValorNumero(CprNListCtr, "NumCtr", contrato_NumCtr, CprA_S_N);

ListaRegraObterValorNumero(CprNListCtr, "SeqCcp", contrato_SeqCcp, CprA_S_N);

ListaRegraProximo(CprNListCtr, CprA_S_N); /*Posiciona no próximo registro;*/

ListaRegraFim(CprNListCtr, CprA_S_N); /*Atualiza variável final de lista*/

fim

ListaRegraPrimeiro(CprNListNfc, 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(CprNListNfc, "CodFor", nota_CodFor, CprA_S_N);

ListaRegraObterValorNumero(CprNListNfc, "NumNfc", nota_NumNfc, CprA_S_N);

ListaRegraObterValorAlfa(CprNListNfc, "CodSnf", nota_CodSnf, CprA_S_N);

ListaRegraObterValorAlfa(CprNListNfc, "ChvNel", nota_ChvNel, CprA_S_N);

ListaRegraProximo(CprNListNfc, CprA_S_N); /*Posiciona no próximo registro;*/

ListaRegraFim(CprNListNfc, CprA_S_N); /*Atualiza variável final de lista*/

fim

/*Variáveis que podem retornar valor e que regras podem ser escritas*/

CprACodPro = "TRIGO";

CprACodDer = " ";

CprNCodTra = 1;

CprACodTrg = "1";

CprACodSaf = "19/2020";

Variáveis disponibilizadas

Nome	Tipo	Observações	Retorna valor?
CprNCodEmp	Número	Código da empresa.	N - Não
CprNCodFil	Número	Código da filial.	N - Não
CprAPlaVei	Alfa	Placa do veículo.	N - Não
CprAIndPre	Alfa	É um pré-cadastro.	N - Não
CprAUpeOri	Número	Utilizar peso da origem.	S - Sim
CprACodPro	Alfa	Código do produto recebido na requisição do web service e que será utilizado, se não substituído via regra, para gerar o ticket de pesagem.	S - Sim
CprACodDer	Alfa	Código da derivação do produto recebido na requisição do web service e que será utilizado, se não substituído via regra, para gerar o ticket de pesagem.	S - Sim
CprACodTra	Número	Código da transportadora recebido na requisição do web service e que será utilizado, se não substituído via regra, para gerar o ticket de pesagem.	S - Sim
CprACodTrg	Alfa	Código da transgenia recebido na requisição do web service e que será utilizado, se não substituído via regra, para gerar o ticket de pesagem. Essa é uma informação que não é enviada pelo sistema de Gestão de Pátio ao ERP (Gestão Empresarial \| ERP).	S - Sim
CprACodSaf	Alfa	Código da safra recebido na requisição do web service e que será utilizado, se não substituído via regra, para gerar o ticket de pesagem. Essa é uma informação que não é enviada pelo sistema de Gestão de Pátio ao ERP (Gestão Empresarial \| ERP).	S - Sim
CprACodDep	Alfa	Código do depósito recebido na requisição do web service e que será utilizado, se não substituído via regra, para gerar o ticket de pesagem. Essa é uma informação que não é enviada pelo sistema de Gestão de Pátio ao ERP (Gestão Empresarial \| ERP).	S - Sim

Variáveis da lista CprNListPar - Fornecedores participantes da pesagem

Nome	Tipo	Observações	Retorna valor?
CodFor	Número	Código do participante da pesagem.	N - Não
SeqOrm	Número	Origem de mercadoria do fornecedor.	N - Não
PerPar	Número	Percentual de participação.	N - Não
QtdPar	Número	Quantidade de participação.	N - Não

Variáveis da lista CprNListCtr - Contratos do participante da pesagem

Nome	Tipo	Observações	Retorna valor?
CodFor	Número	Código do participante da pesagem.	N - Não
NumCtr	Número	Número do contrato.	N - Não
SeqCcp	Número	Sequência do item do contrato.	N - Não
FilCtr	Número	Filial do Contrato.	N - Não

Variáveis da lista CprNListNfc - Contratos do participante da pesagem

Nome	Tipo	Observações	Retorna valor?
CodFor	Número	Código do participante da pesagem.	N - Não
NumNfc	Número	Número da nota.	N - Não
CodSnf	Número	Código da série da nota.	N - Não
ChvNel	Número	Chave da nota.	N - Não

PORTAL DE DOCUMENTAÇÃO
Gestão Empresarial \| ERP - versão 5.10.2 (XTended)