jaidomini

Fiz os testes, e já incluí minhas contribuições. (Data do Crédito na Consulta Detalhada e Sacador Avalista na criação do JSON na emissão) Também incluí o Log do tipo paranóico para maiores detalhes. Precisei incluir 1 título apenas para infomar a carteira No tipo de consulta, tpConsulta não está vindo a data de pagamento, provavelmente é uma das 2 datas do print abaixo, porém o Itaú não fornece a data do crédito. ACBrBoletoRet_Itau_API.pas ACBrBoletoW_Itau_API.pas BoletoWS_341.txt

Bom dia, Segue contribuição para Api do Itaú, no ACBr não tinha a criação do bloco Sacador_Avalista (identico ao Pagador) Segue PAS, json da documentação e foto do site com a documentação do bloco. Inclui as novas procedures abaixo e fiz as adaptações necessárias no restante do PAS Obg Jaisson ACBrBoletoW_Itau_API.pas jsonBoleto_Itau.json

Bom dia, posso tentar sim, só não prometo hoje.

Olá, segue contribuição para retornar a data do crédito, em verde as alterações. Procedure function TRetornoEnvio_Itau_API.LerRetorno(const ARetornoWS: TACBrBoletoRetornoWS): Boolean; LJsonArray, LJsonBoletoIndividualArray, LJsonPagamentoCobrancaArray, LJsonHistoricoCobrancaArray : TACBrJSONArray; if LJsonBoletoObject.AsJSONObject['dado_boleto'].IsJSONArray('pagamentos_cobranca') then begin LJsonPagamentoCobrancaArray := LJsonBoletoObject.AsJSONObject['dado_boleto'].AsJSONArray['pagamentos_cobranca']; for j := 0 to Pred(LJsonPagamentoCobrancaArray.Count) do begin ARetornoWS.DadosRet.TituloRet.DataProcessamento := Iso8601ToDateTime(LJsonPagamentoCobrancaArray.ItemAsJSONObject[J].AsString['data_inclusao_pagamento']); ARetornoWS.DadosRet.TituloRet.DataCredito := Iso8601ToDateTime(LJsonPagamentoCobrancaArray.ItemAsJSONObject[J].AsString['data_inclusao_pagamento']); ARetornoWS.DadosRet.TituloRet.ValorPago := StrToFloatDef( StringReplace(LJsonPagamentoCobrancaArray.ItemAsJSONObject[J].AsString['valor_pago_total_cobranca'],'.',',',[rfReplaceAll]), 0); ARetornoWS.DadosRet.TituloRet.ValorMulta := StrToFloatDef( StringReplace(LJsonPagamentoCobrancaArray.ItemAsJSONObject[J].AsString['valor_pago_multa_cobranca'],'.',',',[rfReplaceAll]), 0); ARetornoWS.DadosRet.TituloRet.ValorMoraJuros := StrToFloatDef( StringReplace(LJsonPagamentoCobrancaArray.ItemAsJSONObject[J].AsString['valor_pago_juro_cobranca'],'.',',',[rfReplaceAll]), 0); ARetornoWS.DadosRet.TituloRet.ValorDesconto := StrToFloatDef( StringReplace(LJsonPagamentoCobrancaArray.ItemAsJSONObject[J].AsString['valor_pago_desconto_cobranca'],'.',',',[rfReplaceAll]), 0); ARetornoWS.DadosRet.TituloRet.ValorAbatimento := StrToFloatDef( StringReplace(LJsonPagamentoCobrancaArray.ItemAsJSONObject[J].AsString['valor_pago_abatimento_cobranca'],'.',',',[rfReplaceAll]), 0); if ARetornoWS.DadosRet.TituloRet.ValorPago > ARetornoWS.DadosRet.TituloRet.ValorDocumento then ARetornoWS.DadosRet.TituloRet.ValorOutrasDespesas := (ARetornoWS.DadosRet.TituloRet.ValorPago - ARetornoWS.DadosRet.TituloRet.ValorDocumento) end; end; //Caso estiver liquidado, pegar a data do crédito real, quando cai no conta corrente o dinheiro, e remaneja a data credito para a data movimento, que é a data do pagto if LJsonBoletoObject.AsJSONObject['dado_boleto'].IsJSONArray('historico') then begin LJsonHistoricoCobrancaArray := LJsonBoletoObject.AsJSONObject['dado_boleto'].AsJSONArray['historico']; for j := 0 to Pred(LJsonHistoricoCobrancaArray.Count) do begin if UpperCase(LJsonHistoricoCobrancaArray.ItemAsJSONObject[J].AsString['operacao'])='TITULO LIQUIDADO' then begin if ARetornoWS.DadosRet.TituloRet.DataCredito > 0 then begin ARetornoWS.DadosRet.TituloRet.DataMovimento := ARetornoWS.DadosRet.TituloRet.DataCredito; ARetornoWS.DadosRet.TituloRet.DataCredito := DateToDateTimeItau(LJsonHistoricoCobrancaArray.ItemAsJSONObject[J].AsString['data']); end; end; end; end; JSON de Retorno e .pas em anexo Local do JSON com a data de compensção ACBrBoletoRet_Itau_API.pas Ret_Bol_Itau_Api.json

Meus fontes estão atualizados, mas o problema foi uma unit que coloquei para este provedor Betha, para converter "tags" da discriminacao em produtos e tem uma parte que acaba limpando os serviços. Ignore este post, se possível delete este post.

Olá, Problema encontrado Servico.ItemServico.Count vem maior que zero porém o "ItemListaServico" vem em branco Segue correção feita, proceder com essa correção ou na origem na origem da leitura do XML, anexei um XML de exemplo. Obg Jaisson NFSe_Autorizada_Cod_13280.xml ACBrNFSeXDANFSeRLRetrato.pas

Olá, tive problema com o provedor Elotech quanto precisava ter 5 casas de decimais, melhor colocando no campo "ValorUnitario" com 5 casas o ACBR arredonda para 2 casas. Basicamente o erro é ValorLiquido difere da quantidade * valorunitario Fiz a alteração na unit EloTech.GravarXml.pas Na função: function TNFSeW_Elotech203.GerarItemServico: TACBrXmlNodeArray; Alterado de Result[i].AppendChild(AddNode(tcDe2, '#', 'ValorUnitario', 1, 17, 1, NFSe.Servico.ItemServico[i].ValorUnitario)); Para Result[i].AppendChild(AddNode(tcDe5, '#', 'ValorUnitario', 1, 17, 1, NFSe.Servico.ItemServico[i].ValorUnitario)); Feito isso a NFSe transmite normalmente. No arquivo nfse_v2_03.xsd da Elotech, já fala que o limite é 5 dígitos Att Jaisson EloTech.GravarXml.pas

Resolvido, era o problema com certificado A3 da Certisign, conforme post abaixo, podem fechar o tópico

Olá, estou com o seguinte erro Erro de Conexão: Erro Interno: -2146893815 Erro HTTP: 0 URL: https://producao.ginfes.com.br/ServiceGinfesImpl Erro: 2148073481 - Falha Enviando a Requisição. Erro: 2148073481 Não teve atualização de sistema e a partir do dia 22/08 começou a dar este erro, já atualizei o ACBR e continua o mesmo erro. Achei esta instrução do Ítalo, que talvez fosse o caso de Paulínia também, mas não consigo acessar, dá este erro "Algo deu errado! Por favor, tente novamente" Alguém consegue copiar e colar as instruções aqui como resposta?

Olá, Quando o prestador é do simples nacional a tag do regime vem com Código 7, porém na DANFE da Nota de Serviço escreve "Lucro Real", analisei e percebi que não foi tratado este código no caso do EloTe Manual, página: 27 blob:https://campinagrandedosul.oxy.elotech.com.br/0c3fc53a-caf4-40d4-a700-2cf11f840a2e Fiz a correção implementando as funções override no arquivo em anexo EloTech.Provider.pas Att Jaisson EloTech.Provider.pas

Bom dia, Era isso mesmo, já não deu mais este erro, vou testar no cliente agora, valeu!! vc é fera! Att Jaisson

Estou com problema para enviar NFSe para Ponta Grossa/PR - Provedor EloTech - v.203 Código : X800 Mensagem: Erro de Validação: --> 1824 - Element '{http://shad.elotech.com.br/schemas/iss/nfse_v2_03.xsd}Cnpj': '37.183.857/0001-02' is not a valid value of the atomic type '{http://shad.elotech.com.br/schemas/iss/nfse_v2_03.xsd}tsCnpj'. Embora no XML esteja sem estes pontos, dá este erro, não chega a nem ir para a prefeitura, quem dá este erro é o ACBr, já "fucei" e não consegui encontrar o motivo. XML que é enviado para a prefeitura em Anexo Att Jaisson NFSe_Assinada_Cod_231.xml

Segue unit, mas a única alteração foi comentar a linha //rlmDescricao.SecondHolder := nil; ACBrNFeDANFeRLPaisagem.pas

Bom dia A descrição quando pede para exibir o EAN está sobrepondo a próxima coluna, a correção se trata da propriedade SecondHolder que está preenchida no formulário porém no código ela é limpada com "nil", se retirar esta linha do nil funciona corretamente. unit ACBrNFeDANFeRLPaisagem procedure InicializarDados Antes Depois Obg Jaisson

Olé, desculpe a demora Asism que pegar o XML, tira ele da visualização publica, eu ja tirei o CNPJ do prestador e tomador pq o xml é do cliente. Att Jaisson

Ítalo, possível correção para vc analisar se está de acordo, aqui funcionou.

Bom dia, está dando este mesmo erro com a tag data_nfse + hora_nfse e data_emissao_recibo_provisorio + hora_emissao_recibo_provisorio Linha 303 +/- aValor := ObterConteudo(AuxNode.Childrens.FindAnyNs('data_emissao_recibo_provisorio'), tcStr); aValor := aValor + ' ' + ObterConteudo(AuxNode.Childrens.FindAnyNs('hora_emissao_recibo_provisorio'), tcStr); NFSe.DataEmissao := EncodeDataHora(aValor, 'DD/MM/YYYY'); NFSe.DataEmissaoRps := EncodeDataHora(aValor, 'DD/MM/YYYY'); Linha 220 +/- aValor := ObterConteudo(AuxNode.Childrens.FindAnyNs('data_nfse'), tcStr); aValor := aValor + ' ' + ObterConteudo(AuxNode.Childrens.FindAnyNs('hora_nfse'), tcStr); DataEmissao := EncodeDataHora(aValor, 'DD/MM/YYYY'); Obg

Olá, Favor incluir no ini o parametro abaixo para Varzea Paulista, para resolver o erro de "E165 - aliquota do serviço invalida", a aliquota aparece no xml como 0.02 caso não inclua este parametro, , pesquisando no fórum descobri este parametro que resolver. Inclui o a parâmetro, compilei e resolveu, dessa forma começou a aparecer 2.00 na tag aliquota do xml. Params=NaoDividir100: Obg.

Boa Tarde, Segue uma pequena correção baseado no manual. procedure TACBrBancoC6.LerRetorno400(ARetorno: TStringList); Obg Jaisson ACBrBancoC6.pas

Bom dia, O erro é este: Liquidações 29-08-23.ret não é um arquivo de retorno do BANCO SOFISA SA Vou encaminhar o arquivo de retorno no email Obg

Olá Vi que houve alteração para apresentar os impostos deferais retidos, porém a tag que o ACBr tenta ler não tem no XML XML Autorizado do Cliente Danfe da Prefeitura Danfe no ACBr Neste caso do provedor Betha, sempre que é informado imposto federal ele trata como retenção, terei que fazer manualmente conforme abaixo antes de imprimir a danfe ou vcs ajustam no Acbr? RetidoPis = snSim RetidoCofins.... etc. Vi no SV que teve alterações referente aos impostos federais, e antes mostrava como na danfe da prefeitura, depois da alteração não mostra mais o valor da retenção federal. Obg Jaisson

Boa tarde, não tem um local pra pesquisar a versão, mas quando vai transmitir na versão 1, se não me engano falava q estava desativada ou para transferir na versão 2.02, não lembro exatamento o erro por que fiz este acerto local pra mim faz un 5 ou 6 meses. Agora quando atualizei o ACBr semana passada voltou a dar erro na transmissão, eu tinha esquecido de avisar vocês desta atualização. Eu fiz este acerto para as cidades de Ouro Branco/MG e Conselheiro Lafayete/MG. Veja um XML de Jun/2023 do cliente(ocultei alguns dados q possam identificar ele)

[3145901] Nome=Ouro Branco UF=MG Provedor=Betha Versao=2.02 ProRecepcionar=http://e-gov.betha.com.br/e-nota-contribuinte-ws/nfseWS HomRecepcionar=http://e-gov.betha.com.br/e-nota-contribuinte-test-ws/nfseWS Obg Jaisson

Sim, claro. Eu entendo que pode ocorrer a adequação, é que faltou códigos mesmo..... A parte de retorno ficou por conta do padrão sendo que o Sofisa Itau tem layout proprio do retorno, como vc pode conferir no meu arquivo, tem a questao a procedure GerarTrailer400 tbm que ficou por conta do padrão que não sei se vai gerar corretamente.

Percebi hoje que não está no SVN a unit que enviei, no SVN não tem a leitura do retorno. Segue com meses de atraso. ACBrBancoSofisaItau.pas