CODIGO FONTE NF ELETRONICA ATUALIZADA 22-02-10
Citação:FGSANTOS escreveu:
Tenho umas rotinas dentro de um sistema meu que gera todas as TAGs do xml, mas como é muito especÃfica para meu sistema, vou fazer adaptaçoes e disponibilizar aqui para que todos possam utilizar. Já comentei num outro post sobre isto e me pediram o código por mensagem interna. Sinceramente nao será útil para ninguem, pois utiliza recordsets especÃficos de tabelas de meu sistema. Por isto vou arrumar um tenho no fim de semana para poder fazer bem genérico para poder disponibilizar a todos.
Mas tem uma coisa que me deixa louco: alguem consegue via VB6 comunicar com o Certificado Digital modelo A1 para assinar o documento?
Tenho o código da unimake, já postado link por outro aqui, e estou fazendo adaptaçoes para assinar, transmitir, etc, etc via um projeto em VB.NET. Mas minha vontade mesmo era de fazer algo em VB6 para poder fazer este processo. Alguem tem ideia de como fazer isto? Ou realmente é verdade que via VB6 nao conseguiremos assinar e consumir os webservices?
Atualmente minha aplicação gera o xml, importa no emissor da receita para finalizar o processo (validacao, assinatura, transmissao, resposta de liberacao ou nao, emissao de danfe). Mas é muito ruim isto, os clientes que utilizam assim estao reclamando de nao ter um processo automático, pois fica dependendo de gerar em meu sistema e fazer o processo por outro.
Com relação a isso eu até acho que é inviável , mas tem alguma vantagem nisso, o PREÇO.
eu abro o validador da NFE seleciono e empresa e coloco a pasta que está o arquivo mas o validador não carrega o arquivo...
Alguem já passou por isso??
Posta parte dele ae
Citação:A|1.00|
B|SP||VENDA|1|55|0|002399|2009-08-07|2009-08-07|1|||||1|0|TESTE 1.4.0
C|FAMA MOLAS E ARRUELAS LTDA||149441614117|||
C02|08323525000170
C05|AV. VINTE E QUATRO DE FEVEREIRO|173||PENHA|3550308|SAO PAULO|SP|03734090|1058|BRASIL|1126850112
E|SIDER COMERCIAL INDUSTRIAL LTDA.|110651079116
E02|49050164000112
E05|AV.SAPOPEMBA|1671||AGUA RASA|3550308SAO PAULO|SP|03345001|1058|BRASIL
H|1|
I|APMM 6|ARR. PRES DIN 127 M-6||||5101|MIL|150,0000|7,1000|1065,00||MIL|150,0000|7,1000|0,00|0,00|0,00
M
N
N02|0|00|3|1065,00|18,00|191,70
O|||||999
O7|50|106,50
010|1065,00
011|0,00|0,00
W
W02|1065,00|191,70|1065,00|0,00|1065,00|0,00|0,00|0,00|0,00|106,50|0,00|0,00|0,00|1171,50
X|0
Eu estava vendo que ele tem que estar na codificação UTF-8 e não sei se tem que mudar alguma coisa na rotina para ele gravar nesse codificação...
mas já adiantando, não vale a pena desenvover nada para nfe em vb6... é perder tempo no desenvolvimento, pois no .net é muito mais facil trabalhar com xml, web services e certificados digitais.
Citação:NOTAFISCAL|2
ONDE 2 no meu caso é a quantidade de nfs que serão exportada.
Ve se vai agora
Citação:RFERREIRA escreveu:
Ele é TXT
A|1.00|
B|SP||VENDA|1|55|0|002399|2009-08-07|2009-08-07|1|||||1|0|TESTE 1.4.0
C|FAMA MOLAS E ARRUELAS LTDA||149441614117|||
C02|08323525000170
C05|AV. VINTE E QUATRO DE FEVEREIRO|173||PENHA|3550308|SAO PAULO|SP|03734090|1058|BRASIL|1126850112
E|SIDER COMERCIAL INDUSTRIAL LTDA.|110651079116
E02|49050164000112
E05|AV.SAPOPEMBA|1671||AGUA RASA|3550308SAO PAULO|SP|03345001|1058|BRASIL
H|1|
I|APMM 6|ARR. PRES DIN 127 M-6||||5101|MIL|150,0000|7,1000|1065,00||MIL|150,0000|7,1000|0,00|0,00|0,00
M
N
N02|0|00|3|1065,00|18,00|191,70
O|||||999
O7|50|106,50
010|1065,00
011|0,00|0,00
W
W02|1065,00|191,70|1065,00|0,00|1065,00|0,00|0,00|0,00|0,00|106,50|0,00|0,00|0,00|1171,50
X|0
Eu estava vendo que ele tem que estar na codificação UTF-8 e não sei se tem que mudar alguma coisa na rotina para ele gravar nesse codificação...
Observei que o seu txt está gerando valores com [Ô],[Ô] ao inves de [Ô].[Ô]
W02|1065,00|191,70|1065,00|0,00|1065,00|0,00|0,00|0,00|0,00|106,50|0,00|0,00|0,00|1171,50
qdo deveria ser assim
W02|1065.00|191.70|1065.00|0.00|1065.00|0.00|0.00|0.00|0.00|106.50|0.00|0.00|0.00|1171.50
Sou Iniciante em NFe... e programo em VB6... gostaria muito de porder ajudar... e sei que desta forma também serei ajudado!!! se alguem tiver alguns códigos para que eu posso dar uma analizada, por favor me envie!!![/txt-size]