CODIGO FONTE NF ELETRONICA ATUALIZADA 22-02-10

Private Sub Command1_Click()
        Dim parte(1000) As String

10      Chave = [Ô][Ô]
20      asdf = FreeFile
30      Open App.Path & [Ô]\1.xml[Ô] For Input As #asdf
40      Do While Not EOF(asdf)
50          Line Input #asdf, linhacrIp
60          Chave = Chave & linhacrIp
70      Loop
80      Close #asdf
90      a = 1
novamente:
100     ini = InStr(Chave, [Ô]<det[Ô])
110     c = [Ô][Ô]
120     For b = ini To Len(Chave)
130         c = c & Mid(Chave, b, 1)
140         If InStr(c, [Ô]</det>[Ô]) > 0 Then Exit For
150     Next b
160     parte(a) = c
170     a = a + 1
180     Chave = Mid(Chave, b + 1, Len(Chave))
190     If InStr(Chave, [Ô]<det[Ô]) > 0 Then
200         GoTo novamente
210     Else
220         GoTo Saida
230     End If
Saida:

240     resultado = [Ô][Ô]
250     resultado = resultado & [Ô]quantidade de itens na NFe:[Ô] & a & vbNewLine & vbNewLine
260     resultado = resultado & [Ô]produto 11[Ô] & vbNewLine & [Ô]Nome:[Ô] & PegaValorTag(parte(11), [Ô]<xProd>[Ô]) & vbNewLine & [Ô]Qtd:[Ô] & PegaValorTag(parte(11), [Ô]<qCom>[Ô]) & vbNewLine & [Ô]Valor unitario:[Ô] & PegaValorTag(parte(11), [Ô]<vUnCom>[Ô]) & vbNewLine & [Ô]Valor total:[Ô] & PegaValorTag(parte(11), [Ô]<vProd>[Ô]) & vbNewLine & vbNewLine
270     resultado = resultado & [Ô]produto 13[Ô] & vbNewLine & [Ô]Nome:[Ô] & PegaValorTag(parte(13), [Ô]<xProd>[Ô]) & vbNewLine & [Ô]Qtd:[Ô] & PegaValorTag(parte(13), [Ô]<qCom>[Ô]) & vbNewLine & [Ô]Valor unitario:[Ô] & PegaValorTag(parte(13), [Ô]<vUnCom>[Ô]) & vbNewLine & [Ô]Valor total:[Ô] & PegaValorTag(parte(13), [Ô]<vProd>[Ô]) & vbNewLine & vbNewLine
280     resultado = resultado & [Ô]produto 21[Ô] & vbNewLine & [Ô]Nome:[Ô] & PegaValorTag(parte(21), [Ô]<xProd>[Ô]) & vbNewLine & [Ô]Qtd:[Ô] & PegaValorTag(parte(21), [Ô]<qCom>[Ô]) & vbNewLine & [Ô]Valor unitario:[Ô] & PegaValorTag(parte(21), [Ô]<vUnCom>[Ô]) & vbNewLine & [Ô]Valor total:[Ô] & PegaValorTag(parte(21), [Ô]<vProd>[Ô]) & vbNewLine & vbNewLine
290     resultado = resultado & [Ô]produto 19[Ô] & vbNewLine & [Ô]Nome:[Ô] & PegaValorTag(parte(19), [Ô]<xProd>[Ô]) & vbNewLine & [Ô]Qtd:[Ô] & PegaValorTag(parte(19), [Ô]<qCom>[Ô]) & vbNewLine & [Ô]Valor unitario:[Ô] & PegaValorTag(parte(19), [Ô]<vUnCom>[Ô]) & vbNewLine & [Ô]Valor total:[Ô] & PegaValorTag(parte(19), [Ô]<vProd>[Ô]) & vbNewLine & vbNewLine


300     MsgBox resultado


End Sub
Public Function PegaValorTag(LinhaTag, NomeTag As String)


20    If InStr(LinhaTag, NomeTag) > 0 Then
30      PegaValorTag = Mid(LinhaTag, InStr(LinhaTag, NomeTag) + Len(NomeTag), 5000)
40      If InStr(PegaValorTag, [Ô]</[Ô] & Mid(NomeTag, 2, 5000)) > 0 Then
50        PegaValorTag = Left(PegaValorTag, InStr(PegaValorTag, [Ô]</[Ô] & Mid(NomeTag, 2, 5000)) - 1)
60      Else
70        PegaValorTag = [Ô][Ô]
80      End If
90    Else
100     PegaValorTag = [Ô][Ô]
110   End If


End Function

Private Sub Command2_Click()

10      Chave = [Ô][Ô]
20      asdf = FreeFile
30      Open App.Path & [Ô]\1.xml[Ô] For Input As #asdf
40      Do While Not EOF(asdf)
50          Line Input #asdf, linhacrIp
60          Chave = Chave & linhacrIp
70      Loop
80      Close #asdf

90    MsgBox PegaValorTag(Chave, [Ô]<infCpl>[Ô])

End Sub

Private Sub Command3_Click()

10      a = InputBox([Ô]Adicione algo na tag de dados adicionais[Ô], [Ô]adicionar[Ô], [Ô][Ô])

20      Chave = [Ô][Ô]
30      asdf = FreeFile
40      Open App.Path & [Ô]\1.xml[Ô] For Input As #asdf
50      Do While Not EOF(asdf)
60          Line Input #asdf, linhacrIp
70          Chave = Chave & linhacrIp
80      Loop
90      Close #asdf
100     If InStr(Chave, [Ô]<infCpl>[Ô]) > 0 Then
110         parte1 = Left(Chave, InStr(Chave, [Ô]<infCpl>[Ô]) + 7)
120         parte2 = Mid(Chave, InStr(Chave, [Ô]<infCpl>[Ô]) + 8, Len(Chave))
130         parteunida = parte1 & a & parte2
140         asdf = FreeFile
150         Open App.Path & [Ô]\1.xml[Ô] For Output As #asdf
160         Print #asdf, parteunida
170         Close #asdf
180     End If

End Sub

Citação:

FGSANTOS escreveu:
Engraçado uma coisa: uma empresa chamada Unimake disponibilizou o código fonte para ¨apoiar o projeto nfe¨. Muitos outros programadores desenvolveram suas aplicacoes e vendem. Aí o grande Looze teve esta iniciativa de desenvolver em conjunto com a moçada aqui e fica uns caras minando, sempre falando que vendem a DLL (nem o código fonte vendem). Puts, se eu fosse o cara que tenta vender veria que está se tornando o chato. Não percebeu até agora o intuito deste tópico??? Tá preocupado porque vai perder mercado???
Tantas outras comunidades de programadores desenvolveram o codigo igual aqui, em conjunto e aberto. Porque o VBMania tambem nao???

O mundo mira software aberto. A micosoft tá preocupada com isto também... Eu não cobro por meus sistemas, cobro por instalaçao, treinamento, suporte, manutençao.

é melhor vc rever seus conceitos, Iceman.

Citação:

TABPRS escreveu:
XTREME. ao invés de querer vender seu produto, porque não compartilha conosco, já que está percebendo que todo querem a mesma coisa, se realmente quer ajudar, coopere, não queira vender.

Citação:

TCHEKA escreveu:
Bem pessoal,


eu acho que o tópico aqui é para criar a DLL. Caso seja necessário fazer propagandas de seus produtos, creio que seria melhor criar um novo tópico onde todos os interessados possam divulgar seus trabalhos. Não quero ser chato nem nada, mas é que esse tipo de coisa tira o foco do projeto.

Citação:

FOXMAN escreveu:
é rapaziada.....

O grande lance aqui é desenvolver a DLL, e não comprar algo pronto.

ICEMAN, porque vc não compartilha o seu conhecimento adquirido no desenvolvimento de sua DLL com os amigos aqui do forum ???

Afinal de contas esse é o intuito do forum.

Certamente você já usufruiu dos benefícios do vbmania.

Citação:

EMERSONTADEU escreveu:
Ice, vc é mto gente boa e talvez saiba que não podemos ignorar a ajuda que tivemos da comunidade estes anos ...

Não precisa dar nada grátis, não é isto ... mas é que até mesmo eu que sou xato pra kct torço o nariz por ter ajudado vc sempre sem nunca falar em $$$ e hj vejo vc usando o fórum para divulgar seu produto.

Repito, foi sempre um prazer ajudá-lo ... mas talvez possamos lucrar mais fazendo [txt-size=1][Ô]A[Ô] dll[/txt-size] para todos já que no fim esse algorítimo vai acabar virando [Ô]padrão ANSI[Ô].

Eu estou gerando meu xml direto do server atravez de consultas FOR XML, mas em produção essa merda ta pesando pois processar toda XML lá e devolver pela rede acabou me fodendo ... serve de aviso, FOR XML é só para dados que não vão ficar em processamento pesado ou WEB Server que vai construir html disso.

Estou pesquisando o assunto, mas alguém sabe tirar as regras, types, etc dum XSD e colocar num dataset ou qualquer outro objeto para fazer um validador dinâmico dos campos sem precisar recompilar nada em cada liberação de PL_00X ?