
marcelojsilva
Membros-
Total de ítens
110 -
Registro em
-
Última visita
Tudo que marcelojsilva postou
-
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?
-
Alguma ideia do que pode está acontecendo?
-
Rodei o programa de exemplo do acbr e retorna isso: Na consulta a cima foi usando libOpenSSl Usando wincrypt retorna isso:
-
// 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
-
Eu cheguei a instalar tbm, e mesmo assim não retorna
-
Está sim, Daniel. Eu carrego as dlls na pasta do meu aplicativo. Teria outra dica?
-
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?
-
Descobri aqui, pessoal. Enviar.msg retorno as informações que preciso. Obrigado!
-
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.
-
Obrigado pela explicação.
-
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?
-
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?
-
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?
-
Obrigado!
-
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
-
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?
-
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!
-
Boa noite, Daniel! Obrigado por responder. Segue o print
-
Correção: A unit com erro é AcbrNfe, na AcbrNfeWebServices falta a classe ExtrairEvento
-
Na unit AcbrNfeWebservices está com erro que não foi encontrado ExtrairEvento. Esse erro ocorreu quando atualizei.
-
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!
-
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
-
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!
-
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?
-
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;