johnbh3

Ola Estranho Não entendi muito o que você sugeriu. O PC e totalmente virgem. Eu baixe - https://github.com/fortesinformatica/fortesreport-ce/trunk Pelo TortoiseSVN Eu limpe a pasta Criei nova pasta Muito estranho

Antes de iniciar ainstalação do ACbr Estou tentando instalar o Fortes Report CE. Mas esta dando o erro em anexo. log_Delphi_2009.txt

Bom dia! To acompanhando isto aqui. Como foi eu que criei a duvida. Observei que n tem solução não. E meio chato, mas tive que pedir o cliente pra instalar outro leitor de PDF, remover o Acrobat, ai ele consegue ler. Mas e algo com a criação do DanFe em PDF, com alguma versão do Acrobat, e ocorreu com 3 cliente. So que meu cliente reclamou que o fornecedor dele estava reclamando, ele mim cobrou hehehehehe, pq e sem graça ele ter que passar isto pro cliente dele. Mas se você tentar abrir o mesmo arquivo em outro leitor, ou pelo GMAIL funciona.

Sinceramente não! Como no ACBrDemo não deu erro. Então comecei achar que o erro fosse mesmo meu. Ai observei, que não obedecia a configuração abaixo como FALSE FrmPrincipal.ACBrMail1.SetSSL :=False; FrmPrincipal.ACBrMail1.SetTLS :=False; O codigo que eu errei so obedecia como TRUE. Se fosse FALSE eu deixava acima como TRUE.

Ja resolvi! Obrigado !!

Pois eh Estranho então Porque qualquer email que tento de provedor suaempresa@suempresa.com.br Sempre da erro. Mas eu testei no Demo - ACBrNFe Nele tive sucesso. ACBrMail1.Host := edtSmtpHost.Text; ACBrMail1.Port := edtSmtpPort.Text; ACBrMail1.Username := edtSmtpUser.Text; ACBrMail1.Password := edtSmtpPass.Text; ACBrMail1.From := edtSmtpUser.Text; ACBrMail1.SetSSL := cbEmailSSL.Checked; // SSL - Conexão Segura ACBrMail1.SetTLS := cbEmailSSL.Checked; // Auto TLS ACBrMail1.ReadingConfirmation := False; //Pede confirmação de leitura do email ACBrMail1.UseThread := False; //Aguarda Envio do Email(não usa thread) ACBrMail1.FromName := 'Projeto ACBr - ACBrNFe'; ACBrNFe1.NotasFiscais.Items[0].EnviarEmail( Para, edtEmailAssunto.Text, mmEmailMsg.Lines , True // Enviar PDF junto , CC // Lista com emails que serão enviado cópias - TStrings , nil); // Lista de anexos - TStrings No meu aplicativo uso assim - Mas não e a mesma coisa? No meu aplicativo uso componente FrmPrincipal.ACBrMail1.SetSSL :=True; FrmPrincipal.ACBrMail1.SetTLS :=True; FrmPrincipal.ACBrMail1.FromName := NOME; FrmPrincipal.ACBrMail1.Host := MAIL_SMTP; // troque pelo seu servidor smtp FrmPrincipal.ACBrMail1.Username := MAIL_USUARIO; FrmPrincipal.ACBrMail1.Password := MAIL_SENHA; FrmPrincipal.ACBrMail1.Port := MAIL_SMTP_P; // troque pela porta do seu servidor smtp FrmPrincipal.ACBrMail1.Send;

Nao entendi bem o que vc disse não VocÊ testou meu email httinformatica@httinformatica.com.br e deu certo? POrque como pode ser provedor ? se no outlook fuciona normal?

Olá, Sei que existem outros posts aqui sobre isso. Mas eu já tentei de toda forma. Se eu testar com yahoo, gmail, o envio de nota fiscal funciona. Agora toda vez que se trata de um provedor proprio da pau Vou fornecer uns dados se alguem puder testar ai. Host: smtp.httinformatica.com.br usuario: httinformatica@httinformatica.com.br senha: jose2017 porta: 587

Curioso! Eu testei no DEMO. Não deu erro. Tentou comunicar. Mas fiquei completamente sem entender. Porque o codigo e igual ACBrNFSe1.NotasFiscais.Clear; GerarNFSe(DM_PROCEDURE.SP_NF_SERVICOID.AsString); // aqui esta igual o componente DEMO ACBrNFSe1.Gerar(StrToInt(DM_PROCEDURE.SP_NF_SERVICOID.AsString)); O erro ocorre aqui Alguma informação errada nas TAG? Seila CNES, codigo do serviço, valor do imposto.

Ola Tô testando o nfse deu certo para bh, Sabará. Agora fui mecher em contagem, deu erro de acesso violation ao enviar Alguém sabe o que pode ser? Uma vez que o código e igual. A diferença é só de provedor.

Alguém sabe?

olá, Pessoal Ao gerar o PDF os DANFe fica dando mensagem ao tentar o PDF. Ha um erro nesta página,talvez o acrobat não exiba a pagina corretamente. Entre em contato com a pessoa que criou este documento. Usando o DanFeRL

Procure pelo arquivo ISSDigital.ini Note que esta Altere para validar=0 ; No grupo abaixo é definido os nomes dos arquivos XSD ; usados para realizar a validação do XML a ser enviado ; ao webservice ; 0 = False / 1 = True (Se True então valida) [Schemas] Validar=0

Olá Conseguir resolver a situação para Sabara com provedor ISSDigital So acho estranho se alguem tinha a solução para o ISSDigital funcionando sendo que recebi instrução do mesmo provedor pra corrigir pontos que impedia o envio. Na Unit pnfsNFSeG procedure TNFSeG.SetAtributos; Esta assim // Atributo Id =============================================================== if Identificador <> '' then begin aIdentificador := ' ' + Identificador + '="' + IdLote + '"'; if Provedor in [proGovBR, proPronim, proISSDigital] then aIdentificador := ''; end // Atributo Id =============================================================== if Identificador <> '' then begin aIdentificador := ' ' + Identificador + '="' + IdLote + '"'; if Provedor in [proGovBR, proPronim, proISSDigital] then aIdentificador := ''; //Para atender Sabara 01/12/2016 // acrescentei if Provedor in [proISSDigital] then // acrescentei aIdentificador := ' ' + Identificador + '="' + IdLote + '"'; // acrescentei end Você vão dizer claro poderia tirar if Provedor in [proGovBR, proPronim, proISSDigital] then aIdentificador := ''; Como eu so queria resolver meu problema aqui. Caso alguem queria subir Também na unit pnfsNFSeW_ABRASFv2 procedure TNFSeW_ABRASFv2.GerarXML_ABRASF_v2; case FProvedor of proABase, proBethav2, proDigifred, proEReceita, proFiorilli, proGovDigital, proISSe, proMitra, proNEAInformatica, proNotaInteligente, proPVH, proSisPMJP: begin // Tire o ISS Digital daqui Gerador.wGrupoNFSe('InfDeclaracaoPrestacaoServico ' + FIdentificador + '="' + NFSe.InfID.ID + '"'); Gerador.wGrupoNFSe('Rps'); end; Passei issDitgital pra ca Seila porque eles la mandam por o namespace proISSDigital: begin Gerador.wGrupoNFSe('InfDeclaracaoPrestacaoServico xmlns="http://www.abrasf.org.br/nfse.xsd" ' + FIdentificador + '="' + NFSe.InfID.ID + '"'); Gerador.wGrupoNFSe('Rps ' + FIdentificador + '="' + NFSe.InfID.ID + '"'); end; Foi minha primeira experiencia com a NFSe como não obtive muita resposta foi isso que fiz pra sucesso.

Isto porque questionei eles que dando um erro <EnviarLoteRpsResposta xmlns="http://www.abrasf.org.br/nfse.xsd"> <Situacao>3</Situacao> <ListaMensagemRetorno> <MensagemRetorno> <Codigo> Exxx(RPS 661 já se encontra no sistema, protocolo: 20160007318, IdDeclaracao: *** </Codigo> <Mensagem/> </MensagemRetorno> </ListaMensagemRetorno> </EnviarLoteRpsResposta> Resposta deles 1- inclua o numero do lote rps id =670 2- inclua o site da abrasf na tag infdeclaracaoprestacaoservico o id= desta tag deve conter somente dígitos numéricos sem letras e a sequencia não precisa ser extensa . 3- rps deve ser informado o número do id= Eu questionei porque dando que RPS ja exsito. O numero esta sendo sequencial se eu gerar 662, 663, 890 qualquer numero da a mesma mensagem. O primeiro envio deu certo 660 este protocolo 20160007318 aponta pro xml do sucesso. Dai ja não sei se eles tem razão devido faltar o lote nessa tag questionada. 662-env-lot.xml

Outra coisa A primeira deu certo Qualquer outra retorna um protocolo vou no site consultar diz: - Exxx(RPS 661 já se encontra no sistema, protocolo: 20160007318, IdDeclaracao: *** Este procotocolo que ela cita no erro refere-se a primeira RPS que enviou com sucesso, agora não envia mais nenhuma sempre citando o mesmo erro. Ocorre que o rps que estou informando e diferente. NotasFiscais.NumeroLote:=Estou informando id sequencial ACBrNFSe1.Enviar(Aqui o mesmo id sequencial) Você sabe o que pode ser? No meu entender esta rps diferente não? Anexei ai! Primeiro_lote_enviado.xml foi enviado pelo sistema com sucesso, retorno o rps com codigo de verificaçã etc. O segundo arquivo e eu tentando enviar e dizendo que já foi enviado rps 661 e cita novo procolo 20160007318 ai consulto no site deles o protocolo - 20160007318 retorna o primeiro rps enviado com sucesso! Mas o numero do lote pelo menos que eu entendi ta diferente no XML. Novo_Lote_661.xml Primeiro_lote_enviado.xml

Que pena! Já tentei aqui e não consegui. Mostrar a mensagem de erro, fica estranho. Só esta retornando protocolo - ACBrNFSe1.WebServices.EnviarLoteRPS.RetEnvLote.InfRec.Protocolo que o usuario precisa de ir no site pra ver o erro, que tornaria bem complicado. Mesmo sendo enviado mostrar como se tivesse erro retornando protocolo. Eu vou atribuir isto a este provedor porque o mesmo não ocorre em BH, ou ate mesmo na NF-e. Como você disse, deixa o erro ser mostrado eu so trato pra fica mais bonitinho e pra pessoa conseguir copiar e colar o erro.

Olá, Amigo sabe mim dizer o que esta ocorrendo? Deu tudo certo ! Porem ficou algo que não gostei e neste tratamento. Meu codigo e: ACBrNFSe1.Enviar(StrToInt(DM_PROCEDURE.SP_NF_SERVICOID.AsString)); Ele faz o envio, depois consulta porque deixei marcado pra true (Consulta lote apos envio) tudo igual pra BH. Em BH, quando eu envio usando ACBrNFSe1.Enviar(StrToInt(DM_PROCEDURE.SP_NF_SERVICOID.AsString)); Ele retorna o codigo de verificação, e chama a NFS-e OK Meu codigo ta assim: Try ACBrNFSe1.Enviar(StrToInt(DM_PROCEDURE.SP_NF_SERVICOID.AsString)); Except On E:Exception Do begin FrmErro:=TFrmErro.Create(Application); FrmErro.BitBtn2.Visible:=True; FrmErro.Edt_error.Lines.Add('Erro: '+E.Message); FrmErro.Edt_error.Lines.Add('Protocolo: '+ACBrNFSe1.WebServices.EnviarLoteRPS.RetEnvLote.InfRec.Protocolo); if ACBrNFSe1.WebServices.EnviarLoteRPS.RetEnvLote.InfRec.MsgRetorno.Count>0 then begin FrmErro.Edt_error.Lines.Add('Código '+ACBrNFSe1.WebServices.EnviarLoteRPS.RetEnvLote.InfRec.MsgRetorno.Items[0].Codigo); FrmErro.Edt_error.Lines.Add('Mensagem: '+ACBrNFSe1.WebServices.EnviarLoteRPS.RetEnvLote.InfRec.MsgRetorno.Items[0].Mensagem); end else begin FrmErro.Edt_error.Lines.Add('Entre no site de sua prefeitura e verifique o erro com protocolo acima.'); end; if ACBrNFSe1.NotasFiscais.Items[0].NFSe.Situacao='3' then FrmErro.Edt_error.Lines.Add('Correção: Utlize a opçao Excluir NFS-e/Consultar(Corrigir)'); //FrmErro.Edt_error.Lines.Add('Código: '+ACBrNFSe1.WebServices.GerarLoteRPS.RetornoNFSe.ListaNFSe.MsgRetorno[0].Codigo); //FrmErro.Edt_error.Lines.Add('Correção: '+ACBrNFSe1.WebServices.GerarLoteRPS.RetornoNFSe.ListaNFSe.MsgRetorno[0].Correcao); FrmErro.ShowModal; //Ln_Status_Envio.Visible:=False; end; Em BH, não entra no Except porque a nota e enviada com sucesso. EM Sabara do ISSDigital que e novidade, deu tudo certo porem ele entra no Except como se houvesse ocorrido um erro, como de costume não consigo pegar algum codigo ACBrNFSe1.WebServices.EnviarLoteRPS.RetEnvLote.InfRec.MsgRetorno.Items[0].Codigo tipo LOTE PROCESSO COM SUCESSO. Ai eu preciso usar a opção de consultar o RPS,, ele diz que já existe a RPS no site e eu pego o codigo de verificação. Como você esta fazendo na questão de tratar o erro e sucesso?

Se eu tento ACBrNFSe1.WebServices.EnviarLoteRPS.RetEnvLote.InfRec.MsgRetorno[0].Mensagem conforme arquivo txt \\ACBrDFe\ACBrNFSe\Retornos.txt Da erro List index out of bounds(0) Eu to usando o metodo ACBrNFSe1.Enviar Se eu tento o metodo gerar e tratar conforme o TXT ACBrNFSe1.WebServices.GerarLoteRPS.RetornoNFSe.ListaNFSe.MsgRetorno[ x ].Codigo Da Erro de acess violation na linha Mas ja esta quase 100%, so queria mesmo tratar esses erros, deu muitos, que fui ver indo no site da prefeitura colocando o protocolo. Mas ate o procoolo tive que ir na pasta de geração.

OK Aumentei 15000 Esta dando uns erro. Em BH tinha algumas coisas diferentes. Que ao tentar em Sabara esta dado erro TIpo CNAE e so com 6 digitos. Mim diz uma coisa: Consumindo em BH - Os erros são todos retornados Por este provedor eu to descobrindo abrindo o arquivo criado na pasta \\654-rec.xml Em BH ou Contagem por exemplo o codigo: ACBrNFSe1.NotasFiscais.Items[0].NFSe.Situacao retorna o erro Tipo ultimo erro veio (Que refere-se a tributação) <EnviarLoteRpsResposta xmlns="http://www.abrasf.org.br/nfse.xsd"> <ListaMensagemRetorno> <Codigo>E160</Codigo> <Mensagem> Arquivo em desacordo com o XML Schema. (ERROR: cvc-pattern-valid: Value '9' is not facet-valid with respect to pattern '1|2|3|4|5|6' for type 'tsRegimeEspecialTributacao'.;) </Mensagem> </ListaMensagemRetorno> </EnviarLoteRpsResposta>

Da onde tirou isso? Agora deu outro erro: O tempo limite da operação foi atingido - URL:http://209.126.222.200/nfe/snissdigitalsvc.dll/soap/IuWebServiceIssDigital - SOAPAction:urn:uWebServiceIssDigitalIntf-IuWebServiceIssDigital#RecepcionarLoteRps

Agora da o seguinte erro: Received content of invalid Content-Type setting: text/html - SOAP expects "text/xml"

Em Sabara-MG to tentando fazer testes. Eu falei com pessoa da ISS Digital recebi esta obbservação? 1- O contribuinte não precisa de certificação digital. O sistema de integração necessita das informações de acesso ao ISS DIGITAL (inscrição municipal/senha/frase secreta) Trata-se de eu mesmo tentando emitir a NFS-e pela minha empresa, e não tenho certificado digital. E a resposta deles e que não precisa. Dai deixo o campo certificado digital vazio no componente. Ai recebo a mensagem - Número de Série do Certificado Digital não especificado Minha pergunta e! Eu consigo enviar sem assinar com certificado uma vez que esse Webserivice não precisa disso?

Alguem sabe mim dizer porque no meu sistema tratando retorna. Certificado diigital não encontrado? To testando com um provedor que não requer certificado digital. NO Demo do ACBR e como se ele tentasse enviar sem questionar ele gera uns arquivo SOAP. No meu sistema reclama certificado digital, como fazer pra não dar essa mensagem. Não exigir assinar o documento com certificado, deixei o campo vazio. Depurando o erro ocorre na UNI: ACBrDFeCapicom - procedure TDFeCapicom.CarregarCertificado; raise EACBrDFeException.Create( 'Número de Série do Certificado Digital não especificado !'); Porem no demo ele nao questiona isso.

Pelo sistema nao da nada. Porem esse provedor não precisa certificado e eu nao tenho Ele da ero: Erro: Número de Série do Certificado Digital não especificado ! Agora pelo demo. O usuario e senha estao informador assim como a frase secreta e da esse erro questionando senha. Configurei o cidade.ini pra sabara e ISSDigital apontando WebService Cidades.ini ISSDigital.ini