Identificador de Regra

CPR-440TNSAI01

Módulo: CPR - Compras.

Finalidade: Sugerir uma transação de saída para transferência de uma série na tela F440DMC.

Este identificador funciona em conjunto com o CPR-440DECON01 que indica que a série possui defeito. Com isso a série deve ser transferida para tal depósito e a transação de saída deve ser sugerida através do identificador CPR-440TNSAI01 porque não há parametrização para isso. Sempre que houver séries com defeito (nessa rotina), para que seja feita a transferência da série, é obrigatório o uso do identificador CPR-440TNSAI01, caso contrário, a transferência não será efetuada, ou seja, a série ficará no depósito sugerido na devolução.

Chamado a cada transferência de série. Cada série com defeito terá um movimento de entrada normal, saída e um de entrada para o novo depósito.

Tela: F440DMC

Transação: Não se aplica.

Regra:

O exemplo mostra uma mensagem com os valores que a regra passa e sugerir a transação 90235.

Definir Alfa VCodEmp;
Definir Alfa VCodFil;
Definir Alfa VNumNfc;
Definir Alfa VCodFor;
Definir Alfa VSeqIpc;

Definir Alfa VSCodSnf;
Definir Alfa VSTnsSai;

Definir Alfa Quebra;
Definir Alfa StrAux;

inicio

RetornaAscii(13, Quebra);

IntParaAlfa(VSCodEmp, VCodEmp);
IntParaAlfa(VSCodFil, VCodFil);
IntParaAlfa(VSNumNfc, VNumNfc);
IntParaAlfa(VSCodFor, VCodFor);
IntParaAlfa(VSSeqIpc, VSeqIpc);

VSTnsSai = "90253";

StrAux =
"CodEmp: " + VCodEmp + Quebra +
"CodFil: " + VCodFil + Quebra +
"NumNfc: " + VNumNfc + Quebra +
"CodSnf: " + VSCodSnf + Quebra +
"CodFor: " + VCodFor + Quebra +
"SeqIpc: " + VSeqIpc + Quebra +
"TnsSai: " + VSTnsSai + Quebra +
"[&OK]";
Mensagem(Retorna,StrAux);

Fim

Variáveis Disponibilizadas: