Identificador de Regra

CPR-440RECAN01

Módulo: CPR - Compras.

Finalidade: Fazer tratamentos durante a reabilitação ou cancelamento das notas fiscais de entrada.

Tela: Notas Fiscais de Entrada

Transação: Pode estar ligado à transação dos dados gerais da nota fiscal, podendo ser a transação de produto ou a transação de serviço

Regra:

Definir Alfa VNumNfc;
Definir Alfa VCodFor;
Definir Alfa VCodEmp;
Definir Alfa VCodFil;
Definir Alfa VSReaCan;
Definir Alfa VSCodSnf;
Definir Alfa Quebra;
Definir Alfa StrAux;

inicio

RetornaAscii(13, Quebra);

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

se (VSReaCan = "CANCELAR")
inicio
StrAux = "CANCELANDO NOTA FISCAL " + Quebra +
"NumNfc: " + VNumNfc + Quebra +
"CodFor: " + VCodFor + Quebra +
"CodEmp: " + VCodEmp + Quebra +
"CodFil: " + VCodFil + Quebra +
"CodSnf: " + VSCodSnf + Quebra +
"[&OK]";
fim;
senao
inicio
se (VSReaCan = "REABILITAR")
StrAux = "REABILITANDO NOTA FISCCAL " + Quebra +
"NumNfc: " + VNumNfc + Quebra +
"CodFor: " + VCodFor + Quebra +
"CodEmp: " + VCodEmp + Quebra +
"CodFil: " + VCodFil + Quebra +
"CodSnf: " + VSCodSnf + Quebra +
"[&OK]";
fim;

Mensagem(Retorna,StrAux);
fim;

Variáveis Disponibilizadas: