Histórico da Página
...
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
#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 |
...
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas