Ir para conteúdo
  • Cadastre-se

carlos_tedex

Membros
  • Total de ítens

    140
  • Registro em

  • Última visita

Tudo que carlos_tedex postou

  1. Boa tarde Regys, fiz a atualização do componente as 11:00hs se o problema já foi resolvido ta beleza. Apenas quis compartilhar o problema que tive na instalação do componente para outros usuários. Grato pela atenção
  2. Pessoal, Hoje resolvi atualizar o ACBr para versão atual (6921) e ao compilar recebi um erro do ACBrInstall.exe dizendo que a unit "ACBrEFDBloco_K.pas" tinha um carácter inválido. Resolvi abrir o arquivo e percebi que o mesmo estava no formato UTF-8 e nos comentários de direitos autorais onde tinha acentuação no texto estava aparecendo caracteres estranhos. Consegui resolver este erro alterando o formado do arquivo de UTF-8 para formado DOS e fiz a correção de acentuação do texto. Caso alguém tenha este mesmo erro já saberão como resolver. Utilizo o Delphi 7. ACBrEFDBloco_K.pas
  3. Pessoal, ainda estou com dificuldades em tratar alguns erros. Pois em diversas situações esta gerando "Access Violation". Recentemente incluir um arquivo de LOG em meu modulo emissor de NFe para gravar algumas mensagens de erro, vejam abaixo alguns erros que estão ocorrendo nos clientes: Lembrando que estes erros sempre ocorrem durante a transmissão / envio dificultando saber se a nota fiscal foi autorizada ou não. Access violation at address 007EA7A1 in module 'NFeSaida.exe'. Read of address 00000028 O conjunto de chaves não está definido Access violation at address 007EA7A1 in module 'NFeSaida.exe'. Read of address 00000028 Erro no suporte a canais seguros - URL:https://nfe.sefazvirtual.rs.gov.br/ws/Nferecepcao/NFeRecepcao2.asmx - SOAPAction:http://www.portalfiscal.inf.br/nfe/wsdl/NfeRecepcao2 Access violation at address 007E9731 in module 'NFeSaida.exe'. Read of address 00000028 A conexão com o servidor foi interrompida de modo anormal - URL:https://nfe.sefazvirtual.rs.gov.br/ws/Nferecepcao/NFeRecepcao2.asmx - SOAPAction:http://www.portalfiscal.inf.br/nfe/wsdl/NfeRecepcao2 Access violation at address 007EA7A1 in module 'NFeSaida.exe'. Read of address 00000028 Classe não registrada Access violation at address 007E9731 in module 'NFeSaida.exe'. Read of address 00000028 O nome ou o endereço do servidor não pôde ser resolvido - URL:https://nfe.sefazvirtual.rs.gov.br/ws/Nferecepcao/NFeRecepcao2.asmx - SOAPAction:http://www.portalfiscal.inf.br/nfe/wsdl/NfeRecepcao2 Access violation at address 007E9731 in module 'NFeSaida.exe'. Read of address 00000028 Não foi possível estabelecer conexão com o servidor de revogação ou uma resposta definitiva não pôde ser obtida. - URL:https://nfe.sefazvirtual.rs.gov.br/ws/Nferecepcao/NFeRecepcao2.asmx - SOAPAction:http://www.portalfiscal.inf.br/nfe/wsdl/NfeRecepcao2 Access violation at address 007E9731 in module 'NFeSaida.exe'. Read of address 00000028 Uma conexão com o servidor não pôde ser estabelecida - URL:https://nfe.sefazvirtual.rs.gov.br/ws/Nferecepcao/NFeRecepcao2.asmx - SOAPAction:http://www.portalfiscal.inf.br/nfe/wsdl/NfeRecepcao2
  4. Amigo eu utilizo assim: Try ACBrNFe1.EventoNFe.Evento.Clear; Randomize; ACBrNFe1.EventoNFe.idLote := Random(9999); With ACBrNFe1.EventoNFe.Evento.Add do Begin infEvento.dhEvento := now; infEvento.tpEvento := teCancelamento; infEvento.detEvento.xJust := sJustificativa; End; ACBrNFe1.EnviarEventoNFe(ACBrNFe1.EventoNFe.idLote); With ACBrNFe1.WebServices.EnvEvento.EventoRetorno.retEvento.Items[0].RetInfEvento do Begin sStat := IntToStr(cStat); sDataHora := DateTimeToStr(dhRegEvento); sProtocolo := nProt; If (cStat = 135) Then Begin //Gravação no banco de dados end End;
  5. carlos_tedex

    Access Violation

    Boa tarde gostaria da ajuda de vocês, pois estou tendo dificuldades nos clientes quando o usuario ao inves de digitar a senha do certificado o mesmo clica no botão "Cancelar" causando erro em meu codigo nesta linha: With ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe do ERRO: Access violation at address 007E9C11 in module 'NFe.exe' 1 - Como resolver este problema e se existe alguma forma de detectar que o usuário clicou no botão cancelar do certificado. 2 - Estou postando um pedaço do meu codigo de como estou tratando o retorno após o envio e gostaria de saber se tem uma maneira mais segura e confiável ACBrNFe1.NotasFiscais.Clear; sXMLFile := XMLFileName(sPedido, StrToInt(sNumNFe)); If FileExists(sXMLFile) Then Begin With ACBrNFe1.NotasFiscais do Begin LoadFromFile(sXMLFile); Try Try ACBrNFeDANFERaveCB1.MostrarPreview := False; ACBrNFeDANFERaveCB1.NumCopias := 1; ACBrNFe1.Enviar(nNumLote,ImprimirDanfeAuto); Except on E: Exception do Begin If (Trim(E.Message) <> '') Then tsErros.Add(E.Message) Else tsErros.Add(UTF8Encode(ACBrNFe1.WebServices.Retorno.RetornoWS)); End; End; Finally //100 - Autorizado o uso da NF-e //110 - Uso Denegado //301 - Uso Denegado: Irregularidade fiscal do emitente //302 - Uso Denegado: Irregularidade fiscal do destinatário With ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe do Begin case ACBrNFe1.WebServices.Retorno.cStat of 100,110,301,302: begin sRecibo := ACBrNFe1.WebServices.Enviar.Recibo; sStat := IntToStr(Items[0].cStat); sMotivo := Items[0].xMotivo; sDataHora := DateTimeToStr(Items[0].dhRecbto); sProtocolo := Items[0].nProt; //// //// NESTE LOCAL REALIZO A GRAVAÇÃO NECESSARIA NO BANCO DE DADOS //// end; end; End; If (tsErros.Count > 0) Then Application.MessageBox(pChar(tsErros.Text), 'Aviso', MB_OK + MB_ICONWARNING + MB_SETFOREGROUND); end; Informações: Delphi 7 Win 7 ACBR_6608
  6. Pessoal ainda necessito realizar esta modificação toda vez que faço uma atualização do componente. Quando tiverem um tempinho favor realizar o ajuste se possível. Grato! Para visualizarem a modificação deixei este comentário no arquivo: //Carlos Eduardo 06/03/2014 ACBrNFe.pas
  7. Boa tarde, Estou utilizando a procedure EnviarEmailNormal() e percebi que a mesma não esta fazendo uso do parâmetro "NomeRemetente" igual a procedure EnviaEmailThread(). Peço aos moderadores se for possível e viável fazer o seguinte ajuste no arquivo "ACBrNFe.pas" e subir para o SVN: Código Atual m.header.From := sFrom; Código Modificado if Trim(NomeRemetente) <> '' then m.header.From := Format('%s<%s>', [NomeRemetente, sFrom]) else m.header.From := sFrom; Grato
  8. Caro ricardo_casc, Consegui resolver da seguinte maneira. Atribui ao parâmetro UsarThread = FALSE e fiz o tratamento do erro desta forma: try bEmailEnviado := True; ACBrNFe1.NotasFiscais.Items[0].EnviarEmail(...); except bEmailEnviado := False; end; Referente a alterar os fontes para não mostrar os raise's não acho interessante, pois quando eu atualizar o componente o que eu alterei será perdido. Agradeço pelas informações, pois através delas consegui chegar à resolução do problema.
  9. ricardo_casc, essa opção por default já esta setada para True
  10. Boa tarde, Utilizo a função de envio de e-mail do ACBr para enviar o XML e PDF da NFe. ACBrNFe1.NotasFiscais.Items[0].EnviarEmail() Mas estou com as seguintes duvidas: 1 - Preciso saber se no envio deu algum erro? 2 - Quando da um erro de envio de e-mail o componente mostra a mensagem do erro ate ai tudo certo. Gostaria de saber se tem algum parâmetro para omitir a mensagem para o usuário, pois quando o mesmo faz o envio de varias notas a mensagem atrapalha no processamento das demais.
  11. Hoje pela manhã voltou a funcionar normalmente no ambiente de Homologação sem eu mexer em nada.
  12. Caro Edson, verifique se seu problema não está relacionado a soma do valor aproximado dos tributos nos itens em relação ao total, pois ao somar item a item percebi que deu um centavo de diferença ou seja a soma dos itens deveria apresentar R$ 1.811,12 e no XML apresentou R$ 1.811,13.
  13. Para conhecimento: Utilizo o Delphi 7 Windows 7 Ultimate 32/64bits versão do ACBr (6310)
  14. Realmente aqui na empresa utilizamos um firewall (Endian Firewall) e também proxy. Mas já fiz testes ligando o cabo de rede diretamente ao modem sem passar por filtro algum. O interessante e que não foi alterado nada desde sexta-feira (até o momento estava funcionando normal) e o ambiente de produção esta normal. O problema esta somente no ambiente de homologação.
  15. Bom dia, Estou com problemas ao utilizar o ACBr em homologação pois até sexta-feira (17/01/2014) estava tudo normal. Segue os erros apos os seguintes comandos: - Ao enviar: ACBrNFe1.Enviar(vNumLote,True); OBS: Quando o tipo de ambiente está em Produção os comandos acima funcionam normais.
×
×
  • 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.

The popup will be closed in 10 segundos...
The popup will be closed in 10 segundos...