Documentos Salvos Banco Dados

Documentos Salvos Banco Dados

http://www.wxdevcon.com/2014/08/26/automatic-viewing-of-documents-saved-in-a-database-table/

sTempFile is string =  CompleteDir(fDataDirUser()) + “Temp”
sExtension is string

// The file info is in a looper.
sExtension = fExtractPath(ATT_FILENAME, fExtension)

IF sExtension > “” THEN
     sTempFile += sExtension

     // Saves the file
     IF fSaveText(sTempFile, ATT_DATA) THEN
          // Opens the file
          ShellExecute(sTempFile)
     END
END