Alexandre Faustinoni

Aqui deu certo graças a Deus. Obrigado pessoal. Já fiz em 3 clientes e deu tudo certo.

Alguém conseguiu algum retorno da SEFAZ ? OU mesmo a ajuda do André deu certo com alguém ?

Estou tendo problemas para buscar notas na SEFAZ em alguns clientes. Erro Interno: -2146893815 Erro HTTP:0 URL: https://www1.nfe.fazenda.gov.br/NFeDistribuicaoDFe/NFeDistribuicaoDFe.asmx Erro: 2148073481 Não consegui anexar a imagem.

Misericórdia. Que vergonha. Esqueci de trocar a versão na emissão.

Juliomar, Coloquei todas as configurações que acredito sejam necessárias: //Certificado por número de série if (dmADS.tbEmp.fieldbyname('CERTIFDIGSERIAL').AsString <> '') then begin ACBrCTe1.Configuracoes.Certificados.NumeroSerie := dmADS.tbEmp.fieldbyname('CERTIFDIGSERIAL').AsString; ACBrCTe1.Configuracoes.Certificados.ArquivoPFX := ''; ACBrCTe1.Configuracoes.Certificados.Senha := ''; end else if (dmADS.tbEmp.fieldbyname('CERTPASS').AsString <> '') then begin ACBrCTe1.Configuracoes.Certificados.ArquivoPFX := dmADS.tbEmp.fieldbyname('CERTIFDIG').AsString; ACBrCTe1.Configuracoes.Certificados.Senha := dmADS.tbEmp.fieldbyname('CERTPASS').AsString; ACBrCTe1.Configuracoes.Certificados.NumeroSerie := ''; end; if (not (ACBrCTe1.SSL.CertificadoLido)) then begin try ACBrCTe1.SSL.DescarregarCertificado; ACBrCTe1.Configuracoes.Geral.SSLLib := TSSLLib(StrToIntDef(LerArqINI('', 'Certificado', 'SSLLib' , '4'), 4)); ACBrCTe1.Configuracoes.Geral.SSLCryptLib := TSSLCryptLib(StrToIntDef(LerArqINI('', 'Certificado', 'CryptLib' , '3'), 3)); ACBrCTe1.Configuracoes.Geral.SSLHttpLib := TSSLHttpLib(StrToIntDef(LerArqINI('', 'Certificado', 'HttpLib' , '2'), 2)); ACBrCTe1.Configuracoes.Geral.SSLXmlSignLib := TSSLXmlSignLib(StrToIntDef(LerArqINI('', 'Certificado', 'XmlSignLib' , '4'), 4)); ACBrCTe1.SSL.SSLType := TSSLType(StrToIntDef(LerArqINI('', 'WebService', 'SSLType2' , '0'), 0)); ACBrCTe1.SSL.CarregarCertificadoSeNecessario; except //Exceção on E: Exception do begin MensErro('', 91, '(InificalizaCTe_LerCertificado) ' + E.ClassName + ' - ' + E.Message, true, true); end; end; end; with ACBrCTe1.Configuracoes.WebServices do begin UF := sUFEmit; if (dmADs.tbEmpNFEPRODUCAO.asstring = 'P') then Ambiente := taProducao else Ambiente := taHomologacao; //Se true visualiza mensagens diretamente do componente ACBr //Bom para quando se quer depurar algum retorno Visualizar := false; //Valida o arquivo INI para definir os padrões básicos das consultas if (LerArqINI('', 'NFe', 'TimeOutConsulta', 'ERRO') = 'ERRO') then GravaArqINI('', 'NFe', 'TimeOutConsulta', '5000'); if (LerArqINI('', 'NFe', 'Tentativas', 'ERRO') = 'ERRO') then GravaArqINI('', 'NFe', 'Tentativas', '10'); if (LerArqINI('', 'NFe', 'TimeOutTentativas', 'ERRO') = 'ERRO') then GravaArqINI('', 'NFe', 'TimeOutTentativas', '3000'); if (LerArqINI('', 'NFe', 'TimeOut', 'ERRO') = 'ERRO') then GravaArqINI('', 'NFe', 'TimeOut', '18000'); Salvar := (dmADS.tbEmpGERAARQLOG.value = 'S'); AjustaAguardaConsultaRet := true; AguardarConsultaRet := StrToIntDef(LerArqINI('', 'NFe', 'TimeOutConsulta', '5000'), 5000); Tentativas := StrToIntDef(LerArqINI('', 'NFe', 'Tentativas', '10'), 10); IntervaloTentativas := StrToIntDef(LerArqINI('', 'NFe', 'TimeOutTentativas', '3000'), 3000); TimeOut := StrToIntDef(LerArqINI('', 'NFe', 'TimeOut', '18000'), 18000); end; with ACBrCTe1.Configuracoes.Geral do begin ExibirErroSchema := true; FormatoAlerta := 'TAG:%TAGNIVEL% ID:%ID%/%TAG%(%DESCRICAO%) - %MSG%.'; FormaEmissao := teNormal; ModeloDF := moCTe; VersaoDF := ve400; Salvar := (dmADS.tbEmpGERAARQLOG.value = 'S'); RetirarAcentos := true; ValidarDigest := true; end; with ACBrCTe1.Configuracoes.Arquivos do begin Salvar := true; SepararPorMes := true; AdicionarLiteral := false; EmissaoPathCTe := true; SepararPorCNPJ := false; SepararPorModelo := false; PathSalvar := ExtractFilePath(paramstr(0)) + 'Temp'; PathSchemas := ExtractFilePath(paramstr(0)) + 'EsquemasCTe'; PathCTe := sPastaSis; PathEvento := sPastaSis + '\Eventos'; end;

