Identificador de Regra

CPR-440TNSDE01

Módulo: CPR - Compras.

Finalidade: sugerir a transação de produto e serviço para dados gerais e itens nas notas fiscais de entrada manuais via OC ou via NFS. Isso pode ser verificado pela variável VSProSer (D = Dados Gerais, P = Produto e S = Serviço). O identificador será chamado antes da sugestão das transações nos dados gerais da nota fiscal de entrada e na transferência de itens (OC e NFS para os dados gerais e itens). Na chamada dos dados gerais, as transações de produto e serviço passadas na regra serão as transações da parametrização, ou seja, as que seriam sugeridas normalmente. Na chamada do itens, serão passadas sempre as transações dos dados gerais.

Características: a variável VSNUMNFC estará disponível apenas nas telas que já possuem o número ao processar. Nas demais telas, o valor ficará em branco. Telas que possuem o valor de VSNUMNFC disponível:

• F440COC - NFE - Consulta Ordem de Compra
  
• F443GNP - NF de Entrada de Produtor
  
• F435CCC - NF Produtor
  
• F440GNE - NFE - Agrupada
  
• F440NFV - NFE - Consulta de Nota de Saída
  
• F440NOR - NFE - Via Ordem de Compra Simplificada
  
• F440VER - NFE - Individual
  
• F440NFC - Notas Fiscais de Entrada

Serão carregados os valores nas variáveis CprATsiPns e CprATsiSns somente na geração de uma nota fiscal de entrada de devolução informando uma nota fiscal de saída. Na tela F440NFV, após marcar os itens, clique em Processar para acionar o identificador. Quando ele for acionado pelo dados gerais (VSProSer = D), as variáveis serão carregadas.

Telas: F440COC, F440GNE, F440NFV, F440NOR, F440VER, F440NFC, F435CCC, F443GNP e F000INE.

Transação: pode estar ligado a uma transação (produto ou serviço), porém deve ser a transação dos dados gerais da nota fiscal.

Exemplos

Definir Numero VSCodEmp;
Definir Numero VSCodFil;
Definir Alfa VSTnsPro;
Definir Alfa VSProSer;
SE ((VSCodEmp = 1) E (VSCodFil = 1)) {
SE (VSProSer = "P")
{ VSTnsPro = "1101"; }
}

 

Definir Cursor Cur_tnsUf;
Definir Numero VSCodEmp;
Definir Numero VSCodFil;
Definir Alfa VSSigUfs;
Definir Alfa VSTnsPro;
Definir Alfa VSTnsSer;
Definir Cursor Cur_tnsUf;

/* Exemplo para compra, sequência = 1 */

Cur_tnsUf.sql "SELECT TNSPRO, TNSSER FROM E009PTE where E009PTE.CODEMP = :VSCodEmp AND E009PTE.CODFIL = :VSCodFil AND E009PTE.SEQPTE = 1 AND E009PTE.SIGUFS = :VSSigUfs ";
Cur_tnsUf.AbrirCursor();

ENQUANTO (Cur_tnsUf.Achou)
Inicio
VSTnsPro = Cur_tnsUf.TNSPRO;
VSTnsSer = Cur_tnsUf.TNSSER;
Cur_tnsUf.Proximo();
Fim;
Cur_tnsUf.FecharCursor();

 

Definir Cursor Cur_tnsUf;
Definir Numero VSCodEmp;
Definir Numero VSCodFil;
Definir Alfa VSSigUfs;
Definir Alfa VSProSer;

Definir Alfa VSCODTNS;

/* Exempro para venda, sequencia = 2 */

Definir Cursor Cur_tnsUf;
Cur_tnsUf.sql "SELECT TNSPRO, TNSSER FROM E009PTE where E009PTE.CODEMP = :VSCodEmp AND E009PTE.CODFIL = :VSCodFil AND E009PTE.SEQPTE = 2 AND E009PTE.SIGUFS = :VSSigUfs ";
Cur_tnsUf.AbrirCursor();

ENQUANTO (Cur_tnsUf.Achou)
Inicio
Se (VSProSer = "P")
VSCODTNS = Cur_tnsUf.TNSPRO;
Senao
VSCODTNS = Cur_tnsUf.TNSSER;
Cur_tnsUf.Proximo();
Fim;
Cur_tnsUf.FecharCursor();

Variáveis disponibilizadas: