Juliano Otaviano Barreto

Saudações amigos, desculpe a simplicidade do meu tópico mas eu já procurei por toda parte e não estou conseguindo solução. A questão é que um dos clientes da minha empresa deseja testar a NFe por algumas semanas, ou seja, emitir as notas fiscais em ambiente de homologação. Em nosso sistema existe a configuração do ambiente, da mesma maneira que o "Monitor" mas toda vez que gera o arquivo XML ele está sendo gerado com 'Tpamb=1', mesmo com a configuração de homologação. Sei que hoje em dia é muito raro as empresas desejarem usar a NFe em homologação mas acontece, né? Fiz os testes tanto com a versão 3.10 e 4.00... acontece sempre o mesmo. Espero que alguem possa ter uma ideia do que pode ser. Att. Juliano

Obrigado pela atenção pessoal. Deixei desta forma o trecho que vcs pediram para retirar: //{$IFDEF ACBrCTeOpenSSL} //CTe.Configuracoes.Certificados.Certificado:=dm.qrempresa.fieldbyname('CERTIFICADO_CAMINHO').asstring; CTe.Configuracoes.Certificados.ArquivoPFX:=dm.qrempresa.fieldbyname('CERTIFICADO_CAMINHO').asstring; CTe.Configuracoes.Certificados.Senha:=dm.qrempresa.fieldbyname('CERTIFICADO_SENHA').AsString; //{$ELSE} // CTe.Configuracoes.Certificados.NumeroSerie:=dm.qrempresa.fieldbyname('CERTIFICADO_NUMERO_SERIE').asstring; // CTe.Configuracoes.Certificados.Senha:=dm.qrempresa.fieldbyname('CERTIFICADO_SENHA').AsString; //{$ENDIF} Mas durante a execução estão aparecendo: Erro ao ler informações do certificado. Provavelmente a senha está errada.

Boa tarde amigos, Por estar aparecendo diversos problemas para enviar conhecimentos de transporte para a SEFAZ/MG estou optando em converter o meu sistema de CAPICOM para DLL, poré estou tendo dificuldades, conto com a ajuda daqueles que tem o conhecimento necessário para me ajudar. Vejam: 1) Eu fui no componente ACBrCTe e configurei : CONFIGURAÇÕES / GERAL / SSLIB para libOpenSSL 2) Para configurar o compenente ACBrCTe estou usando a seguinte rotina: {$IFDEF ACBrCTeOpenSSL} CTe.Configuracoes.Certificados.Certificado:=dm.qrempresa.fieldbyname('CERTIFICADO_CAMINHO').asstring; CTe.Configuracoes.Certificados.ArquivoPFX:=dm.qrempresa.fieldbyname('CERTIFICADO_CAMINHO').asstring; CTe.Configuracoes.Certificados.Senha:=dm.qrempresa.fieldbyname('CERTIFICADO_SENHA').AsString; {$ELSE} CTe.Configuracoes.Certificados.NumeroSerie:=dm.qrempresa.fieldbyname('CERTIFICADO_NUMERO_SERIE').asstring; CTe.Configuracoes.Certificados.Senha:=dm.qrempresa.fieldbyname('CERTIFICADO_SENHA').AsString; {$ENDIF} Cte.Configuracoes.Geral.Salvar:=True; Cte.Configuracoes.Arquivos.PathSchemas:=ExtractFilePath(Application.ExeName)+'Schemas\Cte\V200'; Cte.Configuracoes.Arquivos.PathSalvar:=dm.qrempresa.fieldbyname('CTE_PATH_CTE').asstring; Cte.Configuracoes.Arquivos.PathCTe:=dm.qrempresa.fieldbyname('cte_path_cte').asstring; Cte.Configuracoes.Arquivos.PathEvento:=dm.qrempresa.fieldbyname('cte_path_can').asstring; Cte.Configuracoes.Arquivos.PathInu:=dm.qrempresa.fieldbyname('cte_path_inu').asstring; CTe.Configuracoes.Geral.FormaEmissao:=StrToTpEmis(OK,dm.qrempresa.fieldbyname('webservice_ambiente').asstring); CTe.Configuracoes.WebServices.UF:=UpperCase(dm.qrempresa.fieldbyname('webservice_uf').AsString); CTe.Configuracoes.WebServices.Ambiente:=StrToTpAmb(Ok,dm.qrempresa.fieldbyname('webservice_ambiente').asstring); if dm.qrempresa.fieldbyname('webservice_visualizar').asstring='S' then CTe.Configuracoes.WebServices.Visualizar := true else CTe.Configuracoes.WebServices.Visualizar := false; {$IFDEF ACBrCTeOpenSSL} CTe.Configuracoes.WebServices.ProxyHost := dm.qrempresa.fieldbyname('webservice_host').asstring; CTe.Configuracoes.WebServices.ProxyPort := dm.qrempresa.fieldbyname('webservice_porta').asstring; CTe.Configuracoes.WebServices.ProxyUser := dm.qrempresa.fieldbyname('webservice_usuario').asstring; CTe.Configuracoes.WebServices.ProxyPass := dm.qrempresa.fieldbyname('webservice_senha').asstring; {$ELSE} {$ENDIF} O que pude perceber é nos IFs ({$IFDEF ACBrCTeOpenSSL}) o fluxo do programa sempre vai para após o ELSE... 3) Ao executar o sistema aparece o seguinte problema quando tento executar qual comando com o ACBrCTe: Erro ao ler as informações do certificado. Provavelmente a senha está incorreta. Já verifiquei o caminho do certificado e a senha e ambos estão corretos.

Muito obrigado Jaques... Para resolver no meu caso eu fiz vários testes do sistema e quando aparece um erro por sorte o Delphi me apresenta a unit do ACBr onde o erro se originou, dai neste local eu chamo um form especifico para exibir e.message. Assim tá funcionando, porém terei que lembrar de refazer este processo toda vez que atualizar o ACBr. RESOLVIDO

Saudações, Antes de atualizar o meu sistema para Trunk2 no meu sistema existia uma rotina que captava as exceções (erros do sistema) gerados pelo AcbrNFe, desta forma eu ajudava ao usuário como solucionar o problema que ocasionou a exceção, porém após a atualização esta rotina não funciona mais pois o AcbrNFe não está mais dando retornos como antigamente. O que mudou neste ponto? Tem alguma dica de como eu retorno esta função que para mim é muito importante. Desde já, agradeço.

Obrigado Cleber.

Bom dia Italo, Fiz a mudança e o problema alterou, agora a mensagem é: Erro desconhecido ao enviar o lote! Unit : ACBrNFSeWebServices function TWebServices.Envia(ALote: String): Boolean; begin self.Enviar.FNumeroLote := ALote; Result := Self.Enviar.Executar; if not (Result) then begin if Assigned(TACBrNFSe( FACBrNFSe ).OnGerarLog) then TACBrNFSe( FACBrNFSe ).OnGerarLog(Self.Enviar.Msg); if Self.Enviar.Msg <> '' then raise Exception.Create(Self.Enviar.Msg) else raise Exception.Create('Erro Desconhecido ao Enviar o Lote!') end; Ao invés de enviar todos os arquivos de retorno do GovDigital separadamente, vou compacta-los. Desde já agradeço pela ajuda. 201501.rar

Oi Cleber, estou com este mesmo problema, você conseguiu resolvê-lo?

Bom dia Italo, muitissimo obrigado pela atenção. Fiz a atualização do ACBr, recompilei o sistema e inclusive usei a opção de compilação "Build" no Delphi 7 mas o problema permanece. Ainda estou em busca de uma solução.

Saudações, Estou implementando a NFSe para Divinópolis/MG que utiliza o provedor GovDigital, endereços: Produção > https://ws.govdigital.com.br/ws/div Homologação > https://homolog.govdigital.com.br/ws/div O RPS está sendo gerado e aparentemente assinado, mas quando executa a unit 'ACBrNFEsWebServices' na function: function TWebServices.Gera(ARps:Integer): Boolean; begin self.GerarNfse.FNumeroRps := ARps; Result := Self.GerarNfse.Executar; if not (Result) then begin if Assigned(TACBrNFSe( FACBrNFSe ).OnGerarLog) then TACBrNFSe( FACBrNFSe ).OnGerarLog(Self.GerarNfse.Msg); if Self.GerarNfse.Msg <> '' then raise Exception.Create(Self.GerarNfse.Msg) else raise Exception.Create('Erro Desconhecido ao Gerar NFS-e!') end; end; Ocorre o erro List Index Out Of Bounds na linha : Result := Self.GerarNfse.Executar; enfim, passei muitas horas tentando resolver esta questão mas não estou conseguindo, se alguém puder me dar a sua opinião eu ficaria muito agradecido. Vou anexar o arquivo XML da RPS em questão para ajudar na analise. 6A-Rps.xml 6A-Rps2.xml 6-ger-nfse.xml 6-ger-nfse-soap.xml 6-lista-nfse.xml 6-lista-nfse-soap.xml

Boa tarde colegas, Hoje efetuei a atualização do componente e imediatamente surgiu este problema na compilação, meu fonte está da seguinte forma: case strtoint(qrnotasfiscais.Fieldbyname('ncnftipo').asstring) of 0: // Nota fiscal modelo 01 begin // Nota Fiscal {$IFDEF PL_200} with infCTeNorm.infDoc.infNF.Add do {$ELSE} with Rem.InfNF.Add do (ERRO ESTÁ NESTA LINHA) {$ENDIF} begin serie :=qrnotasfiscais.Fieldbyname('ncnfserie').asstring; nDoc :=qrnotasfiscais.Fieldbyname('ncnumeronf').asstring; dEmi :=qrnotasfiscais.Fieldbyname('ncnfemissaonf').asdatetime; vBC :=qrnotasfiscais.Fieldbyname('ncnfbcicms').asfloat; vICMS :=qrnotasfiscais.Fieldbyname('ncnfvricms').asfloat; vBCST :=qrnotasfiscais.Fieldbyname('ncnfbcicmsst').asfloat; vST :=qrnotasfiscais.Fieldbyname('ncnficmsst').asfloat; vProd :=qrnotasfiscais.Fieldbyname('ncnfvrmercadoria').asfloat; vNF :=qrnotasfiscais.Fieldbyname('ncnfvalor').asfloat; if length(sonumeros(qrnotasfiscais.Fieldbyname('ncnfcfop').asstring))>0 then nCFOP :=strtoint(sonumeros(qrnotasfiscais.Fieldbyname('ncnfcfop').asstring)); nPeso :=qrnotasfiscais.Fieldbyname('ncnfpeso').asfloat; //PIN :=''; {$IFNDEF PL_200} // Local de Retirada if length(sonumeros(qrretirada.fieldbyname('doc1').asstring))>13 then locret.CNPJCPF :=sonumeros(qrretirada.fieldbyname('doc1').asstring) else locret.CNPJCPF :=sonumeros(qrretirada.fieldbyname('doc1').asstring); locRet.xnome:=qrretirada.fieldbyname('razaosocial').asstring; locRet.xLgr:=qrretirada.fieldbyname('endereco').asstring; locRet.nro:=qrretirada.fieldbyname('numero').asstring; locRet.xCpl:=qrretirada.fieldbyname('complemento').asstring; locRet.xBairro:=qrretirada.fieldbyname('bairro').asstring; if (qrretirada.fieldbyname('codmunicipio').value<>null) and (length(sonumeros(qrretirada.fieldbyname('codmunicipio').AsString))>0) then locRet.cMun:=strtoint(sonumeros(qrretirada.fieldbyname('codmunicipio').asstring)); locRet.xMun:=qrretirada.fieldbyname('cidade').asstring; locRet.UF:=qrretirada.fieldbyname('uf').asstring; end; {$ENDIF} end; Eu já estou procurando solução para isto mas como vocês todos sabem que nós programadores temos a responsabilidade de manter nossos sistemas rodando entao eu preciso adiantar ao máximo a solução, quem sabe alguem nao passou por esta fase e possa me mostrar o que eu não estou conseguindo ver. Desde já agradeço a quem possa se interessar. Abs.