Estou com o seguinte erro na transmissão da CT-e. CTeRecepcaoSinc não encontrada na sessão CTe_SP_P no arquivo ACBrCTeServicos Comando para enviar: ACBrCTe1.Enviar(iLote, true, true); tentei também: ACBrCTe1.Enviar(iLote, true, false); Não estou conseguindo colar a imagem do erro

Sim zerei e não localizou nada.

Recentemente fechamos um cliente na Bahia. Em SP, MG, RS, SC a busca das notas destinadas (DF-e) ocorre normalmente a busca das notas e dos eventos. Porém na BA não esta baixando a pesar do cliente ter várias notas emitidas contra o cnpj deles. Se utilizar o download pela chave ele faz a busca mais pela sequencia de NSU não. Alguém já teve um problema desses ?

Boa tarde, Juliomar não sei o que era ao certo mais funcionou. Removi a pasta do componente e baixei tudo de novo. Ai foi. Muito obrigado.

amigos, vi que tem um tópico sobre o assunto mais acredito que estou fazendo tudo certo. - atualizado com data de hoje - comando para enviar a MDF-e: ACBrMDFe1.Enviar(1, true, false); - verifiquei com o exemplo também tentei enviar como: ACBrMDFe1.Enviar(1); Erro que esta dando: Erro Interno: 0 Erro HTTP: 404 URL: https://mdfe-homologacao.svrs.rs.gov.br/ws/mdferetrecepcao/MDFeRetRecepcao.asmx <!DOCTYPE html> <html> <head> <title>The resource cannot be found.</title> <meta name="viewport" content="width=device-width" /> <style> Porém a MDF-e é transmitida, acredito que seja um problema de retorno. Alguém poderia me ajudar por favor.

Deu certo amigo Renato. Estava copiando da arquitetura do SO. Vou fazer uma troca então nos clientes. Muito obrigado.

Boa tarde amigo Renato. Fiz a cópia, incluisive usando o app de exemplo, mais sem sucesso. A consulta não retorna nada. Copiei inclusive outras dlls da mesma pasta do ACBr.

Amigos, boa noite A consulta pelo ACBrConsultaCNPJ só funciona e retorna os campos dentro do meu computador. Nos computadores de clientes não apresenta erro porém não retorna erro, simplismente os campos vem tudo vazios. Algo que esqueci de configurar ?

Fiz outra mudança no mesmo .pas. Agora para pegar a soma das parcelas somente se count das parcelas for > 0. ACBrNFeNotasFiscais.pas

blz vou acabar de fazer alguns ajustes e vou anexar. Segue sugestão de mudança para GravaLog('Validar: 894-Se informado o grupo de Parcelas de cobrança (tag:dup, Id:Y07) e Data de vencimento (dVenc, id:Y09) não informada ou menor que a Data de Emissão (id:B09)'); if (Trunc(nfe.Cobr.Dup.Items.dVenc) < Trunc(NFe.Ide.dEmi)) then AdicionaErro('894-Rejeição: Data de vencimento da parcela não informada ou menor que Data de Emissão'); GravaLog('Validar: 867-Se informado o grupo de Parcelas de cobrança (tag:dup, Id:Y07) e Data de vencimento (dVenc, id:Y09) não informada ou menor que a Data de vencimento da parcela anterior (dVenc, id:Y09)'); if (Trunc(nfe.Cobr.Dup.Items.dVenc) < Trunc(UltVencto)) and (i > 0) then AdicionaErro('867-Rejeição: Data de vencimento da parcela não informada ou menor que a Data de vencimento da parcela anterior'); GravaLog('Validar: 894-Se informado o grupo de Parcelas de cobrança (tag:dup, Id:Y07) e Data de vencimento (dVenc, id:Y09) não informada ou menor que a Data de Emissão (id:B09)'); if (Trunc(nfe.Cobr.Dup.Items[I].dVenc) < Trunc(NFe.Ide.dEmi)) then AdicionaErro('894-Rejeição: Data de vencimento da parcela não informada ou menor que Data de Emissão'); GravaLog('Validar: 867-Se informado o grupo de Parcelas de cobrança (tag:dup, Id:Y07) e Data de vencimento (dVenc, id:Y09) não informada ou menor que a Data de vencimento da parcela anterior (dVenc, id:Y09)'); if (Trunc(nfe.Cobr.Dup.Items[I].dVenc) < Trunc(UltVencto)) and (i > 0) then AdicionaErro('867-Rejeição: Data de vencimento da parcela não informada ou menor que a Data de vencimento da parcela anterior'); ACBrNFeNotasFiscais.pas