Clipper On Line • Ver Tópico - XML nas Nuvens

XML nas Nuvens

Discussão sobre desenvolvimento de software para atender as exigências da legislação fiscal e tributária (ECF, TEF, SINTEGRA, NF-e, ECD, EFD, etc.)

Moderador: Moderadores

 

XML nas Nuvens

Mensagempor jelias » 08 Jan 2019 14:44

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.
xHarbour 1.2.1 (simplex) + BCC 5.8.2 + Hwgui + SQLRDD
Clipper 5.2e / Blinker 7
Júlio Cézar Elias
e-mail: jelias@tpnet.psi.br
jelias
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 249
Data de registro: 27 Ago 2008 11:32
Cidade/Estado: Minas Gerais
Curtiu: 0 vez
Mens.Curtidas: 16 vezes

XML nas Nuvens

Mensagempor rochinha » 09 Jan 2019 15:52

Amiguinhos,

Em meu sistema eu gero um arquivo .VBS com o seguinte conteúdo e o executo:
// 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
OPS! LINK QUEBRADO? Veja ESTE TOPICO antes e caso não encontre ENVIE seu email com link do tópico para fivolution@hotmail.com. Agradecido.

@braços : ? )

A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.
Avatar de usuário

rochinha
Membro Master

Membro Master
 
Mensagens: 4538
Data de registro: 18 Ago 2003 20:43
Cidade/Estado: São Paulo - Brasil
Curtiu: 800 vezes
Mens.Curtidas: 242 vezes

XML nas Nuvens

Mensagempor JoséQuintas » 09 Jan 2019 19:40

Só a título de curiosidade, eu fazia uso de VBScript desde os tempos do Clipper.
No W10 ainda existe o aplicativo wscript.exe

vbscript.png


RUN ( "wscript.exe arquivo.vbs" )

Já o ftp.exe ..... lembrando que é perigoso porque deixa o arquivo com possíveis senhas à disposição do usuário, tanto em VBScript quanto deste modo:

RUN ( "ftp.exe < cmd.txt" )

Faz tempo que não uso nenhum dos dois, exceto o FTP.EXE, mas pra uso eventual, fora do aplicativo.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18013
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

XML nas Nuvens

Mensagempor rochinha » 10 Jan 2019 01:10

Amiguinhos,

JoséQuintas
O Shell.Run irá executar o Cscript ou WScript.

Quanto a vulnerabilidade, no exemplo que passei o arquivo é gerado para cada envio de um .XML podendo ser excluído após o final do comando RUN.

Na verdade o arquivo acima é gerado pelo sistema que é executado pelo RUN() que por consequencia executa o FTP.EXE pelo ShellRun.
OPS! LINK QUEBRADO? Veja ESTE TOPICO antes e caso não encontre ENVIE seu email com link do tópico para fivolution@hotmail.com. Agradecido.

@braços : ? )

A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.
Avatar de usuário

rochinha
Membro Master

Membro Master
 
Mensagens: 4538
Data de registro: 18 Ago 2003 20:43
Cidade/Estado: São Paulo - Brasil
Curtiu: 800 vezes
Mens.Curtidas: 242 vezes




Retornar para Legislação Fiscal e Tributária

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 6 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro