Histórico da Página

#INCLUDE "Totvs.ch"

function dados()

	Local cCompHtml   := ""
	oJErrorData        Local oJEmailData := JsonObject():New()

	cCompHtml += "<tr>"
	cCompHtml += "	<td>" + AllTrim(BA1->BA1_NOMUSR) + "</td>"
	cCompHtml += "	<td>" + DTOC(BA1->BA1_DATINC) + "</td>"
	cCompHtml += "	<td>" + DTOC(BA1->BA1_DATBLO) + "</td>"
	cCompHtml += "</tr>"    


	oJErrorData    oJEmailData["1"] := BA1->BA1_NOMUSR  
	oJErrorDataoJEmailData["2"] := BA1->(BA1_CODINT+BA1_CODEMP+BA1_MATRIC+BA1_TIPREG+BA1_DIGITO)  
	oJErrorDataoJEmailData["3"] := BA1->BA1_EMAIL  
	oJErrorDataoJEmailData["4"] := BA1->BA1_TELEFO  
	oJErrorDataoJEmailData["5"] := cCompHtml

Return oJErrorDataoJEmailData