Identificador de Regra

CPR-440TNSES01

Módulo: CPR - Compras.

Finalidade: Permitir alterar a transação que movimenta estoques no fechamento das notas fiscais de entrada dos tipos 7 (NF Geração Manual) e 8 (NF Frete/Serviços Agregados).

Características: É passada para a regra ligada ao identificador a chave de registro do item da nota, juntamente com a transação do produto (transação do item da nota fiscal de origem e não do item da nota fiscal de entrada do tipo 7 ou 8), bem como a transação de integração com o estoque sugerida pelo sistema.

É executado nas situações:

* Notas fiscais de entrada do tipo 7
- o identificador de regras CPR-440VLRFT01 não pode estar ativo;
- as notas vinculadas (botão NF Origem) devem ser de entrada;
- a transação deve considerar valorização dos estoques.

* Notas fiscais de entrada do tipo 8 - além dos quesitos acima,
- o parâmetro "Considerar Parâmetros das Origens NF Frete" da tela F070FCP deve estar definido como "0 - Nunca Considerar" ou "2 - Perguntar" e no questionamento "Deseja fazer crédito dos impostos levando em consideração a parametrização de recuperação das notas fiscais de origem?" realizado no fechamento da nota fiscais de entrada deve ser respondido "Não".

Transação: Pode estar ligado a transação de produto (transação do item da nota fiscal de origem e não do item da nota fiscal de entrada do tipo 7 ou 8).

Regra:

Deve estar ligado a uma regra.

------------------------------------

Definir Alfa VVSCodEmp;
Definir Alfa VVSCodFil;
Definir Alfa VVSCodFor;
Definir Alfa VVSNumNfc;
Definir Alfa VVSSeqIpc;

Definir Alfa VSCodSnf;
Definir Alfa VSTnsPro;
Definir Alfa VSTnsEst;

Definir Alfa Quebra;
Definir Alfa StrAux;

inicio

RetornaAscii(13, Quebra);

IntParaAlfa(VSCodEmp, VVSCodEmp);
IntParaAlfa(VSCodFil, VVSCodFil);
IntParaAlfa(VSCodFor, VVSCodFor);
IntParaAlfa(VSNumNfc, VVSNumNfc);
IntParaAlfa(VSSeqIpc, VVSSeqIpc);

StrAux = Quebra +
"VSCodEmp: " + VVSCodEmp + Quebra +
"VSCodFil: " + VVSCodFil + Quebra +
"VSCodFor: " + VVSCodFor + Quebra +
"VSNumNfc: " + VVSNumNfc + Quebra +
"VSCodSnf: " + VSCodSnf + Quebra +
"VSSeqIpc: " + VVSSeqIpc + Quebra +
"VSTnsPro: " + VSTnsPro + Quebra +
"VSTnsEst: " + VSTnsEst + Quebra +
"[&OK]";
Mensagem(Retorna,StrAux);

XX = 0;
fim

Variáveis Disponibilizadas: