Identificador de Regra

CPR-440VLRMO02

Módulo: CPR - Compras.

Finalidade: permitir alterar o valor líquido de uma nota tipo 7 ou 8 usado na valorização dos itens das notas de origem. O valor passado para a regra será o valor líquido da nota, sem qualquer alteração.

Características: esse identificador somente será executado se o parâmetro Considera Parâmetros das Origens NF Frete (E070CPR.CPRNFO) dos parâmetros da filial para compras e recebimento estiver configurado como 0 - Nunca Considerar ou 2 - Perguntar. No segundo caso será exibida ao usuário a mensagem Deseja fazer crédito dos impostos levando em consideração a parametrização de recuperação das notas fiscais de origem? Caso Sim, a rotina irá desconsiderar o identificador de regras.

O mesmo pode estar ligado a uma regra ou não. Não havendo regra, será assumido o valor líquido da nota. Havendo regra, o valor deve ser retornado dela e não pode ser menor ou igual a zero.

Transação: não se aplica.

Regra:

Definir Alfa VVSCodEmp;
Definir Alfa VVSCodFil;
Definir Alfa VVSNumNfc;
Definir Alfa VVSCodFor;
Definir Alfa VVSTipNfe;
Definir Alfa VVSVlrMov;

Definir Alfa VSCodSnf;

Definir Alfa Quebra;
Definir Alfa StrAux;

inicio

RetornaAscii(13, Quebra);

IntParaAlfa(VSCodEmp, VVSCodEmp);
IntParaAlfa(VSCodFil, VVSCodFil);
IntParaAlfa(VSNumNfc, VVSNumNfc);
IntParaAlfa(VSCodFor, VVSCodFor);
IntParaAlfa(VSTipNfe, VVSTipNfe);
DecimalParaAlfa(VSVlrMov, VVSVlrMov);

StrAux = 
         "VSCodEmp: " + VVSCodEmp + Quebra + 
         "VSCodFil: " + VVSCodFil + Quebra + 
         "VSNumNfc: " + VVSNumNfc + Quebra + 
         "VSCodFor: " + VVSCodFor + Quebra + 
         "VSCodSnf: " + VSCodSnf + Quebra + 
         "VSTipNfe: " + VVSTipNfe + Quebra + 
         "VSVlrMov: " + VVSVlrMov + Quebra + 
         "[&OK]";
Mensagem(Retorna,StrAux);

XX = 0;
fim

Variáveis disponibilizadas: