Daniel Braz de Oliveira

Prezados, estou numa enracada. Atualizei os componentes com data de segunda feira, portanto atualizados. Quando gero uma transmissão para Pref Curitiba, tenho tido retornos diferentes. Ora homologa, ora não homologa. Outras vezes dá erro de acesso do SSL e assim por diante. Fiz um debug, quase todas as vezes, gera a nota na prefeitura, o erro é no retorno. Percebi que neste bloco, a aprtir da linha 5954 do AcbrNfseWebServices.pas é acontece algo estranho: Eu marquei para ConsultarLoteAposEnvio, se não marcar, só devolve o protocolo e nada mais. Marquei em laranja abaixo, o que achei estranho à principio. E assim vai, mando uma nota, homologa, mando outra, não.. meu cliente já está maluco e eu tb. Configurei para usar SSLLib=libWinCrypt CryptLib=cryWinCrypt HttpLib=httpWinHttp XmlSignLib=xsLibXml2 Esta é a unica configuração que consigo fazer o envio. OpenSSL, recebo mensagem de erro ao carregar OpenSSL. Na configuração da internet, segui os conselhos aqui do forum e do manual da pref de Curitiba. Como disse, em 99% das vezes que dá erro, gera a nota na prefeitura, mas não devolve os dados.... gerando a exeção... Agradeço já, as orientações... with TACBrNFSe(FACBrNFSe) do begin if (Configuracoes.Geral.ConsultaLoteAposEnvio) and (Result) then begin //========================================================================== // Provedores que seguem a versão 1.0 do layout da ABRASF devem primeiro // Consultar a Situação do Lote if ProvedorToVersaoNFSe(Configuracoes.Geral.Provedor) = ve100 then ####### ele entra aqui!!! begin // Provedores cuja versão é 1.0 mas não possuem o método Consulta // a Situação do Lote devem ser relacionados no case abaixo. case Configuracoes.Geral.Provedor of proGoverna, proIPM, proIssDSF, proSmarapd, proSiat: Result := True else Result := FConsSitLoteRPS.Executar; end; if not (Result) then FConsSitLoteRPS.GerarException( FConsSitLoteRPS.Msg ); end; // Provedores que não possuem o método Consultar o Lote devem ser // relacionados no case abaixo. case Configuracoes.Geral.Provedor of proGoverna, proIPM, proInfisc, proInfiscv11: Result := True else begin Sleep(Configuracoes.WebServices.AguardarConsultaRet); Result := FConsLote.Executar; // O código abaixo tem por objetivo repetir a consulta ao lote // quando no retorno constar que o lote ainda se encontra em processamento // não sabemos se vai funcionar como o esperado. //**************************************************************** if ProvedorToVersaoNFSe(Configuracoes.Geral.Provedor) = ve200 then #### e também aqui!!! begin try Tentativas := 0; IntervaloTentativas := max(Configuracoes.WebServices.IntervaloTentativas, 1000); while (FConsLote.FLoteNaoProc) and (Tentativas < Configuracoes.WebServices.Tentativas) do begin Inc(Tentativas); sleep(IntervaloTentativas); Result := FConsLote.Executar; end; finally SetStatus(stNFSeIdle); end; end; //**************************************************************** end; end; if not (Result) then FConsLote.GerarException( FConsLote.Msg ); end; end; end;

oK.. vou rever o processo, mas só é informado: smtp usuario porta senha TLS=true SSL=false

Boa tarde Daniel. Desculpe, devia ter dado mais informações. É sobre o erro que não envia email, com smtp não google. Assisti o seu video explicando sobre a troca do smtp. Mas se eu o cliente tem smtp.dominio.com.br eu não precisaria contratar outro não é mesmo ? Minha questão é porque o componente assume que o smtp é google, quando né ? Pelo menos é isso que parece estar acontecendo. Grato.

Daniel, meu xará, boa tarde. Estou com uma situação semelhante ao que foi postado aqui. Mas eu estou usando o smtp do meu cliente, conta, email e etc. Mas só vai email com domimio @gmail.com. Fiquei 3 dias tentando decifrar e hoje consegui fazer este filtro. Não vi nas configurações do componente nada que dê margem a isso. Outra coisa, funcionou até quinta feita passada normalmente. Fiz um teste hoje com o meu smtp e consegui enviar um email para o mesmo domínio. O que devo tentar arrumar nas configurações ? Grato.

Pois é, fui marcando e desmarcando opções e testando, até que com SSL=false e TLS=true, funcionou. Obrigado. Podemos fechar ! Resolvido.

Boa tarde. Não sei me expressei corretamente. O erro que me acontece não é com a conta emitente do email. Esta funciona perfeitamente. É com o emails de destino. Se o destino é [email protected], vai. Testei com outros 4 dominios, de empresas e recebo esta mensagem.

Boa noite. Fui testar o AcbrMail, para tentar contornar uma situação e usei o Demo. Quando informei o email de destino diferente de @gmail.com, recebo esta mensagem. 553 sorry that domain isn't in my list of allowed rcpthosts (#5.5.3 - ckuser) Alguém poderia me orientar onde devo checar ?? Grato. Daniel.

Opa... uma boa ideia. Vou tentar.

Obrigado. Vou domar o cliente. (ahahahahaha) Abraço

Pois é..mas na quarentena, eu não posso perder clientes... ahahahahahahah Mas tem como fazer ou não ?

Primeiramente, quero me penitenciar com a grupo. Eu respondi direto pelo email e não aqui no fórum. O aumento para 4 casas funcionou perfeitamente, alterando a qtd de casas decimais no componente. O cliente gostou, mas... sempre tem um mas, ele não quer quando for tipo 5,4700, apareça as 4 casas, quer que despreze os zeros, ficando 5,47. Só mostrar 4 casas quando forem numeros significativos. Pode acontecer que na mesma nota tenha itens com 2 ou com 4 casas decimais. Sei que vai ficar feio, dasalinhado, mas o cliente que assim, lembrando que é só para a impressão do DANFE. O resto está correto. Tentei descobrir onde fazer o if.. then, na leitura do xml para gerar o DANFE. Onde encontro isso ?? Grato.

Ainda sobre este assunto. Daniel, meu xará, onde eu posso alterar o codigo da impressão do DANFE da NFE para que a quantidade do produto tenha 4 casas decimais ? Meu cliente não quer que arredonde mas mostre as 4 casas decimais. No xml está correto, no banco de dados também, só na impressão é que está com 2 casas arredondados. Grato.

Obrigado Ítalo.

A Prefeitura Municipal de Curitiba está informado que a partir de 01/06/2020 haverá mudanças na validação da nfs-e. "Informamos que a partir do dia 01/06/2020, o Sistema ISS Curitiba, na emissão da Nota Fiscal de Serviços Eletrônica (NFS-e), estará validando esta emissão em conformidade com a legislação tributária vigente, observando ainda, as atividades de serviços existentes no alvará de localização e funcionamento do estabelecimento emitente. Os testes de emissão on-line, por transmissão de arquivo ou por integração de sistemas podem ser feitos pelo ambiente piloto no endereço: https://piloto-iss.curitiba.pr.gov.br/iss/default.aspx" Gostaria de saber se haverá necessidade de alteração no componente ? Grato. Daniel.

Ok Daniel. Obrigado pelo retorno. Vou estudar estes posts e ver como resolver isso. Grato.

Bom dia galera ! Onde posso encontrar informações sobre qual conjunto de DLLs devo enviar junto com o executável para que o ConsultaCNPJ funcione corretamente ? Meu note é 64 e geralmente funciona a consulta, mas nos clientes há 32/64 e W7, W8, W10 e tem problemas de compatibilidade. O componente é ótimo e já tentei outras soluções mas não gostei muito. Grato. Daniel.

Verdade Ítalo. Estava resolvendo coisas em outro sistema e esta semana iria retomar o assunto. Obrigado mais uma vez. Abraço. Daniel.

Boa tarde Ítalo. Verdade, arrumei uma solução para um único provedor. Vou fazer isso sim e retorno. Valeu mais uma vez.

Ítalo, segue abaixo a alteração que fiz e consegui substituir a informação direto no fonte da rotina ACBrNFSeDANFSeRLRetrato, na linha 514. rllPrestNome.Caption := IfThen( NomeFantasia <> '' , NomeFantasia , fpDANFSe.RazaoSocial); // rllPrestNome.Caption := IfThen( RazaoSocial <> '' , RazaoSocial , fpDANFSe.RazaoSocial); Não sei se seria esta a melhor opção, mas por ora me atendeu. O único inconveniente, é que a cada atualização do componente terei que lembrar de fazer esta alteração. Ou se for alterado diretamente no componente com uma condicional para usar o <NomeFantasia>, caso a <Razaosocial> estiver vazia. Obrigado a todos. Creio que podemos fechar o post. Daniel.

Obrigado pelo retorno e explicação Ítalo. Avaliei o xml do rps, e realmente só é enviado o cnpj e inscrição municipal do prestador: <Prestador> <Cnpj>xxxxxxxxxxxxx</Cnpj> <InscricaoMunicipal>xxxxxxxxxx</InscricaoMunicipal> </Prestador> E no xml gerado, retornar a razão social na tag <nomefantasia> <PrestadorServico> <IdentificacaoPrestador> <Cnpj>xxxxxxxxxxxxxx</Cnpj> <InscricaoMunicipal>xxxxxxxxx</InscricaoMunicipal> </IdentificacaoPrestador> <NomeFantasia> AAAAA AAAAAAAAAAAA LTDA </NomeFantasia> Creio que seria o caso de alterar a rotina da impressão para capturar a tag <nomefantasia> para o lugar de <razaosocial>, não ? Ou criar uma rotina própria de leitura do xml para visualização, impressão e pdf, o que seria desperdício de tempo, uma vez que já temos a rotina pronta. Alguma dica de onde mexer nisso ? Grato.

Boa noite. Há algum tempo abri um tópico sobre a não impressão da razão social do prestador na rotina padrão do componente. Fiz um debug, conforme orientado e descobri que no xml que é enviado para o servidor da prefeitura, mesmo que eu associe conforme abaixo PrestadorServico.Endereco.CodigoMunicipio := edtCodCidade.Text; PrestadorServico.RazaoSocial := varconsulta.fieldbyname('razaosocial').AsString; PrestadorServico.NomeFantasia := copy(varconsulta1.fieldbyname('unidadenegocio').AsString,1,20); PrestadorServico.IdentificacaoPrestador.Cnpj := edtEmitCNPJ.Text; a tag PrestadorServico.RazaoSocial := varconsulta.fieldbyname('razaosocial').AsString não é incluida o xml, conforme arquivo que anexo aqui. Com isso, quando é gerado a impressão ou pdf, a tag esta´vazia. É preenchida somente a razao social do tomador do serviço. Como geralmente, envio o link do site da prefeitura e a emissão acontece por lá, esta informação é preenchida automaticamente através do cadastro do cnpj. Como poderia resolver isso ? 33029UNICA-nfse.xml 20190602105-env-lot.xml

Tenho emitido aqui em Curitiba, normalmente, só informando os dados do Infresptec. Não tenho preenchido nada do CSRT.

Boa tarde! Comunico que consegui fazer a homologação do xml com as informações do Responsável Técnico. Grato a todos pelas intervenções e orientações.

Então, Gabriel, é isso mesmo. Aqui no PR já está habilitado para homologação. Se eu não informar recebo a mensagem, usei o codigo acima e recebi a mesma mensagem, como se não tivesse informado. Cleber o retorno do erro:

Bom dia. Prezados, hoje fui homologar nova versão da NF-e na SEFAZ-PR, com a inclusão do responsável técnico. Já li as instruções anteriores e fiz a configurações que entendi, mas recebi a mensagem da não informação do responsável técnico. Tentei fazer o registro de duas maneiras, conforme abaixo: 1- ACBrNFe1.Configuracoes.RespTec.IdCSRT := 0; ACBrNFe1.Configuracoes.RespTec.CSRT := 'DANIEL BRAZ DE OLIVEIRA'; 2 - ACBrNFe1.NotasFiscais.Items[0].NFe.infRespTec.CNPJ:= '03714635000149'; ACBrNFe1.NotasFiscais.Items[0].NFe.infRespTec.xContato:='DANIEL BRAZ DE OLIVEIRA'; ACBrNFe1.NotasFiscais.Items[0].NFe.infRespTec.email :='[email protected]'; ACBrNFe1.NotasFiscais.Items[0].NFe.infRespTec.fone :='41988135009'; As duas tentativas resultaram na mesma mensagem de erro. Ressalto que estou com os componentes atualizados na última segunda feira. Agradeço a cooperação de vocês. Daniel.