drsmoreira

Segue projeto em .rar, Precisa só pegar algumas dependências com o boss e rodar no linux. CEPensa.rar

No caso é linux server, o teste no windows foi em server também

Com esse problema recente dos correios e o sistema consultando diretamente a api do correio, decidimos fazer uma API pra consultar CEP e outras coisas... Entretanto a parte do CEP usa o componente ACBrCEP está rodando em um servidor linux ubuntu 20.04. No windows os dados já vem corretamente. Exemplo: {"servico":"BrasilAPI","cep":"01311000","tipo_logradouro":"","logradouro":"Avenida Paulista - até 609 - lado ímpar","complemento":"","bairro":"Bela Vista","municipio":"São Paulo","uf":"SP","ibge_municipio":"","ibge_uf":"","altitude":"","latitude":"-23.5577504","longitude":"-46.6604517"} No caso foi pelo WebService BrasilAPI.. mas continua vindo errado em outras WS. Já vimos as propriedades ParseText e IsUTF8 do componente mas não resolveu o problema.

Arquivo que modifiquei, e usei de base a Ribeirão Preto, obrigado pelo retorno ACBrNFSeXServicos.ini

Olá! Eu consegui alterar a versão, consegui alterar a URL mas agora ele está dando um erro E173 - Lote de RPS não assinado, vi um tópico de sobre a NFSE de Brasília, mudei a questão do tipo de assinatura, mas não resolveu. Se alguém tiver alguma ideia do que possa ser, agradeço se puder compartilhar.

Muito obrigado pelo retorno!

Boa tarde! Eu recentemente fiz a atualização do componente NFSE para NFSEx, quando envio a NFSE, ele informa que o padrão do Schema está diferente, pesquisando no site, parece que mudaram para a versão 2.04, fiz a modificação no ACBrNFSeXServicos.ini para a cidade igual está em Ribeirão Preto, rodei o Compila_RES mas no programa de exemplo ele continua informando Duque de Caxias - RJ como versão 1.0, como faço pra alterar para a versão 2.04 pra fazer um teste de envio no cliente?

Olá! Analisando e fazendo Debug, eu achei o problema na Unit ACBrNFeWebServices.pas, na classe TNFeEnvEvento, procedure DefinirDadosMsg. Ele estava dando o problema nessa parte : if (not MsgEventoEhValido) or (SchemaEventoNFe = schErro) then begin if (SchemaEventoNFe = schErro) and (FPMsg='') then FPMsg := 'Schema do Evento não foi definido'; FErroValidacao := ACBrStr('Falha na validação da Mensagem do Evento: ') + FPMsg; raise EACBrNFeException.CreateDef(FErroValidacao); end; Eu comentei o código, coloquei o da versão anterior e voltou a cancelar novamente. Segue em anexo o .pas alterado para analise dos moderadores para verificar se tem algo errado com o código ou se puderem avisar, se estou passando algum parâmetro de forma errada que dê o problema nessa função. Desde já agradeço ACBrNFeWebServices.pas

Bom dia! A mensagem que está dando é Schema inválido. Eu voltei uma versão do ACBR do dia 03/09 e ele cancela a NF normalmente, ai coloco a última novamente, ele volta a dar a mensagem de Schema inválido.

Boa noite, pessoal! Depois da última atualização do SEFAZ, eu tive que atualizar os fontes para continuar emitindo NFE para o estado do PA, só que ele começou a dar um erro de Schema invalido e isso vem acontecendo em alguns clientes no PA, RJ. Já atualizei os Schemas para a última versão do ACBR, já verifiquei o arquivo XML gerado e está de acordo. Alguém consegue me dar uma luz do que pode estar acontecendo? Desde já agradeço.

Um adendo.... Eu vi que o campo não será obrigatório, então mandei ele só validar quando o valor do código do país for maior que 0. Segue em anexo a alteração pcnNFeW.pas

Boa tarde a todos! Depois da última atualização do ACBR, comecei a ter um erro de validação ao enviar o endereço de entrega da NFE, ele dava que o conteúdo cpais não era valido. Sei que para fevereiro foram adicionados alguns campos como o código do país, CEP e etc nas tags de entrega e retirada, porém a receita não está validando essa informação quando a gente envia, pelo menos em modo homologação. Fiz uma alteração no arquivo pcnNFeW, na classe TNFeW, procedures GerarRetirada e GerarEntrega mandando ele validar o campo de país somente após dia 01/03/2019. Após essa alteração, as notas começaram a ser autenticadas novamente. Se for possível analisar a alteração ou melhora-la, desde já agradeço. pcnNFeW.pas

Muito obrigado Italo!

Bom dia a todos! Estou com um problema ao tentar cancelar NFSE na prefeitura de SP, ele dá a seguinte mensagem : Não encontrei final do elemento </PedidoCancelamentoNFe>, vi que esse erro vem na função AdicionarSignatureElement. Desde já agradeço a ajuda!

Boa tarde! Peguei na data de hoje a última atualização do ACBR e não estava conseguindo receber o código do IBGE na consulta do CNPJ, fiz algumas alterações no código e voltou a funcionar normalmente. Segue as alterações : No Create do Objeto eu adicionei a seguinte propriedade : constructor TACBrConsultaCNPJ.Create(AOwner: TComponent); begin inherited; FCNAE2 := TStringList.Create; FPesquisarIBGE := False; fACBrIBGE := TACBrIBGE.Create(nil); FACBrIBGE.IgnorarCaixaEAcentos := True; HTTPSend.Sock.SSL.SSLType := LT_TLSv1; end; No comparador da resposta eu modifiquei o seguinte item : if (UpperCase(TiraAcentos(FCidade)) = UpperCase(TiraAcentos(FACBrIBGE.Cidades[CountCid].Municipio))) And (FUF = FACBrIBGE.Cidades[CountCid].UF) then Segue o arquivo anexado com as alterações ACBrConsultaCNPJ.pas

Retira a opção de busca código do IBGE pra ver se foi.

Pessoal, com esse problema, acabei fazendo uma solução simples, mas funcionou. Eu fico tentando dar download do captcha umas 10 vezes, sempre que dá except eu mando ele tentar novamente. No final acabou ficando estável para o usuário.

Boa tarde, Italo! Desculpa a demora em responder, eu não tinha feito o teste no programa exemplo porque não consegui colocar o cliente para emitir em homologação, hoje fiz uma pequena modificação no sistema de exemplo para incluir uma NFSE real para conseguir fazer o teste em modo produção. Modifiquei o sistema para enviar igual ao programa exemplo e em ambos quando vou enviar o lote ele dá erro de timeout. Quando vou enviar um rps somente pela rotina gerar e enviar nfse ele dá um erro de assinatura de RPS. Com relação ao timeout, modifiquei para um tempo bem grande, 60000 com 20 tentativas e intervalo de 10000 e mesmo assim ele não sai desse erro. Desde já agradeço a ajuda.

Boa tarde a todos! Estou enfrentando um problema de envio para a NFSE da prefeitura de BH, já tentei trocar o tipo de SSLIB para libCapicom, libCapicomDelphiSoap e o mesmo dá o erro da figura Erro Capicom, quando mudo para o libWinCrypt ele dá o erro da figura ErroWinCrypt. Na máquina que está dando essas mensagens, a NFE está sendo emitida normalmente. Se alguem puder me dar uma luz do que pode ser, agradeço bastante. ERRO CAPICOM ERRO WINCRYPT

Boa tarde Pessoal! Hoje fui emitir nota da prefeitura de SP e começou com um erro List Index(0) e não ia de maneira nenhuma, depois de muitos testes, descobri que a prefeitura mudou os códigos de vários serviços. No ACBRNFSE não conseguia retornar o erro real da prefeitura por um pequeno problema no tratamento desse retorno que em vez de retornar o erro da prefeitura, acionava a excessão acima, fiz a alteração na rotina function TNFSeEnviarLoteRPS.TratarResposta: Boolean; no arquivo : AcBrNFSeWebServices.pas De : ProNotaBlu: begin if (FProvedor in [proCTA, proSP]) or ((FProvedor = ProNotaBlu) and (RetEnvLote.InfRec.InformacoesLote.QtdNotasProcessadas > 0)) then begin FNotasFiscais.Items.NFSe.Numero := RetEnvLote.InfRec.ListaChaveNFeRPS.ChaveNFeRPS.Numero; FNotasFiscais.Items.NFSe.CodigoVerificacao := RetEnvLote.InfRec.ListaChaveNFeRPS.ChaveNFeRPS.CodigoVerificacao; FNotasFiscais.Items.NFSe.NumeroLote := RetEnvLote.InfRec.NumeroLote; end; end; end; Para : ProNotaBlu: begin if (FProvedor = proCTA) or ((FProvedor in [ProNotaBlu, proSP]) and (RetEnvLote.InfRec.InformacoesLote.QtdNotasProcessadas > 0)) then begin FNotasFiscais.Items.NFSe.Numero := RetEnvLote.InfRec.ListaChaveNFeRPS.ChaveNFeRPS.Numero; FNotasFiscais.Items.NFSe.CodigoVerificacao := RetEnvLote.InfRec.ListaChaveNFeRPS.ChaveNFeRPS.CodigoVerificacao; FNotasFiscais.Items.NFSe.NumeroLote := RetEnvLote.InfRec.NumeroLote; end; end; end; ACBrNFSeWebServices.pas

Bom dia! Tive que mudar a busca por nome novamente, segue novo .pas atualizado ACBrIBGE.pas

Boa tarde a Todos! Estudando o código do AcBrIBGE, eu pude verificar que o site do IBGE mudou novamente, fiz a alteração no componente e o mesmo voltou a funcionar. Poderia por favor os moderadores darem uma olhada .pas em anexo para verificar se o mesmo se encontra no padrão e incluir no Trunk para as próximas atualizações. Obs. Tive que fazer uma correção também no AcBrConsultaCNPJ na conferencia da cidade, visto que o novo site do IBGE trás a informação Case Sensitive, mudei na função : function TACBrConsultaCNPJ.Consulta(const ACNPJ, ACaptcha: String; ARemoverEspacosDuplos: Boolean): Boolean; no item : // Consulta Codigo da Cidade ACBrIBGE fCodigoIBGE := ''; if (FCidade <> '') and (FPesquisarIBGE) then begin if (sMun <> FCidade) then // Evita buscar municipio já encontrado begin FACBrIBGE.BuscarPorNome( FCidade, FUF, False, False ) ; sMun := FCidade; end ; if FACBrIBGE.Cidades.Count > 0 then // Achou ? for CountCid := 0 to FACBrIBGE.Cidades.Count -1 do Begin if (UpperCase(TiraAcentos(FCidade)) = UpperCase(TiraAcentos(FACBrIBGE.Cidades[CountCid].Municipio))) And (FUF = FACBrIBGE.Cidades[CountCid].UF) then Begin FCodigoIBGE := IntToStr( FACBrIBGE.Cidades[CountCid].CodMunicio ); Break; End; End; end ; ACBrConsultaCNPJ.pas ACBrIBGE.pas

Boa tarde! Realmente eu vi que esses retornos são do CNAB 400, pro CNAB 240 não achei, por isso, fiz uma alteração no .pas, criando um conversor : function CodMotivoRejeicaoToDescricao(const TipoOcorrencia:TACBrTipoOcorrencia; CodMotivo:string): String; override; function TACBrBancoSantander.CodMotivoRejeicaoToDescricao(const TipoOcorrencia: TACBrTipoOcorrencia; CodMotivo: string): String; var cod_motivointeiro : integer; begin //Ocorrências 03, 26 e 30 if CodMotivo <> '' then cod_motivointeiro := StrToInt(CodMotivo); case cod_motivointeiro of 01 : Result := 'Código do banco invalido'; 02 : Result := 'Código do registro detalhe inválido'; 03 : Result := 'Código do segmento invalido'; 04 : Result := 'Código do movimento não permitido para carteira'; 05 : Result := 'Código de movimento invalido'; 06 : Result := 'Tipo/numero de inscrição do cedente inválidos'; 07 : Result := 'Agência/conta/DV invalido'; 08 : Result := 'Nosso numero invalido'; 09 : Result := 'Nosso numero duplicado'; 10 : Result := 'Carteira invalida'; 11 : Result := 'Forma de cadastramento do titulo invalida Se desconto, titulo rejeitado - operação de desconto / horário limite.'; 12 : Result := 'tipo de documento invalido'; 13 : Result := 'identificação da emissão do Boleto invalida'; 14 : Result := 'identificação da distribuição do Boleto invalida'; 15 : Result := 'características da cobrança incompatíveis'; 16 : Result := 'data de vencimento invalida'; 17 : Result := 'data de vencimento anterior a data de emissão'; 18 : Result := 'vencimento fora do prazo de operação'; 19 : Result := 'titulo a cargo de bancos correspondentes com vencimento inferior a xx dias'; 20 : Result := 'valor do título invalido'; 21 : Result := 'espécie do titulo invalida'; 22 : Result := 'espécie não permitida para a carteira'; 23 : Result := 'aceite invalido'; 24 : Result := 'Data de emissão inválida'; 25 : Result := 'Data de emissão posterior a data de entrada'; 26 : Result := 'Código de juros de mora inválido'; 27 : Result := 'Valor/Taxa de juros de mora inválido'; 28 : Result := 'Código de desconto inválido'; 29 : Result := 'Valor do desconto maior ou igual ao valor do título'; 30 : Result := 'Desconto a conceder não confere'; 31 : Result := 'Concessão de desconto - já existe desconto anterior'; 32 : Result := 'Valor do IOF'; 33 : Result := 'Valor do abatimento inválido'; 34 : Result := 'Valor do abatimento maior ou igual ao valor do título'; 35 : Result := 'Abatimento a conceder não confere'; 36 : Result := 'Concessão de abatimento - já existe abatimento anterior'; 37 : Result := 'Código para protesto inválido'; 38 : Result := 'Prazo para protesto inválido'; 39 : Result := 'Pedido de protesto não permitido para o título'; 40 : Result := 'Título com ordem de protesto emitida'; 41 : Result := 'Pedido de cancelamento/sustação para títulos sem instrução de protesto'; 42 : Result := 'Código para baixa/devolução inválido'; 43 : Result := 'Prazo para baixa/devolução inválido'; 44 : Result := 'Código de moeda inválido'; 45 : Result := 'Nome do sacados não informado'; 46 : Result := 'Tipo /Número de inscrição do sacado inválidos'; 47 : Result := 'Endereço do sacado não informado'; 48 : Result := 'CEP inválido'; 49 : Result := 'CEP sem praça de cobrança (não localizado)'; 50 : Result := 'CEP referente a um Banco Correspondente'; 51 : Result := 'CEP incompatível com a unidade de federação'; 52 : Result := 'Unidade de federação inválida'; 53 : Result := 'Tipo/Número de inscrição do sacador/avalista inválidos'; 54 : Result := 'Sacador/Avalista não informado'; 55 : Result := 'Nosso número no Banco Correspondente não informado'; 56 : Result := 'Código do Banco Correspondente não informado'; 57 : Result := 'Código da multa inválido'; 58 : Result := 'Data da multa inválida'; 59 : Result := 'Valor/Percentual da multa inválido'; 60 : Result := 'Movimento para título não cadastrado'; 61 : Result := 'Alteração de agência cobradora/dv inválida'; 62 : Result := 'Tipo de impressão inválido'; 63 : Result := 'Entrada para título já cadastrado'; 64 : Result := 'Número da linha inválido'; end; end; e no retorno do CNAB 240 : Titulo.DescricaoMotivoRejeicaoComando.Add(CodMotivoRejeicaoToDescricao( Titulo.OcorrenciaOriginal.Tipo, IntToStr(CodMotivo))); ACBrBancoSantander.pas

Então, eu estou usando o Schema disponibilizado com o programa de exemplo, tentei pegar o da prefeitura do Rio, mas ele nem lê.

Bom dia, Pessoal! Venho pedir a ajuda de vocês, desde que atualizei a versão da NFSE, não consigo emitir NF carioca, dá a seguinte mensagem no retorno do envio da NF : Falha na validação do Lote 1472 A name contained an invalid character. Erro parsing 'Ass_rps:1004S01' as ID datatype. The atribute 'Id' with value 'Ass_rps:1004S01' failed to parse. Já procurei no forum e em tudo que é lugar e não consegui nem uma luz, se alguém puder me ajudar, agradeço.