NOTA FISCAL ELETRONICA
Galera, sou um pouco novato em VB.
Seguinte, preciso criar uma tela que exiba todos os arquivos XML dentro de uma pasta num grid.
Mas ao invés de mostrar apenas os arquivos preciso que mostre os seguintes itens do conteudo: nome do arquivo / chave de acesso / CNPJ do emitente / CNPJ do destinatário.
Obrigado pela ajuda
Seguinte, preciso criar uma tela que exiba todos os arquivos XML dentro de uma pasta num grid.
Mas ao invés de mostrar apenas os arquivos preciso que mostre os seguintes itens do conteudo: nome do arquivo / chave de acesso / CNPJ do emitente / CNPJ do destinatário.
Obrigado pela ajuda
[ô]+/- assim....
[ô] faça referencia ao microsoft scrip run time
Dim fso As New FileSystemObject
[ô]chama assim
CarregaAssinadas fso.GetFolder( App.Path & [Ô]\Notas-NFE[Ô])
Public Function CarregaAssinadas(f As Folder)
Dim gg As String
Dim arq As File
Dim bReta, v, Arquivo As String
Dim a As File
Screen.MousePointer = vbHourglass
For Each a In f.Files
Arquivo = a.Name
If InStr(Arquivo, [Ô]nfeproc[Ô]) > 0 Then
v = Mid(Arquivo, 44, 13)
dt = Format(Mid(v, 1, 6), [Ô]@@/@@/@@[Ô])
hr = Format(Mid(v, 8, 6), [Ô]@@:@@:@@[Ô])
v = dt & [Ô] [Ô] & hr
frmNFE_flex.FlexRet.AddItem Mid(Arquivo, 1, 10) & vbTab & Mid(Arquivo, 12, 15) & vbTab & Mid(Arquivo, 28, 15) & vbTab & v & vbTab & f & [Ô]\[Ô] & Arquivo
End If
DoEvents
Next
Screen.MousePointer = vbNormal
End Function
[ô] faça referencia ao microsoft scrip run time
Dim fso As New FileSystemObject
[ô]chama assim
CarregaAssinadas fso.GetFolder( App.Path & [Ô]\Notas-NFE[Ô])
Public Function CarregaAssinadas(f As Folder)
Dim gg As String
Dim arq As File
Dim bReta, v, Arquivo As String
Dim a As File
Screen.MousePointer = vbHourglass
For Each a In f.Files
Arquivo = a.Name
If InStr(Arquivo, [Ô]nfeproc[Ô]) > 0 Then
v = Mid(Arquivo, 44, 13)
dt = Format(Mid(v, 1, 6), [Ô]@@/@@/@@[Ô])
hr = Format(Mid(v, 8, 6), [Ô]@@:@@:@@[Ô])
v = dt & [Ô] [Ô] & hr
frmNFE_flex.FlexRet.AddItem Mid(Arquivo, 1, 10) & vbTab & Mid(Arquivo, 12, 15) & vbTab & Mid(Arquivo, 28, 15) & vbTab & v & vbTab & f & [Ô]\[Ô] & Arquivo
End If
DoEvents
Next
Screen.MousePointer = vbNormal
End Function
A solução do LANCECOM só funciona se os nomes dos arquivos XML tiver o mesmo padrão.
Como nem todo mundo segue um padrão de nomeação do XML o negócio é importar os nomes para tua grid seguindo o exemplo do LANCECOM e ler o conteúdo dos arquivos XML recuperados para pegar as informações que você precisa.
Peguei aqui mesmo no vbmania um exemplo postado pelo colega F001E, simplifiquei bastante pois o dele continha toda conexão com banco e tal, e deixei bem simples para pegar apenas o que me interessava.
Dá uma olhada e vê se te serve. Tem que referenciar o Microsoft XML
Abraço,
Como nem todo mundo segue um padrão de nomeação do XML o negócio é importar os nomes para tua grid seguindo o exemplo do LANCECOM e ler o conteúdo dos arquivos XML recuperados para pegar as informações que você precisa.
Peguei aqui mesmo no vbmania um exemplo postado pelo colega F001E, simplifiquei bastante pois o dele continha toda conexão com banco e tal, e deixei bem simples para pegar apenas o que me interessava.
Dá uma olhada e vê se te serve. Tem que referenciar o Microsoft XML
Abraço,
Tópico encerrado , respostas não são mais permitidas