Histórico da Página

#Include 'Protheus.ch'
 
User Function NGUTIL51()

    Local aCabec := ParamIXB[1]
    Local aItens := ParamIXB[2]
    Local aRatCC := {}
    Local nInd1  := 0
    Local nPos   := 0

    If ( nPos := aScan( aCabec, { |x| x[1] == 'C7_CONTATO' } ) ) > 0

        aCabec[nPos,2] := 'PE NGUTIL51'

    EndIf

    For nInd1 := 1 To Len( aItens )
        
        aAdd( aRatCC, Array( 2 ) )

        aRatCC[nInd1,1] := PadL( nInd1, FWTamSx3( 'CH_ITEMPD' )[1], '0' )
        aRatCC[nInd1,2] := {}

        aCC := {}
        aAdd( aCC, { 'CH_FILIAL' , FWxFilial( 'SCH' )                      , Nil } )
        aAdd( aCC, { 'CH_ITEM'   , PadL( 1, FWTamSx3( 'CH_ITEM' )[1], '0' ), Nil } )
        aAdd( aCC, { 'CH_PERC'   , 50                                      , Nil } )
        aAdd( aCC, { 'CH_CC'     , '001'                                   , Nil } )
        aAdd( aCC, { 'CH_CONTA'  , '000001'                                , Nil } )
        aAdd( aCC, { 'CH_ITEMCTA', 'IC001'                                 , Nil } )
        aAdd( aCC, { 'CH_CLVL'   , 'CV001'                                 , Nil } )

        aAdd( aRatCC[nInd1,2], aClone( aCC ) )

        aCC := {}
        aAdd( aCC, { 'CH_FILIAL' , FWxFilial( 'SCH' )                      , Nil } )
        aAdd( aCC, { 'CH_ITEM'   , PadL( 2, FWTamSx3( 'CH_ITEM' )[1], '0' ), Nil } )
        aAdd( aCC, { 'CH_PERC'   , 50                                      , Nil } )
        aAdd( aCC, { 'CH_CC'     , '002'                                   , Nil } )
        aAdd( aCC, { 'CH_CONTA'  , '000001'                                , Nil } )
        aAdd( aCC, { 'CH_ITEMCTA', 'IC001'                                 , Nil } )
        aAdd( aCC, { 'CH_CLVL'   , 'CV001'                                 , Nil } )

        aAdd( aRatCC[nInd1,2], aClone( aCC ) )


        /*-------------------------------------------------------------------------------------+
        | Para utilizar oel rateioprorrateo de custoscostos, se osdeben camposretirar abaixolos devemsiguientes sercampos removidosde dala integraçãointegración |
        +-------------------------------------------------------------------------------------*/
        If ( nPos := aScan( aItens[nInd1], { |x| x[1] == 'C7_CLVL' } ) ) > 0

            aDel( aItens[nInd1], nPos )
            
            aSize( aItens[nInd1], Len( aItens[nInd1] ) - 1 )

        EndIf

        If ( nPos := aScan( aItens[nInd1], { |x| x[1] == 'C7_ITEMCTA' } ) ) > 0

            aDel( aItens[nInd1], nPos )
            
            aSize( aItens[nInd1], Len( aItens[nInd1] ) - 1 )

        EndIf

        If ( nPos := aScan( aItens[nInd1], { |x| x[1] == 'C7_CC' } ) ) > 0

            aDel( aItens[nInd1], nPos )
            
            aSize( aItens[nInd1], Len( aItens[nInd1] ) - 1 )

        EndIf

    Next nInd1

Return { aCabec, aItens, aRatCC }