DT PE EFFRC150 Relatório de Provisão de Juros

User Function EFFRC150()
    Local cParam := If(Type("ParamIxb") = "A",ParamIxb[1],If(Type("ParamIxb") = "C",ParamIxb,""))

    Do Case
        Case cParam == "ADD_DADOS_ACC" //Adiciona novas informacoes ao array aRel, para que possa relacionar com as novas colunas a serem criadas para o relatorio. O PE é executado para cada registro do relatorio
            aAdd(aRel[len(aRel)],"Nova informacao ACC")

        Case cParam == "ADD_DADOS_ACE" //Adiciona novas informacoes ao array aRel, para que possa relacionar com as novas colunas a serem criadas para o relatorio. O PE é executado para cada registro do relatorio
            aAdd(aRel[len(aRel)],"Nova informacao ACE")

        Case cParam == "ADD_DADOS_PROV_JUROS" //Adiciona novas informacoes ao array aRel, para que possa relacionar com as novas colunas a serem criadas para o relatorio. O PE é executado para cada registro do relatorio
            aAdd(aRel[Len(aRel)],"Nova informacao Prov Juros")

        Case cParam == "ADD_COLUNAS" //Adicionar nova coluna para o relatorio, referente as informaçõe adicionadas no array aRel. Executado uma unica vez para relacionar as colunas com a posiçao do aRel que contera a informacao. 
			//cTipRel identifica qual o tipo de relatorio esta sendo gerado.
            If cTipRel == "Provisão de Juros"
                aadd(aColuna,{"Observ", "C",30,   0,  {|x| aRel[x][21]}})  /*Bloco de Codigo contendo o array aRel e a posicao onde se encontra a informacao a ser exibida*/

            elseIf cTipRel =="ACC"
                aadd(aColuna,{"Observ", "C",30,   0,  {|x| aRel[x][18]}})  /*Bloco de Codigo contendo o array aRel e a posicao onde se encontra a informacao a ser exibida*/

            elseif cTipRel =="ACE"
                aadd(aColuna,{"Observ", "C",30,  0,  {|x| aRel[x][22]}})  /*Bloco de Codigo contendo o array aRel e a posicao onde se encontra a informacao a ser exibida*/

            EndIf
    EndCase

Return