Destak

Bom dia, Falou tudo @Italo Giurizzato Junior uma verdadeira zorra, atender emissão de NFSe hoje do jeito que é, se trata de uma missão quase impossível, vou fazer esses testes no inicio da semana que vem e retorno aqui, desde ja obrigado.

Boa noite, Estou testando a função mas com alterações e tb ao mesmo entendo a logica do provedor, essa semana ainda retorno aqui com o resultado dos meus testes, favor deixar o tópico aberto por enquanto.

Boa noite, Fiz os testes e a principio resolveu, caso apareça novos problemas abro outro tópico, como sempre muito obrigado.

Boa noite, Segue em anexo as imagens com os valores que voce pediu e o XML que esta tentando ser carregado para o componente, pelo que percebi o valor que esta sendo carregado é o da tag data de emissao. NFSe.xml

Veja o erro esta precisamente na linha 238 da ACBrUti.DateTime

Veja na imagem em anexo o erro é nessa Unit mesmo e com o componnete novo.

Eu estou usando o componente novo e o erro é exatamente no mesmo local.

Bom dia, É exatamente onde o colega @sergioesteves disse acima.

Deletei a pasta toda do ACBr fiz novo download e instalação limpa com a opçao de deletar arquivos antigos no instalador do ACBr marcada e mesmo assim, exatamente o mesmo erro ocorre, da uma olhada i com calma se voce subiu os arquivos corretos mesmo ou algo assim.

Boa tarde, Exatamente mesmo problema e ja deletei a pasta do ACBr toda e fiz um download e instalação limpas, segue em anexo imagem a XMLs em anexo. 1-env-lot.xml 1-env-lot-soap.xml 1-rec.xml 1-rec-soap.xml

Boa tarde, Atualizei os fontes e reinstalei o ACBr é o que sempre faço, mas de qq forma pera ai que ja vou deletar toda a pasta ACBr e fazer um download e instalação nova e limpa para testar novamente, um momento.

Fazendo mais testes descobri que o erro esta na hora de fazer um ACBrNFSeX1.NotasFiscais.LoadFromString(QryArquivoFiscal.FieldByName('ArquivoFiscal').AsString) na unit ACBrUtil.DateTime que ocorre o erro. E isso esta ocorrendo em todas as NFSe.

Bom dia, Infelizmente problema não resolvido exatamente mesmo erro, repare q a principio ele baixa o XML corretamente porem essa NFSe referente a esse RPS esta cancelada no site da prefeitura, veja se isso nao tem haver com o problema, segue imagens e XMLs do teste de agora. 72MY-comp-nfse.xml 72MY-comp-nfse-soap.xml 72MY-con-nfse-rps.xml 72MY-con-nfse-rps-soap.xml

Bom dia, e com sempre muito obrigado.

Pois é então, Sei que essa questão de emissão de NFSe é um caos devido a quantidade de provedores/prefeituras em nosso pais, esses dias o @Daniel Simoes disse no video em que falava do mais novo ultimo projeto piloto para NFSe nacional que é uma bagunça e é mesmo sem duvida por diversos, varios, muitos motivos que nem vamos gastar nosso tempo para descrever aqui. Pois bem, tem algumas mazelas desse caos que o componente pode ajudar muito, um exemplo é esse caso de agora, o ideal é padronizar o comportamento do componente para situações exatamente iguais independente do provedor. No caso especifico desse topico poderia deixar padrão para todos os provedores que ao consultar o lote, ele sempre carregue as propriedades acima menciondas por voce, mesmo que o provedor X retorne a NFSe completa nessa consulta e claro se retornar a NFSe completa dai popular a lista de notas normalmente como ja ocorre hoje. Padronizando esse comportamento no componente para todos os provedores, podemos comparar e automatizar nosso codigo para comparar e fazer as ações necessarias conforme o retorno. Mas ai @Italo Giurizzato Junior voce pode ver o que é melhor fazer, sempre carrega ou não carrega as propriedades acima descritas por voce, o que precisamos é padrão comportamento igual do componente.

Boa tarde, Para os demais provedores em que ao consultar o lote retorna o XML completo essas propriedades acima citadas por você são preenchidas também pelo componente?

Bom dia, Desculpe a solicitação mas alguma novidade a vista?

Boa noite, Ao usar o método ACBrNFSeX1.ConsultarLoteRps(Protocolo,Lote) a consulta é realizada com sucesso porem esse provedor não retorna todos os dados da NFSe ele retorna somente um resumo, porem nesse resumo tem a tag <NumeroNFe>51183</NumeroNFe> a qual o compnente não esta carregando na propriedade ACBrNFSeX1.NotasFiscais.Items[0].NFSe.Numero, segue os XMLs em anexo. 4968937-con-lot.xml 4968937-con-lot-soap.xml 4968937-lista-nfse-con-lot.xml 4968937-lista-nfse-con-lot-soap.xml

Boa tarde, Se eu usar ponto ao invés de virgula retorna o erro de invalid point value ou algo assim não lembro agora, mas de qq forma vou esperar aparecer a próxima NFSe de produção do cliente apresentar o problema relatado e ai trago aqui novamente o caso concreto, enquanto isso vou pesquisar mais sobre a segunda condição de arredondamento, o que pelo que vi parece uma novidade para todos nos, favor não fechar o tópico por enquanto.

Boa tarde, Ao fazer uma ACBrNFSeX1.ConsultarNFSeporRps(NumeroRpsLocal,SerieRpsLocal,TipoRpsLocal,CodVerificacaoLocal) de um RPS onde a NFSe ja foi cancelada anteriormente ocorre o erro de exceção ''28/06/2022' is not a valid date and time' segue as imagens e XMLs em anexo, pelo que vi o XML é baixado com sucesso corretamente mas o componente parece não estar tratando algum dado e por isso ocorre a exceção. 69MY-comp-nfse.xml 69MY-comp-nfse-soap.xml 69MY-con-nfse-rps.xml 69MY-con-nfse-rps-soap.xml

Bom dia, Ao usar o metodo ACBrNFSeX1.Emitir(IntToStr(NumLote),meLoteAssincrono,False) o lote é recebido com sucesso pelo provedor porem o componente retorna a propriedade ACBrNFSeX1.WebService.Emite.Sucesso = False o que não esta certo pois o lote foi recebido com sucesso. segue em anexo todos os XMLs. 1-env-lot.xml 1-env-lot-soap.xml 1-rec.xml 1-rec-soap.xml

@Italo Giurizzato Junior olha que curioso, reparei que quando uso essa minha função alterada o componente esta gerando a tag ValorIss>0.00</tc:ValorIss> então decidi "martelar" a propriedade do componente ValorIss := StrToFloat('1,34') e ocorre a mesma coisa o componente gera a tag zerada, seguem em anexo todos os XMLs. 1-env-lot.xml 1-env-lot-soap.xml 1-rec.xml 1-rec-soap.xml 9fdc9c7f67ef49d78a0b524df35ba368-con-lot.xml 9fdc9c7f67ef49d78a0b524df35ba368-con-lot-soap.xml 9fdc9c7f67ef49d78a0b524df35ba368-lista-nfse-con-lot.xml 9fdc9c7f67ef49d78a0b524df35ba368-lista-nfse-con-lot-soap.xml

Ta certo a resposta é isso não funciona.

Boa noite, Então precisa ver que se o numero antes do 5 for impar dai ele arredonda para cima mas se for par dai ele arredonda para baixo, nesse trecho de codigo seu não esta sendo considerado isso.

Boa noite, Fiz uma alteração na RoundTo5 para poder atender a segunda condição porem ela esta remarcando para baixo veja que o trecho do codigo que eu acrescentei esta em negrito: function RoundTo5Cond2(Valor: Double; Casas: Integer): Double; var xValor, xDecimais: String; p, nCasas: Integer; nValor: Double; begin nValor := Valor; xValor := Trim(FloatToStr(Valor)); p := pos(',', xValor); if Casas < 0 then nCasas := -Casas else nCasas := Casas; if p > 0 then begin xDecimais := Copy(xValor, p + 1, Length(xValor)); if Length(xDecimais) > nCasas then begin {if (xDecimais[nCasas + 1] = '5') and odd(StrToInt(xDecimais[nCasas])) then SetRoundMode(rmUP) else if (xDecimais[nCasas + 1] = '5') and not odd(StrToInt(xDecimais[nCasas])) then SetRoundMode(rmNearest) else} if xDecimais[nCasas + 1] >= '5' then SetRoundMode(rmUP) else SetRoundMode(rmNearest); end; nValor := RoundTo(Valor, Casas); end; Result := nValor; end; O caso concreto é valor da NFSe R$ 30,00 ISS 4,45% = R$ 1,335 usando essa função acima ele da como result R$ 1,33 onde estou errando?