RFE Sistemas

boa tarde, gostaria de saber se existe ACBrNFSe - para VB6 uso o ACBrLib. Se existir onde encontro. Obrigado

ACBLib... procurei na documentação mas não achei nada... ou estou procurando no local errado se puder me auxiliar por favor.

bom dia, gostaria de saber se existe algum exemplo em VB6 para NFC-e. Pois preciso criar para o paraná. Agradeço desde já.

perfeito... eu fui olhar aqui e estão aqui mesmo... muito obrigado novamente... como sempre atenção de vocês pe fantástica.

Se tiver os dois seria melhor... é que pesquisei e não encontrei nada em VB.

Bom dia andei olhando o ACBrNfe mas não encontrei um método de importação do xml. Gostaria de ver se existe algum método que eu leia ele me traga as tags e após isso eu faça o insert em meu banco de dados.

Testei aqui e deu tudo certinho, muito obrigado!

ele não dá erro simplismente não imprime e fecha o demo

acabei de apagar os logs fiz o processo para impressão novamente e gerou este log. ACBrLibSAT-20200724.log

Segue em anexo o Log. ACBrLibSAT-20200724.log

Sim Estou sim, emite o sat normal, impressão sai normal, o cancelamento normal só não esta imprimindo o cancelamento mesmo.

Boa tarde, fiz o cancelamento do SAT perfeito foi certinho, no entando quando vou imprimir não imprime e fecha o sistema. Alguém poderia me ajudar? Segue abaixo os Códigos usados. /* --------------------------- Botão de impressão ------------------*/ Dim XmlVenda, XmlCancelamento As String XmlVenda = "C:\Program Files (x86)\Microsoft Visual Studio\VB98\Vendas\11111111111111\202007\24\AD35200711111111111111591234567890002074158897.xml" XmlCancelamento = "C:\Program Files (x86)\Microsoft Visual Studio\VB98\Cancelamentos\11111111111111\202007\24\ADC35200711111111111111591234567890002082256479.xml" retorno = sat.CancelarCFe(XmlVenda) 'SetResposta retorno sat.ImprimirExtratoCancelamento XmlVenda, XmlCancelamento, vbNullString /* --------------------------- Função Criada ------------------*/ Public Function ImprimirExtratoCancelamento(ByVal eArquivoXml As String, ByVal eArquivoXmlCancelamento, Optional ByVal eNomeImpressora As String = "") Dim retorno As Long 'retorno = SAT_ImprimirExtratoVenda(eArquivoXml, eNomeImpressora) 'CheckResult (retorno) retorno = SAT_ImprimirExtratoCancelamento(eArquivoXml, eArquivoXmlCancelamento, eNomeImpressora) CheckResult (retorno) End Function /* --------------------------- Declaração ------------------*/ Private Declare Function SAT_ImprimirExtratoCancelamento _ Lib "ACBrSAT32.dll" (ByVal eArquivoXml As String, _ ByVal eArquivoXmlCanelamento, _ ByVal eNomeImpressora As String) As Long

Boa Tarde, graças a ajuda consegui gerar o xml perfeitamente enviei para o emulador fez todo processo corretamente, no entanto gostaria de saber como faço para visualizar o SAT na tela para fins de teste de layout claro e também gostaria de saber onde pego os retornos para gravar no banco, pois quando vou receber o retorno o projeto fecha automáticamente. Alguém poderia me auxiliar o que pode estar acontecendo? e também me dar um help na questão da impressão do SAT? Desde de já agradeço a todos.

Fazendo testes aqui como me enviou um .exe fiz o seguinte peguei as dlls e compilei o projeto com o projeto compilado rodou tranquilo certinho comunicou com o emulador da sefaz... mas quando eu rodo pelo vb ele da o mesmo erro e com o projeto compilado quando consulto o status fecha o exe então precisaria debugar pra ver o que acontece... alguma sugestão de que possa ser esse erro rodando pelo vb?

exclui todos e baixei novamente como orientado acima, vou passar os links de onde baixei caso tenha baixado algo errado e vou mostrar os prints das dll caso esteja errado e por favor se possivel me ajudem a encontrar os links corretos pois sou novo e ainda estou meio perdido em encontrar as coisas.