Identificador de Regra

CPR-440ITEXC01

Módulo: CPR - Compras.

Finalidade: Bloquear a exclusão do item. Chamado na exclusão de um item (produto / serviço) pela combinação (CTRL + DEL).

Características: No caso da nota fiscal de entrada ainda não estar gravada no banco de dados (botão "Processar"), não será possível realizar a consulta na nota e dos seus itens (via cursores no banco). Nesse caso, se a regra não permitir a exclusão de algum determinado item e o usuário clicar no botão "Cancelar" a digitação da nota será perdida.

No caso da nota fiscal de entrada já estar gravada, o item poderá ser consultado no banco, porém novos itens inseridos após a gravação somente estarão disponíveis após a nova gravação (botão "Processar").

Tela: F440GNE

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 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 +
"[&OK]";
Mensagem(Retorna,StrAux);

GeraLog("Para Tudo");

XX = 0;
fim

Variáveis Disponibilizadas: