Jump to content

botao.pngbotao.png

botao.pngbotao.png

logo_acbr_paygo.png

TEF ACBr PayGo
Seja um revendedor e ofereça uma solução completa para seu cliente.


botao.png

beneficios.png

Armando Monteiro

Usuários SAC
  • Content Count

    59
  • Joined

  • Last visited

Everything posted by Armando Monteiro

  1. A blz...não tinha me atentado que no exemplo em vb6 "Imprimir Pdf" estava usando nfe.Imprimir e não nfe.ImprimirPDF - dai não gerava - obrigado.
  2. nao quero imprimir...qdo gerar o xml da nfe ja gerar o pdf...para mandar por email
  3. gerar automaticamente o pdf na nfe - utilizando acbrlib no vb6
  4. ACBrNFe... para cst 060 para não retornar rejeição 938 precisa preencher valores pST...etc...e comentei q no emissor sebrae ou ns da para não preencher
  5. 938-Rejeição: Não informada vBCSTRet, pST, vICMSSubstituto e vICMSSTRet [nItem: 1] [ICMS001] orig=0 CST=60 modBC= pRedBC= vBC= pICMS= vICMS= modBCST= pMVAST= pRedBCST= vBCST= pICMSST= vICMSST= UFST= pBCOp= vBCSTRet=0.00 vICMSSTRet=0.00 motDesICMS= pCredSN= vCredICMSSN= vBCSTDest= vICMSSTDest= vICMSDeson= vICMSOp= pDif= vICMSDif= pST=0.0000 vBCFCP= pFCP= vFCP= vBCFCPST= pFCPST= vFCPST= vBCFCPSTRet= pFCPSTRet= vFCPSTRet= pRedBCEfet= vBCEfet= pICMSEfet= vICMSEfet= vICMSSubstituto=0.00
  6. utilizo em escpos e não imprimo na lateral ...no win7 64 vai de boa (modelo mp-4200 da bematech)
  7. No windows 10 64 bits não esta saindo qrcode na impressora bematech mp-4200
  8. Deu certo agora, erro de interpretação .... estava focado na NFe em si...e quando vcs falam emitente (não é o da NFe e sim do Evento)....mas OK [EVENTO] idLote=1 [EVENTO001] cOrgao=<informar o código da UF do emitente do evento> CNPJ=<CNPJ do emitente do evento> chNFe=<chave da NFe> dhEvento=<data e hora do evento> tpEvento=210200 nSeqEvento=1 versaoEvento=1.00 manifesta.ini ACBrLibNFE-20191226.log
  9. manifesta.ini [EVENTO] idLote = 1 [EVENTO001] cOrgao=35 CNPJ=01682212000240 chNFe=35191201682212000240550050000012091403719420 dhEvento=26/12/2019 16:47:40 tpEvento = 210200 nSeqEvento = 1 versaoEvento = 1.00 ------------------------------------------------------------------ Chamada de funções nfe.LimparListaEventos nfe.CarregarEventoINI ("d:\nfe\manifesta.ini") SetResposta nfe.EnviarEvento(1) ------------------------------------------------------------------ Resposta: [Evento] CStat=128 CUF=0 Msg= VerAplic=AN_4.0.0 Versao=
  10. Rafael Dias, o erro realmente não era meu...mas sim no exemplo http://svn.code.sf.net/p/acbr/code/trunk2/Projetos/ACBrLib/Demos/VB6/NFe/Imports/ACBrNFe.cls Favor fazer a corrigir Public Function DistribuicaoDFePorChave(ByVal acUFAutor As String, ByVal eCnpjcpf As String, ByVal echNFe As String) As String Dim retorno As Long Dim buffer As String Dim bufferLen As Long bufferLen = BUFFER_LENGTH buffer = String$(bufferLen, " ") retorno = NFE_DistribuicaoDFePorNSU(acUFAutor, eCnpjcpf, echNFe, buffer, bufferLen) >>>>>errado<<<<&l
  11. Rafel Dias, resposta meio absurda não acha...o componente acha a nota no sefaz pelo xml, acha a nota pela no sefaz pela chave , só não esta baixando pelo componente...e eu estou fazendo algo errado. No site da sefaz acho a nota e faço download...fiz a manifestação pelo software do sefaz e depois consultei novamente no site ... e ali apresenta o aceite da nota. Analise....o componente não funciona 100% para finalidade de download...nada é tão perfeito.
  12. Bom dia, esta nota eu já tinha manifestado pelo software que o governo disponibiliza (Ciencia da Operacao 210210 e Confirmacao da Operacao 210200) mas mesmo assim não baixou, mesmo erro Não utilizei o método de vcs...não sei de faz diferença? Mas se faz seria isso: manifesta.ini [EVENTO] idLote=1 [EVENTO001] cOrgao=35 CNPJ=05441657000612 chNFe=35191005441657000612550010003422711101649362 dhEvento=2019-12-26T09:10:46-03:00 tpEvento=210200 nSeqEvento=1 versaoEvento=1.00 -------------------------------------------------
  13. Rafael Dias, baixei o xml do sefaz nacional...portanto ja esta sincroninado....estou utilizando produção tpAmb=1... e na consulta retorna consulta OK [Consulta] CStat=100 CUF=35 ChNFe=35191268993641000128550010005379541513061031 DhRecbto=05/12/2019 14:45:56 DigVal=wAtEQDl0ZQ7oQ+KjPb6wdT8bYQA= Msg=Autorizado o uso da NF-e NProt=135190921071617 VerAplic=SP_NFE_PL009_V4 Versao=4.00 XMotivo=Autorizado o uso da NF-e cMsg=0 tpAmb=1 xMsg=
  14. Caro Rafael Dias...esta nota foi enviada contra....é uma nota da Agis para minha empresa.
  15. Não esta funcionando baixar a nfe (esta consultando mas não faz download) Dim eChave As String Dim eCNPJ As String Dim eUF As Integer eCNPJ = "96271309000195" eChave = "35191268993641000128550010005379541513061031" eUF = 35 SetResposta nfe.DistribuicaoDFePorChave(eUF, eCNPJ, eChave) [Status] CStat=107 CUF=35 DhRecbto=23/12/2019 10:40:37 Msg=Serviço em Operação TMed=1 VerAplic=SP_NFE_PL009_V4 Versao=4.00 XMotivo=Serviço em Operação XObs= tpAmb=1 [Consulta] CStat=100 CUF=35 ChNFe=35191268993641000128550010005379541513061031 DhRecbto=
  16. Gostaria de saber se tem como atraves ACBrNFe32.dll fazer download de xml
  17. baixei a nova ACBrSAT32.dll 16-10-2019 e agora da erro de file not found:ACBrSAT32.dll mas volto a penúltima o sistema retorna funcionar. Tenho todas as dlls instaladas no diretorio do sistema.
  18. Meu projeto é em vb6 tem como acrescentar TEF dedicado - ja sou homologado pela sitef mas preciso de um componete mais dinamico
  19. acho que não desenhei direito Private Sub btnEnviar_Click() On Error GoTo Erro: CommonDialog1.DialogTitle = "Selecione o arquivo ini" CommonDialog1.InitDir = App.Path CommonDialog1.Filter = "Arquivo Ini NFe (*.ini)|*.ini|Todos os Arquivos (*.*)|*.*" CommonDialog1.FileName = vbNullString CommonDialog1.ShowOpen If CommonDialog1.FileName = vbNullString Then Exit Sub nfe.LimparLista nfe.CarregarINI (CommonDialog1.FileName) SetResposta nfe.Enviar(1) Erro: MsgBox Err.Description
×
×
  • Create New...