Identificador de Regra

GER-000CRAVR01

Módulo: GER - Gerais.

Finalidade: No processo do rateio montar o rateio via regra através da função "AdicionaRateioRegra".

Características: Variáveis adicionadas a partir da versão: 5.6.2.1:

VSRATValorBase;
VSRATCriterio;
VSRATDataBase;
VSRATMesAno;
VSRATCtaClassificar;
VSRATCtbClassificar;
VSRATCcuClassificar;
VSRATTransacao;
VSRATChaveOrigem;
VSRATOrigem;
VSRATTipoRateio;
VSRATTipoValor;
VSRATOperacaoRateio;
VSRATPrecisao;
VSRATProduto;
VSRATServico;
VSRATDerivacao;
VSRATComplemento;
VSRATSequencia;
VSRATTipoNatContas;

Tela: Todas

Transação: Pode estar ligado à transação.

Regra:

Esse exemplo irá definir o rateio do título por tipo de imposto.

DEFINIR NUMERO VSRATValorBase;
DEFINIR ALFA VSRATCriterio;
DEFINIR DATA VSRATDataBase;
DEFINIR DATA VSRATMesAno;
DEFINIR NUMERO VSRATCtaClassificar;
DEFINIR NUMERO VSRATCtbClassificar;
DEFINIR ALFA VSRATCcuClassificar;
DEFINIR ALFA VSRATTransacao;
DEFINIR ALFA VSRATChaveOrigem;
DEFINIR ALFA VSRATOrigem;
DEFINIR ALFA VSRATTipoRateio;
DEFINIR ALFA VSRATTipoValor;
DEFINIR ALFA VSRATOperacaoRateio;
DEFINIR NUMERO VSRATPrecisao;
DEFINIR ALFA VSRATProduto;
DEFINIR ALFA VSRATServico;
DEFINIR ALFA VSRATDerivacao;
DEFINIR ALFA VSRATComplemento;
DEFINIR NUMERO VSRATSequencia;
DEFINIR ALFA VSRATTipoNatContas;

@variáveis aux@
DEFINIR NUMERO xEmpresa;
DEFINIR ALFA xTitulo;
DEFINIR ALFA xTipoTitulo;
DEFINIR NUMERO xTipoImposto;
DEFINIR ALFA xCursor;
DEFINIR ALFA xSqlAux;
DEFINIR ALFA xChaveOrigemAux;

@transação de imposto@
se (VSRATTransacao = "90508")
inicio
xSqlAux = "SELECT TIPIMP FROM E501TCP WHERE " +
"E501TCP.CodEmp = :xEmpresa AND " +
"E501TCP.CodFil = :xFilial AND " +
"E501TCP.NumTit = :xTitulo AND " +
"E501TCP.CodTpt = :xTipoTitulo AND " +
"E501TCP.CodFor = :xFornecedor ";

xEmpresa = 0;
xFilial = 0;
xTitulo = "";
xTipoTitulo = "";
xFornecedor = 0;
xChaveOrigemAux = VSRATChaveOrigem;
PosicaoAlfa(";", xChaveOrigemAux, xPosicao);
enquanto (xPosicao > 0)
inicio
CopiarAlfa(xChaveOrigemAux, 1, xPosicao-1);
se (xEmpresa = 0)
AlfaParaInt(xChaveOrigemAux,xEmpresa);
senao
se (xFilial = 0)
AlfaParaInt(xChaveOrigemAux,xFilial);
senao
se (xTitulo = "")
xTitulo = xChaveOrigemAux;
senao
se (xTipoTitulo = "")
xTipoTitulo = xChaveOrigemAux;
senao
se (xFornecedor = 0)
AlfaParaInt(xChaveOrigemAux,xFornecedor);

DeletarStr(VSRATChaveOrigem, 1, xPosicao);
PosicaoAlfa(";", VSRATChaveOrigem, xPosicao);
xChaveOrigemAux = VSRATChaveOrigem;
fim;

SQL_Criar(xCursor);
SQL_DefinirComando(xCursor,xSqlAux);
SQL_DefinirInteiro(xCursor,"xEmpresa",xEmpresa);
SQL_DefinirInteiro(xCursor,"xFilial",xFilial);
SQL_DefinirAlfa(xCursor,"xTitulo",xTitulo);
SQL_DefinirAlfa(xCursor,"xTipoTitulo",xTipoTitulo);
SQL_DefinirInteiro(xCursor,"xFornecedor",xFornecedor);
SQL_AbrirCursor(xCursor);
enquanto (SQL_EOF(xCursor) = 0)
inicio
SQL_RetornarInteiro(xCursor,"TIPIMP",xTipoImposto);

SQL_Proximo(xCursor);
fim;
SQL_Destruir(xCursor);

se (xTipoImposto = 10)
AdicionaRateioRegra(50,1,2190,0,100,VSRATValorBase,"40",100,VSRATValorBase,"");
fim;

Variáveis Disponibilizadas: