CODIGO FONTE NF ELETRONICA ATUALIZADA 22-02-10
Boa tarde
Alguem tem o código fonte da Dll do Looze ou da Unimake pra disponibilizar, pq no site da unimake nao ta mais disponivel pra download.
desde ja agradeço.
Alguem tem o código fonte da Dll do Looze ou da Unimake pra disponibilizar, pq no site da unimake nao ta mais disponivel pra download.
desde ja agradeço.
Para testes eu preciso comprar um certificado digital?
eu consegui o codigo fonte da dll da unimake em C# se alguem quiser deixa o email q eu envio.
Boa Tarde!
Estou participando pela primeira vez no site do VBMania neste grupo sobre Nota Fiscal Eletrônica Paulista ou para qualquer outro Estado.
Estive lendo todo os comentários que estão apresentando e fiquei impressionado com o nivel em que está se apresentando o desenvolvimento deste projeto.
Quero parabenizar a todos os que estão participando deste projeto, pois é o que teremos pela frente.
Excelente trabalho que o Loose e outros participantes estão fazendo.
Meu interesse neste grupo é poder ajudar em alguma forma para desenvolver em grupo algo que acho será de grande benefÃcio para todos os que estão participando deste forum.
Sou programador de VB6 e estou iniciando o estudo em VB.NET. Ainda estou apanhando muito, mas creio que poderei crescer rapidamente.
Minha ideia seria aproveitar o que já foi feito com as DLL's do Loose e outros e criarmos - EM GRUPO - um sistema de emissor de nota fiscal, em VB.NET (visto que o VB6 teria dificuldades para atender as necessidades), semelhante ao que a Secretaria da Fazenda está disponibilizando para uso gratuito aos interessados, porém incluindo um banco de dados em MS Access (para facilitar a vida de todos).
Qual seria a vantagem disto???
- Desenvolveriamos um script em VB.NET com todos os detalhes de um emissor fiscal com banco de dados e aqueles programadores que se utilizariam destes scripts poderiam usar nas empresas acrescentado ou modificando para atender a estrutura do seu banco de dados.
- O programa da Secretaria da Fazenda está em JAVA e provavelmente usa arquivo XML para salvar os cadastros das empresas e outros.
- Com a estrutura de banco de dados conhecido, é mais facil de implementar numa micro ou pequena empresa do que um arquivo XML.
- Facilidade de termos um backup, pois fariamos um backup apenas do banco de dados.
Vocês não acham que seria muito útil isto?
Estou disposto a trabalhar neste sistema e coloco-me a disposição para ajudar nisto.
Estou participando pela primeira vez no site do VBMania neste grupo sobre Nota Fiscal Eletrônica Paulista ou para qualquer outro Estado.
Estive lendo todo os comentários que estão apresentando e fiquei impressionado com o nivel em que está se apresentando o desenvolvimento deste projeto.
Quero parabenizar a todos os que estão participando deste projeto, pois é o que teremos pela frente.
Excelente trabalho que o Loose e outros participantes estão fazendo.
Meu interesse neste grupo é poder ajudar em alguma forma para desenvolver em grupo algo que acho será de grande benefÃcio para todos os que estão participando deste forum.
Sou programador de VB6 e estou iniciando o estudo em VB.NET. Ainda estou apanhando muito, mas creio que poderei crescer rapidamente.
Minha ideia seria aproveitar o que já foi feito com as DLL's do Loose e outros e criarmos - EM GRUPO - um sistema de emissor de nota fiscal, em VB.NET (visto que o VB6 teria dificuldades para atender as necessidades), semelhante ao que a Secretaria da Fazenda está disponibilizando para uso gratuito aos interessados, porém incluindo um banco de dados em MS Access (para facilitar a vida de todos).
Qual seria a vantagem disto???
- Desenvolveriamos um script em VB.NET com todos os detalhes de um emissor fiscal com banco de dados e aqueles programadores que se utilizariam destes scripts poderiam usar nas empresas acrescentado ou modificando para atender a estrutura do seu banco de dados.
- O programa da Secretaria da Fazenda está em JAVA e provavelmente usa arquivo XML para salvar os cadastros das empresas e outros.
- Com a estrutura de banco de dados conhecido, é mais facil de implementar numa micro ou pequena empresa do que um arquivo XML.
- Facilidade de termos um backup, pois fariamos um backup apenas do banco de dados.
Vocês não acham que seria muito útil isto?
Estou disposto a trabalhar neste sistema e coloco-me a disposição para ajudar nisto.
opaa manda para mim queria ver esse fontes do unimake
otaviofavero@hotmail.com
fico grato!
otaviofavero@hotmail.com
fico grato!
Pode mandar uma copia dos fontes do unimake para estudo.
meu email é cfocosta@gmail.com
Muito Obrigado!
meu email é cfocosta@gmail.com
Muito Obrigado!
Boa noite ja enviei para os emails.
pessoal tenho uma pergunta sobre a geração do xml
1º tem alguma maneira de gerar o xml na NFe automaticamente apartir do schemas???? sem ter a ficar desenhando o xml em codigo bloco por bloco
escrevex = escrevex & tabx(5) & [Ô]<dest>[Ô]
If Len(CNPJCPF) > 11 Then
escrevex = escrevex & tabx(10) & [Ô]<CNPJ>[Ô] & CNPJCPF & [Ô]</CNPJ>[Ô]
Else
escrevex = escrevex & tabx(10) & [Ô]<CPF>[Ô] & CNPJCPF & [Ô]</CPF>[Ô]
End If
escrevex = escrevex & tabx(10) & [Ô]<xNome>[Ô] & Nome & [Ô]</xNome>[Ô]
escrevex = escrevex & tabx(15) & [Ô]<enderDest>[Ô]
escrevex = escrevex & tabx(20) & [Ô]<xLgr>[Ô] & Logradouro & [Ô]</xLgr>[Ô]
escrevex = escrevex & tabx(20) & [Ô]<nro>[Ô] & Numero & [Ô]</nro>[Ô]
If Complemento <> [Ô][Ô] Then
escrevex = escrevex & tabx(20) & [Ô]<xCpl>[Ô] & Complemento & [Ô]</xCpl>[Ô]
End If
escrevex = escrevex & tabx(20) & [Ô]<xBairro>[Ô] & Bairro & [Ô]</xBairro>[Ô]
escrevex = escrevex & tabx(20) & [Ô]<cMun>[Ô] & CodMunicipio & [Ô]</cMun>[Ô]
escrevex = escrevex & tabx(20) & [Ô]<xMun>[Ô] & Municipio & [Ô]</xMun>[Ô]
escrevex = escrevex & tabx(20) & [Ô]<UF>[Ô] & UF & [Ô]</UF>[Ô]
escrevex = escrevex & tabx(20) & [Ô]<CEP>[Ô] & CEP & [Ô]</CEP>[Ô]
If CodPais <> [Ô][Ô] Then
escrevex = escrevex & tabx(20) & [Ô]<cPais>[Ô] & CodPais & [Ô]</cPais>[Ô]
End If
If NomePais <> [Ô][Ô] Then
escrevex = escrevex & tabx(20) & [Ô]<xPais>[Ô] & NomePais & [Ô]</xPais>[Ô]
End If
If Telefone <> [Ô][Ô] Then
escrevex = escrevex & tabx(20) & [Ô]<fone>[Ô] & Telefone & [Ô]</fone>[Ô]
End If
escrevex = escrevex & tabx(15) & [Ô]</enderDest>[Ô]
escrevex = escrevex & tabx(10) & [Ô]<IE>[Ô] & IE & [Ô]</IE>[Ô]
If Suframa <> [Ô][Ô] Then
escrevex = escrevex & tabx(20) & [Ô]<ISUF>[Ô] & Suframa & [Ô]</ISUF>[Ô]
End If
escrevex = escrevex & tabx(5) & [Ô]</dest>[Ô]
a outro pergunta no bloco de total
<total>
<ICMSTot>
<vBC>10</vBC>
<vICMS>1.80</vICMS>
<vBCST>0.00</vBCST>
<vST>0</vST>
<vProd>10.00</vProd>
<vFrete>12.33</vFrete>
<vSeg>0.00</vSeg>
<vDesc>498</vDesc>
<vII>0.00</vII>
<vIPI>0.00</vIPI>
<vPIS>0.00</vPIS>
<vCOFINS>0.00</vCOFINS>
<vOutro>0.00</vOutro>
<vNF></vNF>
</ICMSTot>
<ISSQNtot>
<vServ>0</vServ>
<vBC>0</vBC>
<vISS>0</vISS>
<vPIS>0</vPIS>
<vCOFINS>0</vCOFINS>
</ISSQNtot>
<retTrib>
<vRetPIS>0</vRetPIS>
<vRetCOFINS>0</vRetCOFINS>
<vRetCSLL>0</vRetCSLL>
<vBCIRRF>0</vBCIRRF>
<vIRRF>1.00</vIRRF>
<vBCRetPrev>5.00</vBCRetPrev>
<vRetPrev>1.00</vRetPrev>
</retTrib>
</total>
queria saber como q faz a montagem se esta certo ou se tem alguma maneira se montar essa parte! ou a onde posso conseguir informaçoes sobre isso
grato
1º tem alguma maneira de gerar o xml na NFe automaticamente apartir do schemas???? sem ter a ficar desenhando o xml em codigo bloco por bloco
escrevex = escrevex & tabx(5) & [Ô]<dest>[Ô]
If Len(CNPJCPF) > 11 Then
escrevex = escrevex & tabx(10) & [Ô]<CNPJ>[Ô] & CNPJCPF & [Ô]</CNPJ>[Ô]
Else
escrevex = escrevex & tabx(10) & [Ô]<CPF>[Ô] & CNPJCPF & [Ô]</CPF>[Ô]
End If
escrevex = escrevex & tabx(10) & [Ô]<xNome>[Ô] & Nome & [Ô]</xNome>[Ô]
escrevex = escrevex & tabx(15) & [Ô]<enderDest>[Ô]
escrevex = escrevex & tabx(20) & [Ô]<xLgr>[Ô] & Logradouro & [Ô]</xLgr>[Ô]
escrevex = escrevex & tabx(20) & [Ô]<nro>[Ô] & Numero & [Ô]</nro>[Ô]
If Complemento <> [Ô][Ô] Then
escrevex = escrevex & tabx(20) & [Ô]<xCpl>[Ô] & Complemento & [Ô]</xCpl>[Ô]
End If
escrevex = escrevex & tabx(20) & [Ô]<xBairro>[Ô] & Bairro & [Ô]</xBairro>[Ô]
escrevex = escrevex & tabx(20) & [Ô]<cMun>[Ô] & CodMunicipio & [Ô]</cMun>[Ô]
escrevex = escrevex & tabx(20) & [Ô]<xMun>[Ô] & Municipio & [Ô]</xMun>[Ô]
escrevex = escrevex & tabx(20) & [Ô]<UF>[Ô] & UF & [Ô]</UF>[Ô]
escrevex = escrevex & tabx(20) & [Ô]<CEP>[Ô] & CEP & [Ô]</CEP>[Ô]
If CodPais <> [Ô][Ô] Then
escrevex = escrevex & tabx(20) & [Ô]<cPais>[Ô] & CodPais & [Ô]</cPais>[Ô]
End If
If NomePais <> [Ô][Ô] Then
escrevex = escrevex & tabx(20) & [Ô]<xPais>[Ô] & NomePais & [Ô]</xPais>[Ô]
End If
If Telefone <> [Ô][Ô] Then
escrevex = escrevex & tabx(20) & [Ô]<fone>[Ô] & Telefone & [Ô]</fone>[Ô]
End If
escrevex = escrevex & tabx(15) & [Ô]</enderDest>[Ô]
escrevex = escrevex & tabx(10) & [Ô]<IE>[Ô] & IE & [Ô]</IE>[Ô]
If Suframa <> [Ô][Ô] Then
escrevex = escrevex & tabx(20) & [Ô]<ISUF>[Ô] & Suframa & [Ô]</ISUF>[Ô]
End If
escrevex = escrevex & tabx(5) & [Ô]</dest>[Ô]
a outro pergunta no bloco de total
<total>
<ICMSTot>
<vBC>10</vBC>
<vICMS>1.80</vICMS>
<vBCST>0.00</vBCST>
<vST>0</vST>
<vProd>10.00</vProd>
<vFrete>12.33</vFrete>
<vSeg>0.00</vSeg>
<vDesc>498</vDesc>
<vII>0.00</vII>
<vIPI>0.00</vIPI>
<vPIS>0.00</vPIS>
<vCOFINS>0.00</vCOFINS>
<vOutro>0.00</vOutro>
<vNF></vNF>
</ICMSTot>
<ISSQNtot>
<vServ>0</vServ>
<vBC>0</vBC>
<vISS>0</vISS>
<vPIS>0</vPIS>
<vCOFINS>0</vCOFINS>
</ISSQNtot>
<retTrib>
<vRetPIS>0</vRetPIS>
<vRetCOFINS>0</vRetCOFINS>
<vRetCSLL>0</vRetCSLL>
<vBCIRRF>0</vBCIRRF>
<vIRRF>1.00</vIRRF>
<vBCRetPrev>5.00</vBCRetPrev>
<vRetPrev>1.00</vRetPrev>
</retTrib>
</total>
queria saber como q faz a montagem se esta certo ou se tem alguma maneira se montar essa parte! ou a onde posso conseguir informaçoes sobre isso
grato
Pessoal, perdi meio dia 
, mas li o tópico inteiro. Baixei os fontes e estive analisando (superficialmente)
Vocês estão de PARABéNS !!
Ainda to me iterando do assunto, vou começar a ler os manuais
Na medida do possÃvel, também quero contribuir
, mas li o tópico inteiro. Baixei os fontes e estive analisando (superficialmente)Vocês estão de PARABéNS !!
Ainda to me iterando do assunto, vou começar a ler os manuais
Na medida do possÃvel, também quero contribuir
Tópico encerrado , respostas não são mais permitidas