TotalRateado

Esta função retorna o valor total rateado e pode ser utilizado independente da empresa possuir projeto e plano financeiro, basta nestes casos passar o valor 0 (zero) para o Projeto, Fase e Conta Financeria.

Sintaxe: Funcao TotalRateado(Numero Projeto, Numero Fase, Numero ContaFinanceira, Numero ContaContabil, Alfa CentroCusto, Numero End Total).

Parâmetros:

Nome Tipo Descrição
Projeto Numero Valor ou variável que indicará qual o projeto que deseja-se buscar o total rateado. Caso o valor for 0 (zero), será retornado o total de todos os projetos.
Fase Numero Valor ou variável que indicará qual a fase que deseja-se buscar o total rateado. Caso o valor for 0 (zero), será retornado o total de todas as fases.
Conta Financeira Numero Valor ou variável que indicará qual a Conta Financeira que deseja-se buscar o total rateado. Caso o valor for 0 (zero), será retornado o total de todas as Contas.
ContaContabil Numero Conta Contábil.
CentroCusto Alfa String com o Centro de Custo
Total Numero Valor Total Rateado de acordo com os parâmetros passados para o Projeto, Fase, ContaFinanceira, ContaContabil e CentroCusto. (retorno)

Tipo de retorno: Total: Valor Total Rateado de acordo com os parâmetros passados para o Projeto, Fase, ContaFinanceira, ContaContabil e CentroCusto.

Exemplo:

Definir Alfa VSAbreTelaViaRegra;
Definir Alfa VSTipoRegra;
Definir Alfa VSOrigem;
Definir Alfa VSTipoObservacao;
Definir Alfa VSObrigaRateio;
Definir Numero vValorNumero;
Definir Alfa vValorAlfa;
Definir Alfa vMensagem;
Definir Alfa VSTransacao;
Definir Alfa VSCCustoLinha;
Definir Numero VSContaFinLinha;
Definir Numero VSContaCtbLinha;

Se (VSTipoRegra = "TELALINHA")
inicio
   Se (VSCCustoLinha = "112")
     Mensagem(Erro,"Não é possível informar manualmente o centro de custo 112.");
   Se (VSContaFinLinha = 80)
     Mensagem(Erro,"Não é possível informar manualmente a conta financeira 80.");
   Se (VSContaCtbLinha = 1010)
     Mensagem(Erro,"Não é possível informar manualmente a conta contábil 1010.");
fim;

Se ((VSOrigem = "E600RAT") ou ((VSOrigem = "E600RCH") e (VSObrigaRateio = "SIM")))
inicio
   TotalRateado(0,0,0,0,"111",vValorNumero);
   Se (vValorNumero > 50)
   inicio
      ConverteMascara(2, vValorNumero, vValorAlfa, "ZZZ.ZZZ.ZZZ.ZZ9,99");
      LimpaEspacos(vValorAlfa);
      vMensagem = "Valor do centro de custo '111' é de R$ " + vValorAlfa + " e o máximo permitido é R$ 50,00.";
      VSAbreTelaViaRegra = "SIM";

      Se (VSTipoRegra = "TELA")
         Mensagem(Erro, vMensagem);
      Senao
      inicio
         vMensagem = vMensagem + "[&OK]";
         Mensagem(Retorna, vMensagem);
      fim;
   fim;

   Se ((VSTipoRegra = "TELA") e (VSTipoObservacao <> "COMPLETO"))
   inicio
      vMensagem = "O tipo da observação do rateio é '" + VSTipoObservacao + "', é necessário informar todas as observações para os centro de custos !";
      Mensagem(Erro,vMensagem);
   fim;
fim;

Este artigo ajudou você?