Histórico da Página

Static Function uploadFileTAE()
	Local oTAE      := conTAE()
	Local oFile     := Nil
	Local cPathFile := ""
	Local cNomeFile := "Nome do arquivo"
	Local oRequest  := Nil
	Local cMsgErr   := ""
	Local nIdEnv	:= 0
	
	//Criando um arquivo de teste e retornando o caminho para cPathFile
 	cPathFile := genFileTeste(cNomeFile+".PDF")

	//Obtendo o arquivo de teste que será enviado 
	oFile := tecFOPEN(cFile) 
	
	lUpload := oTAE:uploadFile(oFile,cNomeFile+".PDF", "documento teste para integracao com o TAE", @oRequest, @cMsgErr)
	If lUpload
Return lUpload		//Código do envelope que deverá ser utilizado no método publicar
  		nIdEnv := oRequest:data
	EndIf
Return nIdEnv  

//Realiza leitura de um arquivo
Static Function tecFOPEN(cPath)
    Local cBuffer := ""
    Local cResult := ""
    Local nHandle := 0
    Local nBytes  := 0

	nHandle := FOPEN(cPath) 
	If nHandle > -1
		While (nBytes := FREAD(nHandle, @cBuffer, 524288)) > 0 
			cResult += cBuffer
		EndDo

		FCLOSE(nHandle)
	EndIf
Return cResult

//Gerar documento de teste
Static Function genFileTeste(cNmFile)

    Local cFile             := ""
    Local cPathLocal        := GetSrvProfString("StartPath","") //'\system\'
    Local lAdjustToLegacy   := .T.    
    Local lDisableSetup     := .T.   
    Local lViewPDF          := .T.

    oPrint := FWMSPrinter():New(cNmFile/*cRelNome*/,IMP_PDF,lAdjustToLegacy,cPathLocal,lDisableSetup,,,,,,,lViewPDF)

    cFile := cPathLocal+cNmFile
    File2Printer( cFile, "PDF" )
    oPrint:cPathPDF:= cPathLocal

    oFont20 := TFont():New("Arial",9,20,.T.,.T.,5,.T.,5,.T.,.F.)

    oPrint:StartPage()
    nRow1 := 1

    oPrint:Line(nRow1+100,100,nRow1+0100,1400)
    
    oPrint:Say(nRow1+0080,100,"Arquivo para teste de integração com o TAE ",oFont20 ) 
    nRow1++
    
    oPrint:Preview()

    cFile := cPathLocal+cNmFile 

Return cFile