S3 is a Class
PRIVATE
Cliente is dynamic AmazonS3Client
nomeBucket is string
END

Procedure Constructor(Senha is string,SenhaSecreta is string ,bucket is string)
nomeBucket = bucket

Cliente = new AmazonS3Client(Senha,SenhaSecreta,AmazoN.RegionEndpoint.USEast1)

// Automatic Process of Exceptions: run the block of code CASE EXCEPTION:
//

Procedure Upload(CodigoEmpresa is string,ClienteEmp is string,Categoria is string,AspNet is boolean,Arquivo is string,progresBar is string,zipArquivo is boolean,AreaAspNet is string,Ano is string,Mes is string)

Requisicao is TransferUtilityUploadRequest
Transferencia is TransferUtility(Cliente)
ArquivoGuid is string
Key is string
CaminhoArquivo is string = ""


ArquivoGuid = GetGUID(guidRough)

IF AspNet = True THEN
Key = CodigoEmpresa + "/" + ClienteEmp + "/" + Categoria + "/" +AreaAspNet(Val(AreaAspNet)) + "/" + Ano + "/" + Mes + "/" + ArquivoGuid
ELSE
Key = CodigoEmpresa + "/" + Ano + "/" + ArquivoGuid
END
Requisicao:BucketName = nomeBucket
Requisicao:key = Key
IF zipArquivo = True THEN
CaminhoArquivo = CompactaArquivo(fExtractPath(Arquivo,fFileName),Arquivo)
ELSE
CaminhoArquivo = Arquivo
END
Requisicao:FilePath = CaminhoArquivo
Requisicao:ContentType = BuscaTipoArquivo(fExtractPath(CaminhoArquivo,fExtension))
IF progresBar <> "" THEN
Requisicao:UploadProgressEvent = (DotNetDelegate(progresBar, "EventHandler<UploadProgressArgs>"))
END
Transferencia.Upload(Requisicao)

RESULT ArquivoGuid

Procedure PRIVATE BuscaTipoArquivo(sExtensaoArquivo is string = "")
tipoArquivo is string = ""

SWITCH Replace(sExtensaoArquivo,".","")

CASE "doc","dot"
sExtensaoArquivo = "application/msword"
CASE "docx"
sExtensaoArquivo = "application/vnd.openxmlformats-officedocument.wordprocessingml.document"
CASE "dll"
sExtensaoArquivo = "application/x-msdownload"
CASE "exe"
sExtensaoArquivo = "application/octet-stream"
CASE "gif"
sExtensaoArquivo = "image/gif"
CASE "gz"
sExtensaoArquivo = "application/x-gzip"
CASE "htm","html"
sExtensaoArquivo = "text/html"
CASE "ico"
sExtensaoArquivo = "image/x-icon"
CASE "jpe","jpeg","jpg"
sExtensaoArquivo = "image/jpeg"
CASE "png"
sExtensaoArquivo = "image/png"
CASE "pdf"
sExtensaoArquivo = "application/pdf"
CASE "pps","ppt"
sExtensaoArquivo = "application/vnd.ms-powerpoint"
CASE "rtf"
sExtensaoArquivo = "application/rtf"
CASE "txt","cs"
sExtensaoArquivo = "text/plain"
CASE "xls","csv"
sExtensaoArquivo = "application/vnd.ms-excel"
CASE "xlsx"
sExtensaoArquivo = "application/vnd.openxmlformats-officedocument.spreadsheetml.sheet"
CASE "xml"
sExtensaoArquivo = "text/xml"
CASE "zip"
sExtensaoArquivo = "application/zip"
OTHER CASE
sExtensaoArquivo = ""
END

RESULT sExtensaoArquivo

// Summary: <specify the procedure action>
// Syntax:
//DownloadArquivo (<CodigoEmpresa> is int, <ClienteEmp> is string, <Categoria> is string, <Ano> is int, <AspNet> is boolean, <ArquivoGuid> is string, <CaminhoDown> is string, <ProgessoBar> is string, <AreaAspNet> is int, <Mes> is int)
//
// Parameters:
// CodigoEmpresa (int): <specify the role of sKeyName>
// ClienteEmp (ANSI string): <specify the role of ClienteEmp>
// Categoria (ANSI string): <specify the role of Categoria>
// Ano (int): <specify the role of Ano>
// AspNet (boolean): <specify the role of AspNet>
// ArquivoGuid (ANSI string): <specify the role of ArquivoGuid>
// CaminhoDown (ANSI string): <specify the role of CaminhoDown>
// ProgessoBar (ANSI string): <specify the role of ProgessoBar>
// AreaAspNet (int): <specify the role of ProgessoBar>
// Mes (int): <specify the role of Mes>
// Return Value:
// None
//
// For instance:
// Indicate an example.
//
// Cliente (.NET object): <specify the role of Cliente>
// sBucketName (ANSI string): <specify the role of sBucketNome>

// Arquivo (ANSI string): <specify the role of Arquivo>// Automatic Process of Exceptions: run the block of code CASE EXCEPTION:
//

Procedure DownloadArquivo(CodigoEmpresa is int,ClienteEmp is string,Categoria is string,Ano is int,AspNet is boolean,ArquivoGuid is string,CaminhoDown is string,ProgessoBar is string,AreaAspNet is int,Mes is int)
ResquisaoDown is TransferUtilityDownloadRequest
TransferenciaDown is TransferUtility(Cliente)
Arquivo is string = ""

