English
Español
Identificador de Regra
VEN-140NEGRE01
Módulo: VEN - Vendas.
Finalidade: utilizado para preencher os campos do grupo de exportação da NFe (nDraw, nRE, chNFe, qExport e NatExp). Para as tags nRE, chNFe e qExport serem impressas, é necessário que a variável NatExp seja igual a 1 (ver Exemplo 1 de regra).
Também é usado na geração das tags do grupo detExport na emissão de notas fiscais tipo 3 - NF Devolução utilizando o CFOP 3.503 na tela F440GNE (ver Exemplo 2 de regra).
Transação: não se aplica.
Regra:
Exemplo 1:
Definir Número VSIntNumDra;
Definir Número VSIntNumExp;
Definir Número VSIntChaNFe;
Definir Número VSIntQtdExp;
Definir Número VSIntNatExp;
VSIntNumDra = "47";
VSIntNumExp = "42";
VSIntChaNFe = "12345678912345678912345678912345678912345678";
VSIntQtdExp = "1";
VSIntNatExp = "1";
Exemplo 2:
Definir Cursor Cur_E140IPV;
Definir Cursor Cur_E440IPC;
Definir Numero VSIntCodEmp;
Definir Numero VSIntCodFil;
Definir Alfa VSIntCodSnf;
Definir Numero VSIntNumNfv;
Definir Numero VSINTSeqIpv;
Definir Numero xCodEmpNfc;
Definir Numero xCodFilNfc;
Definir Numero xCodForNfc;
Definir Alfa xCodSnfNfc;
Definir Numero xCodNumNfc;
Definir Numero xSeqIpcNfc;
Definir Numero xCodEmpNfv;
Definir Numero xCodFilNfv;
Definir Alfa xCodSnfNfv;
Definir Numero xCodNumNfv;
Definir Numero xSeqIpcNfv;
Definir Alfa VSIntNumDra;
Definir Alfa VSIntNumExp;
Definir Alfa VSIntChaNfe;
Definir Alfa VSIntNatExp;
Definir Numero VSIntQtdExp;
@ Busca a chave da nota de devolução de entrada pela nota de devolução de saída @
Cur_E140IPV.SQL "SELECT E140IPV.CODEMP, E140IPV.FILNFC, E140IPV.CODFOR, E140IPV.SNFNFC, E140IPV.NUMNFC, E140IPV.SEQIPC \
FROM E140IPV \
WHERE E140IPV.CODEMP = :VSIntCodEmp \
AND E140IPV.CODFIL = :VSIntCodFil \
AND E140IPV.CODSNF = :VSIntCodSnf \
AND E140IPV.NUMNFV = :VSIntNumNfv \
AND E140IPV.SEQIPV = :VSINTSeqIpv";
Cur_E140IPV.AbrirCursor();
SE (Cur_E140IPV.Achou)
INICIO
xCodEmpNfc = Cur_E140IPV.CODEMP;
xCodFilNfc = Cur_E140IPV.FILNFC;
xCodForNfc = Cur_E140IPV.CODFOR;
xCodSnfNfc = Cur_E140IPV.SNFNFC;
xCodNumNfc = Cur_E140IPV.NUMNFC;
xSeqIpcNfc = Cur_E140IPV.SEQIPC;
FIM;
Cur_E140IPV.FecharCursor();
@ Busca a chave da nota de saída pela nota de devolução de entrada @
Cur_E440IPC.SQL "SELECT E440IPC.EMPNFV, E440IPC.FILNFV, E440IPC.SNFNFV, E440IPC.NUMNFV, E440IPC.SEQIPV \
FROM E440IPC \
WHERE E440IPC.CODEMP = :xCodEmpNfc \
AND E440IPC.CODFIL = :xCodFilNfc \
AND E440IPC.CODFOR = :xCodForNfc \
AND E440IPC.CODSNF = :xCodSnfNfc \
AND E440IPC.NUMNFC = :xCodNumNfc \
AND E440IPC.SEQIPC = :xSeqIpcNfc";
Cur_E440IPC.AbrirCursor();
SE (Cur_E440IPC.Achou)
INICIO
xCodEmpNfv = Cur_E440IPC.EMPNFV;
xCodFilNfv = Cur_E440IPC.FILNFV;
xCodSnfNfv = Cur_E440IPC.SNFNFV;
xCodNumNfv = Cur_E440IPC.NUMNFV;
xSeqIpcNfv = Cur_E440IPC.SEQIPV;
FIM;
Cur_E440IPC.FecharCursor();
@ Busca os dados dos campos do grupo de exportação da Nfe @
Cur_E140IPV.SQL "SELECT E140IPV.NUMDRB, E140IPV.NUMRDE, E140IPV.CHVNEX, E140IPV.NATEXP, E140IPV.QTDVEN \
FROM E140IPV \
WHERE E140IPV.CODEMP = :xCodEmpNfv \
AND E140IPV.CODFIL = :xCodFilNfv \
AND E140IPV.CODSNF = :xCodSnfNfv \
AND E140IPV.NUMNFV = :xCodNumNfv \
AND E140IPV.SEQIPV = :xSeqIpcNfv";
Variáveis disponibilizadas:
| Nome | Tipo | Observações | Retorna Valor |
|---|---|---|---|
| VSIntCodEmp | NÚMERO | Código da Empresa | N |
| VSIntCodFil | NÚMERO | Código da Filial | N |
| VSIntCodSnf | ALFA | Código da Série da NFe | N |
| VSIntNumNfv | NÚMERO | Número da NFe | N |
| VSIntNumDra | ALFA | Número do Drawback | S |
| VSIntNumExp | ALFA | Número do Registro de Exportação | S |
| VSIntChaNFe | ALFA | Chave de Acesso da NF-e recebida | S |
| VSIntQtdExp | ALFA | Quantidade do item exportado | S |
| VSIntNatExp | ALFA | Indica Exportação Indireta | S |
| VSINTSeqIpv | NÚMERO | Sequência do item na nota fiscal | N |
Atenção
Caso o parâmetro global LisVarReg esteja habilitado, a variável ListaVariaveis estará disponível em todos os identificadores de regras do sistema. O conteúdo desta variável lista os campos disponibilizados no identificador de regras em questão.
Não é aconselhada a ativação desse parâmetro global para o uso cotidiano. Esse recurso de listagem dos campos de identificadores auxilia a construção de regras e o Suporte para, por exemplo, depuração ou quando não houver acesso à documentação dos identificadores de regras.
English
Español
