Histórico da Página

#Include "Protheus.ch"

/*/{Protheus.doc} User Function F380MTR     
(Ponto de entrada para manipular dados após checagem da conciliação bancária)
    @type  Function
    @author Cassio S. Dias
    @since 17/11/2023
    @return Nil
    @see (https://tdn.totvs.com/x/XU0KM)
    /*/
 
User Function F380MTR()
    Local cMsg := ""
    Local cMsg1 := ""
    Local aArea := GetArea()
    Local aAreaTRB := TRB->(GetArea())
     
    DbSelectArea("TRB")
    While ! TRB->(EoF())

        If !Empty(TRB->E5_OK)
            dbSelectArea("SE5")
            SE5->(DbGoTo(TRB->E5_RECNO))
             
            If ! Empty(SE5->E5_RECONC)
                cMsg1cMsg += "- "+SE5->E5_PREFIXO+" - "+SE5->E5_NUMERO+" - "+SE5->E5_PARCELA+" - "+dToC(SE5->E5_DTDISPO)+" - "+SE5->E5_HISTOR+" . "+Chr(13)+Chr(10)
            EndIf
        EndIf
     
        TRB->(DbSkip())

    EndDo
     
    If !Empty(cMsg)
        cMsg := "Serão desconciliados:"+Chr(13)+Chr(10)+"- Prefixo - Número - Parcela - Data - Histórico" + Chr(13)+Chr(10)+ cMsg
        Aviso('Atenção', cMsg, {'OK'}, 03)
    EndIf
     
    RestArea(aAreaTRB)
    RestArea(aArea)
Return