Ir para conteúdo
  • Cadastre-se

marcelojsilva

Membros
  • Total de ítens

    110
  • Registro em

  • Última visita

Tudo que marcelojsilva postou

  1. marcelojsilva

    Socket Error # 10013

    A partir dessa semana, todos as versões que estou liberando do meu aplicativo de NFCe está retornando nos clientes Socket Error # 10013 Access denied . Somente quando peço para executar o aplicativo como administrador é que dá certo. Não foi alterado nada no meu pc, somente atualizei o acbr. O que fazer para o aplicativo rodar sem ser administrador?
  2. Alguma ideia do que pode está acontecendo?
  3. Rodei o programa de exemplo do acbr e retorna isso: Na consulta a cima foi usando libOpenSSl Usando wincrypt retorna isso:
  4. // Descomente a linha abaixo, se você quer que seu Executável NÃO dependa das DLLs LibXML2, LibXMLSEC, (NÃO RECOMENDADO) //{.$DEFINE DFE_SEM_OPENSSL} // Comente a linha abaixo, se você quer que seu Executável dependa das DLLs LibXMLSEC (NAO RECOMENDADO) {$DEFINE DFE_SEM_XMLSEC} // Descomente a linha abaixo, se você quer que seu Executável NÃO dependa das DLLs LibXML2. (NAO RECOMENDADO) //{.$DEFINE DFE_SEM_LIBXML2} // Descomente a linha abaixo, se você não utiliza a obsoleta Capicom para Criptografia (RECOMENDADO) {$DEFINE DFE_SEM_CAPICOM} // Descomente a linha abaixo, se você não utiliza a obsoleta MSXML para Assinatura de XML (RECOMENDADO) {.$DEFINE DFE_SEM_MSXML} // Descomente a linha abaixo, se você não deseja adicionar a Dependência da INDY nos seus Projetos {.$DEFINE DFE_SEM_INDY} Eu uso libOpenssl e libWincrypt. Essa configuração do Acbr.inc é a mais correta? Não sei mais o que fazer, não retorna nada
  5. Eu cheguei a instalar tbm, e mesmo assim não retorna
  6. Está sim, Daniel. Eu carrego as dlls na pasta do meu aplicativo. Teria outra dica?
  7. marcelojsilva

    Consulta sem retorno

    Tenho um cliente que passou a não retornar as consultas e status do serviço. Estava configurado com a libWinCrypt. Mexi no windows, atualizei e nada. Depois vi que o edge estava precisando atualizar, e ao atualizar voltou a responder, porem paraou novamente. Mudei para Openssl, pois é A1, só que continua sem retorno. Meu acbr.inc está assim // Descomente a linha abaixo, se você quer que seu Executável NÃO dependa das DLLs LibXML2, LibXMLSEC, (NÃO RECOMENDADO) {.$DEFINE DFE_SEM_OPENSSL} // Comente a linha abaixo, se você quer que seu Executável dependa das DLLs LibXMLSEC (NAO RECOMENDADO) {$DEFINE DFE_SEM_XMLSEC} // Descomente a linha abaixo, se você quer que seu Executável NÃO dependa das DLLs LibXML2. (NAO RECOMENDADO) //{.$DEFINE DFE_SEM_LIBXML2} // Descomente a linha abaixo, se você não utiliza a obsoleta Capicom para Criptografia (RECOMENDADO) {$DEFINE DFE_SEM_CAPICOM} // Descomente a linha abaixo, se você não utiliza a obsoleta MSXML para Assinatura de XML (RECOMENDADO) {.$DEFINE DFE_SEM_MSXML} // Descomente a linha abaixo, se você não deseja adicionar a Dependência da INDY nos seus Projetos {.$DEFINE DFE_SEM_INDY} na minhja maquina funciona perfeitamente usando openssl, mas neste cliente não consegui. atualizei o acbr e peguei as utimas dlls da opensl(x86) pois é 32 bits. Coloquei no cliente, mas nada ainda. Tanto status de serviço e consulta de nota já autorizada, simplesmente não retorna nada quando consulta uma nota pendente retorna isso Tem noção do que poderia ser?
  8. Descobri aqui, pessoal. Enviar.msg retorno as informações que preciso. Obrigado!
  9. marcelojsilva

    capturar chave nfc-e

    Boa tarde! Gostaria de capturar a chave da nfce quando esta estiver em duplicidade. Ex: por algum motivo uma nota enviada para a sefaz não foi gravado no meu banco e ao tentar enviar uma proxima nota, irá repetir a numeração dessa nota não gravada mas já autorizada na sefaz. Ao enviar, recebo o retorno do componente com a msg de duplicidade e com a chave já autorizada. Gostaria de pegar esse retorno e não estou conseguindo.
  10. Obrigado pela explicação.
  11. Tenho duvida no retorno desses 3 metodos: DistribuicaoDFePorChaveNFe,DistribuicaoDFePorNSU,DistribuicaoDFePorUltNSU. Eu salvo no meu sistema as notas emitidas para determinado cnpj somente os retorno de notas completas, fazendo assim: for I := 0 to Pred(fACBrNfe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Count) do Begin if fACBrNfe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[I].resDFe.chDFe <> EmptyStr then ou seja, somente vai gravar se fACBrNfe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[I].schema = schprocNFe(nota completa). Mas depois que faço a ciência da nota e vou fazer o download, tenho retornos distintos usando esses 3 metodos; 1 - usando DistribuicaoDFePorChaveNFe retorna DistribuicaoDFe.retDistDFeInt.docZip.Items[I].schema= schprocNFe 2 - usando DistribuicaoDFePorNSU retorna DistribuicaoDFe.retDistDFeInt.docZip.Items[I].schema= schResNFe 3 - usando DistribuicaoDFePorUltNSU retorna DistribuicaoDFe.retDistDFeInt.docZip.Items[I].schema= schprocEventoNFe Como eu salvei o NSU no banco da nota completa e uso ele para retorno usando o metodo a cima, penso que deveria retornar sempre DistribuicaoDFe.retDistDFeInt.docZip.Items[I].schema = schprocNFe, mas não, somente se uso DistribuicaoDFePorChaveNFe. O que acontece?
  12. Tenho duvida no retorno desses 3 metodos: DistribuicaoDFePorChaveNFe,DistribuicaoDFePorNSU,DistribuicaoDFePorUltNSU. Eu salvo no meu sistema as notas emitidas para determinado cnpj somente os retorno de notas completas, fazendo assim: for I := 0 to Pred(fACBrNfe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Count) do Begin if fACBrNfe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[I].resDFe.chDFe <> EmptyStr then ou seja, somente vai gravar se fACBrNfe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.Items[I].schema = schprocNFe(nota completa). Mas depois que faço a ciência da nota e vou fazer o download, tenho retornos distintos usando esses 3 metodos; 1 - usando DistribuicaoDFePorChaveNFe retorna DistribuicaoDFe.retDistDFeInt.docZip.Items[I].schema= schprocNFe 2 - usando DistribuicaoDFePorNSU retorna DistribuicaoDFe.retDistDFeInt.docZip.Items[I].schema= schResNFe 3 - usando DistribuicaoDFePorUltNSU retorna DistribuicaoDFe.retDistDFeInt.docZip.Items[I].schema= schprocEventoNFe Como eu salvei o NSU no banco da nota completa e uso ele para retorno usando o metodo a cima, penso que deveria retornar sempre DistribuicaoDFe.retDistDFeInt.docZip.Items[I].schema = schprocNFe, mas não, somente se uso DistribuicaoDFePorChaveNFe. O que acontece?
  13. marcelojsilva

    ACBrBal remotamente

    Boa noite! No meu sistema implementei um rotina que busca da quantidade da balança usando o acbrbal. O problema é que tenho um cliente que vai acessar o sistema pelo Ts. Como posso configurar o acbrbal para usar o terminal services e inserir a quantidade lida na balança local e jogar no campo remoto?
  14. Obrigado!
  15. Bom dia! Criando um layout de impressão de um carnê que tenho no sistema. Vai imprimir na USB e Serial. Gostaria que via usb, as fontes utilizadas parecesse como se estivesse sendo impressa na serial
  16. marcelojsilva

    Fonte usado nos ecfs

    Estou criando um layout de impressão tanto pela serial quanto via usb. Via Usb estou criando um relatorio e gostaria de colocar a fonte parecida da impressao via comando direto. Vc sabe qual fonte a bematech ou outra impressora usa?
  17. Realmente era os fontes. Estranho que tinha atualizado e não deu nenhum conflito. Tive que excluir AcbrNfeWebServices e baixar novamente, e depois alterar. Resolvido. Muito obrigado a todos!
  18. Boa noite, Daniel! Obrigado por responder. Segue o print
  19. Correção: A unit com erro é AcbrNfe, na AcbrNfeWebServices falta a classe ExtrairEvento
  20. marcelojsilva

    Erro ao atualizar Acbr

    Na unit AcbrNfeWebservices está com erro que não foi encontrado ExtrairEvento. Esse erro ocorreu quando atualizei.
  21. Bom dia, Italo! Agora deu certo. Eu estava usando a o procedimento Qrcodetocanvas da DelphiZXingQRCode.pas. Agora passei a usar a pintarQrcode para impressão e deu certo! Obrigado!
  22. Boa tarde! Ao gerar o Qrcode no modo em contigencia estou tendo problema de leitura da Damdfe No modo normal da certo: Composição do conteudo normal = (1ª parte - URL para acessar o MDF-e, seguido do caractere “?” 2ª parte - parâmetros chMDFe e tpAmb ) Modo contigencia: 1ª parte - URL para acessar o MDF-e, seguido do caractere “?” 2ª parte - parâmetros chMDFe e tpAmb da mesma forma como na forma de emissão normal separados pelo caractere “&”; 3ª parte – sign assinatura digital Quando é inserido a assinatura, o qrcode não lê.(somente na impressão) Alguma sugestão? Estou usando a unit ACBrDelphiZXingQRCode
  23. Vc entendeu certo, é isso mesmo! Então vamos deixar do jeito que está, pois acredito que não deve fazer diferença para leitura do QrCode. Obrigado!
  24. Boa tarde, Italo! Funciona sim, mas no manual da MDFe tem uma observação : Para o QR Code do DAMDFE será utilizado Nível M. O código implementado está no nivel L Podemos deixar com foi implementado?
  25. marcelojsilva

    QRCODE no Damdfe

    Bom Dia! Estou imprimindo o Qrcode no Damdfe da MDFe usando a dica aqui no forum Porém no manual : Para o QR Code do DAMDFE será utilizado Nível M. Quando usa a linha 'destacada', não consigo mais ler o Qrcode; Como vcs estão tratando essa questão? procedure TFrEmisMDFE.QrCodeToCanvas(AWidth, AHeight: Integer; ATexto:String; ACanvas: TCanvas); var bitmap: TBitmap; qr: TDelphiZXingQRCode; r: Integer; Integer; scala: Double; begin bitmap := TBitmap.create; try qr := TDelphiZXingQRCode.create; try qr.CorrectionLevel:= qrclM; qr.QuietZone:= 1; qr.Data := WideString(ATexto); // ajuta o tamanho do bitmap para o tamanho do qrcode // bitmap.SetSize(qr.Rows, qr.Columns); bitmap.Width:= qr.Columns; bitmap.Height:= qr.Rows; // copia o qrcode para o bitmap for r := 0 to qr.Rows - 1 do for c := 0 to qr.Columns - 1 do if qr.IsBlack[r, c] then bitmap.Canvas.Pixels[c, r] := clBlack else bitmap.Canvas.Pixels[c, r] := clWhite; // prepara para redimensionar o qrcode para o tamanho do canvas if (AWidth < bitmap.Height) then begin scala := AWidth / bitmap.Width; end else begin scala := AHeight / bitmap.Height; end; // transfere o bitmap para a imagem ACanvas.StretchDraw(Rect(0, 0, Trunc(scala * bitmap.Width), Trunc(scala * bitmap.Height)), bitmap); finally qr.Free; end; finally bitmap.Free; end; end;
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.