Histórico da Página

O parâmetro El parámetro MV_MULNATR deve debe estar habilitado .T. para que os registros sejam importados com sucessolos registros se importen con éxito.

A rotina FINA040 possui suporte ao La rutina FINA040 tiene soporte al tipo de Adapter Função (Veja no documento de referência o item - tópico Composição do Layout - Geral Función (Vea en el documento de referencia el ítem - tópico Composición del Layout - General) 

User Function MileF040(lInterface, aInfos, aLayOut, aSaidas)
//-- DeclaraçõesDeclaraciones - PropriedadesPropiedades
    Local nPosVl    As Numeric
    Local nPosPc    As Numeric
    Local nPosNt    As Numeric
    Local nPosCc    As Numeric
    Local nI        As Numeric
    Local lNewNt    As Logical
    Local cNat      As Char
    Local aVetorRat As Array
    Local aTitulo   As Array
    Local aRatNtCc  As Array
    Local aRatNt    As Array
    Local aRatCc    As Array
    Local aLstRatCc As Array

    Default lInterface := .F.
    Default aInfos := {}
    Default aLayOut := {}
    Default aSaidas := {}


//- Control Controley eseparación separaçãode doslos Rateiosprorrateos     
    aLstRatCc := {} //-- Lista dosde los Rateiosprorrateos de CC por Naturezamodalidad
    aRatCc := {}    //-- UmUn registro - rateioprorrateo CC
    aRatNt := {}    //-- UmUn rateioprorrateo Naturezaorigen
    aRatNtCc := {}  //-- Lista de doslos Rateiosprorrateos NaturezaModalidad comcon espectivosrespectivos CCs
    aTitulo := {}   //-- DadosDatos dodel Títulotítulo

    aVetorRat := {} //-- Auxiliar no processamento dos rateiosen el procesamiento de los prorrateos Nt/Cc
    cNat := ""      //-- Auxiliar en noel procesamiento processamentode doslos rateiosprorrateos Nt
    lNewNt := .T.   //-- Auxiliar en el noprocesamiento processamentode doslos rateiosprorrateos Nt
    nI := 0         //-- Auxiliar en el noprocesamiento processamentode doslos rateiosprorrateos Nt/Cc
    nPosCc := 0     //-- Auxiliar en el noprocesamiento processamentode doslos rateiosprorrateos Cc
    nPosNt := 0     //-- Auxiliar no processamento dos rateiosen el procesamiento de los prorrateos Nt
    nPosPc := 0     //-- Auxiliar no processamento dos rateiosen el procesamiento de los prorrateos Nt/Cc
    nPosVl := 0     //-- Auxiliar en noel procesamiento processamentode doslos rateiosprorrateos Nt/Cc

  //-- ControleControl de erroerror de dala rotinarutina automática
	Private lMsErroAuto		:= Empty(aSaidas)
	Private lAutoErrNoFile	:= .T.    

//-- Inicio dodel pocessoproceso de separaçãoseparación de dadosdatos
    If !Empty(aSaidas)
        aTitulo := {}
        AEVAL(aSaidas[1,4,1],{|e| AAdd(aTitulo,e)})
        AAdd(aVetorRat,aSaidas[2,4])
        nPosNt := ASCAN(aVetorRat[1,1],{|a| alltrim(a[1]) == "EZ_NATUREZ"})
        nPosCc := ASCAN(aVetorRat[1,1],{|a| alltrim(a[1]) == "EZ_CCUSTO"})
        nPosVl := ASCAN(aVetorRat[1,1],{|a| alltrim(a[1]) == "EZ_VALOR"})
        nPosPc := ASCAN(aVetorRat[1,1],{|a| alltrim(a[1]) == "EZ_PERC"})

        For nI := 1 To Len(aVetorRat[1])
            If lNewNt
                //-- AdicionaAgrega Itemítem Rateioprorrateo Naturezaorigen
                cNat := aVetorRat[1][Ni][nPosNt][2]
                AAdd(aRatNt,{"EV_NATUREZ",cNat,Nil})
                AAdd(aRatNt,{"EV_VALOR",0,NIL})
                AAdd(aRatNt,{"EV_PERC",0,NIL})
                AAdd(aRatNt,{"EV_RATEICC","1",NIL})
            EndIf

            //-- AtualizaActualiza Valoresvalores dodel Rateioprorrateo de Naturezasorígenes
            aRatNt[2][2] += aVetorRat[1][Ni][nPosVl][2]
            aRatNt[3][2] += aVetorRat[1][Ni][nPosPc][2]
            
            //-- AdicionaAgrega ItemÍtem RateioProrrateo Centro-Custo Costo
            AAdd(aRatCc,aVetorRat[1][Ni][nPosNt])
            AAdd(aRatCc,aVetorRat[1][Ni][nPosCc])
            AAdd(aRatCc,aVetorRat[1][Ni][nPosVl])
            AAdd(aLstRatCc,AClone(aRatCc))
            FwFreeArray(aRatCc)
            aRatCc := {}

            //-- Verifica sesi ehes último ítem Itemde dala lista geralgeneral ouo sesi ehes novonuevo itemítem de Naturezaorigen
            lNewNt := (nI == Len(aVetorRat[1])) .Or. (aVetorRat[1][Ni+1][nPosNt][2] <> cNat)

            //-- SeSi ehes novonuevo itemítem ouo oel último de dala lista, concluifinaliza ala Inclusãoinclusión dodel Rateioprorrateo dadel Naturezaorigen atualactual.
            If lNewNt
                AAdd(aRatNt,{"AUTRATEICC", aLstRatCc, Nil })
                AAdd(aRatNtCc,AClone(aRatNt))
                FwFreeArray(aRatNt)
                aRatNt := {}
                FwFreeArray(aRatCc)
                aRatCc := {}
                FwFreeArray(aLstRatCc)
                aLstRatCc := {}
            EndIf
        Next nI
		//-- Fim 

		//-- ExecuçãoEjecución dodel Adapter por Rotinarutina Automáticaautomática.
        MsExecAuto({ |x,y,z,a| FINA040(x,y,z,a)},aClone(aTitulo),3,,aClone(aRatNtCc))

		//-- TratamentoTratamiento para oel caso de erroserrores
        If lMsErroAuto
            MOSTRAERRO()
        EndIf
    EndIf

Return !lMsErroAuto