IF AspNet = True THEN
Arquivo = CodigoEmpresa + "/" + ClienteEmp + "/" + Categoria + "/" +AreaAspNet(AreaAspNet) + "/" + Ano + "/" + Mes + "/" + ArquivoGuid
ELSE
Arquivo = CodigoEmpresa + "/" + ClienteEmp + "/" + Ano + "/" + Categoria + "/" + ArquivoGuid
END

ResquisaoDown.BucketName = nomeBucket
ResquisaoDown.Key = Arquivo
ResquisaoDown.FilePath = CaminhoDown
IF ProgessoBar <> ""
ResquisaoDown:WriteObjectProgressEvent = (DotNetDelegate(ProgessoBar, "EventHandler<WriteObjectProgressArgs>"))
END

TransferenciaDown.Download(ResquisaoDown)

// Summary: <specify the procedure action>
// Syntax:
//[ <Result> = ] CompactaArquivo (<Arquivo> is string, <CaminhoArq> is string)
//
// Parameters:
// Arquivo (ANSI string): <specify the role of Arquivo>
// CaminhoArq (ANSI string): <specify the role of CaminhoArq>
// Return Value:
// ANSI string: // None
//
// For instance:
// Indicate an example.
//
Procedure PRIVATE CompactaArquivo(Arquivo is string, CaminhoArq is string)
resp is int = 0
caminhoZip is string = ""

resp = zipCreate("ArqZip", fExtractPath(CaminhoArq,fDrive+fDirectory) + "\" + Arquivo + ".zip")
IF resp = 0 THEN
resp = zipAddFile("ArqZip", CaminhoArq, zipNone)
caminhoZip = fExtractPath(CaminhoArq,fDrive+fDirectory+fFileName) + ".zip"
END
zipClose("ArqZip")

RESULT caminhoZip

// Summary: <specify the procedure action>
// Syntax:
//[ <Result> = ] AreaAspNet (<Codigo> is int)
//
// Parameters:
// Codigo (int): <specify the role of Codigo>
// Return Value:
// ANSI string: // None
//
// For instance:
// Indicate an example.
//
Procedure AreaAspNet(Codigo is int)
Area is string = ""
SWITCH Codigo

CASE 1
Area = "CONTABIL"
CASE 2
Area = "FISCAL"
CASE 3
Area = "PESSOAL"
CASE 4
Area = "AUDITORIA"
CASE 5
Area = "ADM"
CASE 6
Area = "PLUS"
OTHER CASE
Area = "OUTROS"
END

RESULT Area

// Summary: <specify the procedure action>
// Syntax:
//[ <Result> = ] ListaArquivosPasta (<CodigoEmpresa> is int, <CodigoCliente> is string [, <OutrasPastas> is string])
//
// Parameters:
// CodigoEmpresa (int): <specify the role of CodigoEmpresa>
// CodigoCliente (ANSI string): <specify the role of CodigoCliente>
// OutrasPastas (ANSI string - default value=""): <specify the role of OutraPastas>
// Return Value:
// array: // None
//
// For instance:
// Indicate an example.
//
Procedure ListaArquivosPasta(CodigoEmpresa is int,CodigoCliente is string,OutrasPastas is string = "")
Diretorio is string = ""
ListaArquivos is ListVersionsRequest
Arquivo is S3ObjectVersion
arrArquivos is array of 0 by 2 string
NomeGuid is string =""
CaminhoArquivo is string = ""

IF OutrasPastas <> "" THEN
Diretorio = CodigoEmpresa + "/" + CodigoCliente + "/" + OutrasPastas
ELSE
Diretorio = CodigoEmpresa + "/" + CodigoCliente
END

ListaArquivos:BucketName = nomeBucket
ListaArquivos:Prefix = Diretorio

WHILE ListaArquivos <> Null

FOR EACH Arquivo OF Cliente.ListVersions(ListaArquivos).Versions

CaminhoArquivo = Arquivo:key
NomeGuid =fExtractPath(CaminhoArquivo,fFileName)

ArrayAddLine(arrArquivos,CaminhoArquivo,NomeGuid)

END
IF Cliente.ListVersions(ListaArquivos).IsTruncated = True
ListaArquivos:KeyMarker = Cliente.ListVersions(ListaArquivos).NextKeyMarker;
ListaArquivos:VersionIdMarker = Cliente.ListVersions(ListaArquivos).NextVersionIdMarker;
ELSE
ListaArquivos = Null;
END
END


RESULT arrArquivos

// Summary: <specify the procedure action>
// Syntax:
//DowloandPasta (<Arquivo> is string, <CaminhoDown> is string)
//
// Parameters:
// Arquivo (ANSI string): <specify the role of Arquivo>
// CaminhoDown (ANSI string): <specify the role of CaminhoDown>
// Return Value:
// None
//
// For instance:
// Indicate an example.
//
Procedure DowloandPasta(Arquivo is string, CaminhoDown is string)

ResquisaoDown is TransferUtilityDownloadRequest
TransferenciaDown is TransferUtility(Cliente)

ResquisaoDown.BucketName = nomeBucket
ResquisaoDown.Key = Arquivo
ResquisaoDown.FilePath = CaminhoDown

TransferenciaDown.Download(ResquisaoDown)