Histórico da Página

#INCLUDE "Protheus.ch"
User Function GPM080HB()
	Local cCabec	:= ""
	Local cValorTot	:= ""
	Local cStrBusca	:= "POSICTOTAL"	//StringExemplo de string a ser utilizada no arquivo de configuração
	Local nTamanTot	:= 10			//Tamanho do conteudo no layout
	Local nPos		:= 0
	Local nHandle	:= 0

	If (nHandle := FT_FUse(cArqSaida)) <> -1
		FT_FGoTop()

		cCabec	:= FT_FReadLn()
		nPos	:= At(cStrBusca, cCabec)	//Buscando posicao pela string configurada
		FT_FUSE()
	EndIf
	If nPos > 0
		If (nHandle := FOpen(cArqSaida,2)) >= 0

			//abaixo exemplo utilizando variável private nTotal, disponível dentro do PE
			cValorTot := StrZero( nTotal, nTamanTot)								//Tratar tipo para string
			cCabec    := StrTran(cCabec, cStrBusca, cValorTot) + Chr(13)+ Chr(10)	//Substituir linha do cabecalho

			FSeek(nHandle, 0)
			FWrite(nHandle, cCabec)
			FCLOSE(nHandle)
		EndIf
	EndIf

Return