Histórico da Página

#INCLUDE "PROTHEUS.CH"
 
User Function FILMOTBX()
 
    Local nX       As Numeric
    Local aArea    As Array
    Local aMotBx   As Array
    Local aNewMotR As Array
        
    aMotBx   := aClone(ParamIXB)//Motivos listados de la F7G
    aArea    := GetArea()
    aNewMotR := {}

    //Solo presenta lista de Motivos de Baja con movimiento bancario, en la rutina de bajas de la cartera por cobrar
    If FwIsInCallStack('FINA070')
        
        dbSelectArea('F7G')
        dbSetOrder(1)        
        For nX:=1 to Len(aMotBx)
            //Búsqueda por la Sigla del Motivo de Baja
            dbSeek( FWxFilial('F7G') + Substr(aMotBx[nX],1,3) )
            If F7G_MOVBCO == 'S' 
                AADD( aNewMotR, aMotBx[nX] )         
            EndIF
        Next nX
    Else
        //Devuelve lista completa
        aNewMotR := aClone(aMotBx)           
    EndIf

    RestArea(aArea)
    FwFreeArray(aMotBx)
    FwFreeArray(aArea)
 
Return aNewMotR