Ponto de Entrada – F380MTR

Exemplo do Ponto de Entrada F380MTR.

Exemplo do Ponto de Entrada:

//Bibliotecas
#Include "Protheus.ch"

/*---------------------------------------------------------------------*
 | P.E.:  F380MTR                                                      |
 | Desc:  Após checagem da conciliação bancária                        |
 *---------------------------------------------------------------------*/

User Function F380MTR()
	Local cMsg := ""
	Local aArea := GetArea()
	Local aAreaTRB := TRB->(GetArea())
	
	//Enquanto houver registros na tabela temporária
	DbSelectArea("TRB")
	While ! TRB->(EoF())
		//Se o registro tiver marcado para ser desconciliado
		If !Empty(TRB->E5_OK)
			dbSelectArea("SE5")
			SE5->(DbGoTo(TRB->E5_RECNO))
			
			//Se o movimento já tiver sido conciliado
			If ! Empty(SE5->E5_RECONC)
				cMsg += "- "+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
	
	//Se tiver mensagem para ser mostrada
	If !Empty(cMsg)
		cMsg := "O(s) seguinte(s) movimento(s) serão desconciliados:"+Chr(13)+Chr(10)+"- Prefixo - Número - Parcela - Data - Histórico" + Chr(13)+Chr(10)+ cMsg
		cMsg += Chr(13)+Chr(10)+"Origem: F380MTR "
		Aviso('Atenção', cMsg, {'OK'}, 03)
	EndIf
	
	RestArea(aAreaTRB)
	RestArea(aArea)
Return

Observações:

– Caso tenha dúvidas ou problemas com os exemplos, entre em contato;
– Se tiver sugestões de rotinas, pode entrar em contato;

Links:

Pesquisa no TDN

Etiquetas

Receba novidades

Seja VIP e receba novidades exclusivas por e-Mail gratuitamente.