Identificador de Regra

CRE-301ENTAS01

Módulo: CRE - Contas a Receber.

Finalidade: permite informar, via regra, a situação Aberto Suspenso (AS) na geração de títulos via nota fiscal.

Características: para que o título seja criado com a situação AS - Aberto Suspenso, informe o valor Sim para a variável VSAltSit; caso contrário informe Não. O valor padrão é Sim.

Na autorização de uma nota fiscal de saída eletrônica o sistema verifica se o identificador está ativo. Caso sim, todos os títulos gerados pela nota fiscal de saída que estão com a situação igual a Aberto Suspenso (AS) serão atualizados para Aberto Normal (AB). No processo de autorização da nota fiscal de saída eletrônica, a regra associada ao identificador de regras não será executada.

Transação: não se aplica.

Regra:

@-- Exemplo de regra --@

definir alfa VSNumTit;       
definir alfa VSCodTpt;        
definir alfa VSCodTns;     
definir alfa VSAltSit;

se (VsCodTpt = "DM") 
    {
    VsAltSit = "SIM";
    }
senao 
    {
    VsAltSit = "NAO";
    };

Sugestão de regra para que não seja alterada a situação do título para "AS" quando ocorrer uma rejeição do cancelamento da nota fiscal.

@-- Exemplo de regra --@
Definir Alfa xSQL_Cursor;
Definir Alfa xSQL_Comando;
Definir Alfa VSAltSit;
Definir Numero VSCodEmp;
Definir Numero VSFilNfv;
Definir Numero VSNumNfv;
Definir Alfa VSCodSnf;
Definir Numero xSitDea;

INICIO
@ ---- procura o o documento eletrônico utilizando os valores passados para a regra ---- @

xsql_comando = "select e140ide.sitdea " +
" from e140ide " +
" where e140ide.codemp = :codemp and "+
" e140ide.codfil = :codfil and "+
" e140ide.codsnf = :codsnf and "+
" e140ide.numnfv = :numnfv ";

sql_criar(xsql_cursor);
sql_definircomando(xsql_cursor,xsql_comando);
sql_definirflutuante(xsql_cursor, "codemp", vscodemp);
sql_definirflutuante(xsql_cursor, "codfil", vsfilnfv);
sql_definiralfa(xsql_cursor, "codsnf", vscodsnf);
sql_definirflutuante(xsql_cursor, "numnfv", vsnumnfv);

sql_abrircursor(xsql_cursor);
se (sql_eof(xsql_cursor) = 0)
{
 sql_retornarflutuante(xsql_cursor, "sitdea", xsitdea);
@Situação anterior do documento eletronico não sendo solicitação de cancelamento@
se (xsitdea <> 7)
{
@Situação do documento eletronico sendo autorizada@
se (xsitdoe = 3)
{
vsaltsit = "nao";
}
senao
{
vsaltsit = "sim";
}
}
senao
{
vsaltsit = "nao";
}
}
sql_fecharcursor(xsql_cursor);
sql_destruir(xsql_cursor);

FIM;

Variáveis disponibilizadas: