Identificador de Regra

CPR-440TNSPS01

Módulo: CPR - Compras.

Finalidade: Permitir alterar a transação dos itens do pedido, tanto produtos como serviços.

Características: Para que a nota de entrada execute a geração de um pedido no seu fechamento é necessário que a transação esteja parametrizada (GerPed=S).

Tela: U000CPR

Transação: Não se aplica.

Regra:

Definir Alfa VCprNCodEmp;
Definir Alfa VCprNCodFil;
Definir Alfa VCprNCodFor;
Definir Alfa VCprNNumNfc;
Definir Alfa VCprNSeqIpc;
Definir Alfa VCprNSeqIsc;

Definir Alfa CprACodSnf;
Definir Alfa CprATnsIpd;
Definir Alfa CprATnsIsp;

Definir Alfa Quebra;
Definir Alfa StrAux;

inicio

RetornaAscii(13, Quebra);

IntParaAlfa(CprNCodEmp, VCprNCodEmp);
IntParaAlfa(CprNCodFil, VCprNCodFil);
IntParaAlfa(CprNCodFor, VCprNCodFor);
IntParaAlfa(CprNNumNfc, VCprNNumNfc);
IntParaAlfa(CprNSeqIpc, VCprNSeqIpc);
IntParaAlfa(CprNSeqIsc, VCprNSeqIsc);

StrAux =
"CprNCodEmp: " + VCprNCodEmp + Quebra +
"CprNCodFil: " + VCprNCodFil + Quebra +
"CprNCodFor: " + VCprNCodFor + Quebra +
"CprNNumNfc: " + VCprNNumNfc + Quebra +
"CprACodSnf: " + CprACodSnf + Quebra +
"CprNSeqIpc: " + VCprNSeqIpc + Quebra +
"CprNSeqIsc: " + VCprNSeqIsc + Quebra +
"CprATnsIpd: " + CprATnsIpd + Quebra +
"CprATnsIsp: " + CprATnsIsp + Quebra +
"[&OK]";
Mensagem(Retorna,StrAux);

CprATnsIpd = "90103";
CprATnsIsp = "90100";

XX = 0;
fim

Variáveis Disponibilizadas: