Amigos,
Alguém pode compartilhar a experiência de armazenamento de arquivos XML´s das NF-e nas nuvens?
Qual o serviço utilizado?
Como é feito a integração?
Desde já agradeço,
Saudações,
Júlio.

Moderador: Moderadores
// Coloque suas informações de FTP
strFTPServerName = "153.169.40.201"
strFTPServerFolder = "/NFe"
strLoginID = "usuario@provedor.com.br"
strPassword = "Senha@123"
// Coloque o CNPJ do seu cliente
strCNPJCliente = "00000000000000"
// Configure as pastas onde se encontram os XMLs e PDFs
strFile2PutGet = "C:\SISTEMA\NFE\35180400000000000000550010000080181000080183-nfe.XML"
strFile2PutGetPDF = "C:\SISTEMA\NFE\35180400000000000000550010000080181000080183-nfe.pdf"
// Coloque o caminho da pasta que contem os arquivos XMLs e PDFs que serao enviados
strLocalFolderName = "C:\SISTEMA\nfe"
// Arquivo de script FTP que sera gerado
strFTPScriptFileName = strLocalFolderName & "\nfeftpfile.txt"
// Script de geração da operação de FTP
Set objFSO = CreateObject("Scripting.FileSystemObject")
If (objFSO.FileExists(strFTPScriptFileName)) Then
objFSO.DeleteFile (strFTPScriptFileName)
End If
Set objMyFile = objFSO.CreateTextFile(strFTPScriptFileName, True)
objMyFile.WriteLine ("open " & strFTPServerName)
objMyFile.WriteLine (strLoginID)
objMyFile.WriteLine (strPassword)
objMyFile.WriteLine ("mkdir " & strFTPServerFolder & "/" & strCNPJCliente)
objMyFile.WriteLine ("cd " & strFTPServerFolder & "/" & strCNPJCliente)
objMyFile.WriteLine ("hash")
objMyFile.WriteLine ("lcd " & strLocalFolderName)
objMyFile.WriteLine ("put " & strFile2PutGet)
objMyFile.WriteLine ("put " & strFile2PutGetPDF)
objMyFile.WriteLine ("bye")
objMyFile.WriteLine ("quit")
objMyFile.Close
Set objFSO = Nothing
Set objMyFile = Nothing
Set objShell = WScript.CreateObject( "WScript.Shell" )
// Comando FTP
objShell.Run ("ftp -s:" & chr(34) & strFTPScriptFileName & chr(34))
Set objShell = Nothing
Retornar para Legislação Fiscal e Tributária
Usuários vendo este fórum: Nenhum usuário registrado online e 3 visitantes