Rodrigo - Digibyte

Alguém sabe o que poderia ser o erro abaixo? Fontes atualizados, ACBR reinstalado. Faz uns 15 dias estava funcionando. Requisição Ambiente: 1 Cidade : Cuiaba/MT Provedor: ISSNet Versão: 1.00 Método Executado: ConsultarNFSe Parâmetros de Envio Num. Ini. NFSe: Num. Fin. NFSe: Data Inicial : 01/01/2023 Data Final : 10/01/2023 Parâmetros de Retorno Sucesso : False Erro(s): Código : X999 Mensagem: Erro de Conexão: soap:Server - O servidor não pôde processar a solicitação. --->A entrada não é uma cadeia de caracteres de Base 64 válida, pois contém um caractere que não é de base 64, mais de dois caracteres de preenchimento ou um caractere ilegal entre os caracteres de preenchimento. Correção: --------- 2023010120230110-con-nfse.xml 2023010120230110-con-nfse-soap.xml 2023010120230110-lista-nfse-con-soap.xml

Estou tentando consultar as notas usando o método ConsultarNfseServicoPrestado e retorna o erro Premature end of data in tag div line 1 Conforme o arquivo de retorno, que na verdade é um html, esse método não estaria disponível MAS consta no manual e no modelo WSDL ( https://cabofrio.sigiss.com.br/cabofrio/download/webservicepage.php ) O que poderia ser, por onde começar? 2023020120230201-con-nfse-ser-pres.xml 2023020120230201-lista-nfse-ser-pres-soap.html 2023020120230201-lista-nfse-ser-pres-soap.xml

A princípio somente a versão.

Boa tarde, segue alteração para gerar a informação do novo número de layout. Aparentemente foi a única alteração. ACBrECFBlocos.pas

Olá. Estou encontrando esse erro eventualmente em alguns clientes. Foi observado que é algo específico do micro do cliente, As DLL´s estão identicas de um computador para outro e quando testamos a mesma base de dados aque na empresa funciona normalmente. Deve ser algum erro "fora do padrão", alguma coisa específica e diferente, tipo firewall (que já tentamos desativar) Alguém já viu uma situação assim, com uma solução diferente? Andei pensando naqueles sistemas que alguns bancos instalam ... mas pode ser outra coisa que nem imagino.

Estava pesquisando um erro que está ocorrendo aqui, em vários lugares desse post é comentado para usar tls 1.2. No manual porém, pelo que vi, o correto seria 1.1. Referências na página 2 e página 20. Podem confirmar? https://www.gov.br/esocial/pt-br/documentacao-tecnica/manuais/manualorientacaodesenvolvedoresocialv1-11.pdf

Usando a sugestão acima continuou o mesmo erro. O que fiz foi ler o XML, converter de utf8, tirar os acentos e salvar novamente o arquivo. Dessa forma deu certo.

Porque a prefeitura/provedor não disponibiliza a consulta por faixa de datas ou de nº de notas, somente uma a uma. Então para importar as notas para o sistema fiscal do contador fica praticamente inviável, é mais fácil baixar as notas do mês e importar o arquivo. Outros provedores tem a opção de fazer a consulta por faixa de data, neste caso eu uso os métodos de consulta.

Foi baixado da prefeitura e realmente é uma consulta, não a nota em si. Fiz um teste alterando para loadedDoc := xmlParseDoc(PAnsiChar(ansistring(Utf8ToAnsi(AXmlDocument)))); em TACBrXmlDocument e convertendo de Utf8 para Ansi. Funcionou porém sei que vai afetar outros provedores. Alguma sugestão de solução?

No método LoadFromLoteNfse() ocorre o erro "Input is not proper UTF-8, indicate encoding ! 0xC7 0xC3 0x4F 0x20" . Pesquisei um pouco e parece ser problema nos caracteres Ç e à . Debugando um pouco o erro ocorre em loadedDoc. Estão setadas as opções de retirar acentos e espaços. O arquivo foi baixado da prefeitura. Como poderia ser solucionado? procedure TACBrXmlDocument.LoadFromXml(AXmlDocument: string); var loadedDoc: xmlDocPtr; loadedRoot: xmlNodePtr; begin loadedDoc := xmlParseDoc(PAnsiChar(ansistring(AXmlDocument))); if loadedDoc <> nil then begin xmlFreeDoc(xmlDocInternal); xmlDocInternal := loadedDoc; loadedRoot := xmlDocGetRootElement(xmlDocInternal); if loadedRoot <> nil then begin xmlRootElement.Free; xmlRootElement := TACBrXmlNode.Create(Self, loadedRoot); end else raise EACBrXmlException.Create(xmlGetLastError()^.message); end else raise EACBrXmlException.Create(xmlGetLastError()^.message); end; 19804139000116202212112939.xml

O tratamento que faço é baseado no modelo 57 porém percebi agora que esse documento é o 67 então as tags são diferentes, a lógica é diferente. Resolvida a questão.

Certo vou mandar via MP

Ao importar um CTE eu lia a propriedade "ACBrCTe.Conhecimentos.Items[i].CTe.ide.toma03.Toma" e se fosse igual a "tmRemetente" então eu lia ACBrCTe.Conhecimentos.Items[i].CTe.rem. Está vindo tudo em branco, aparentemente antes (de alguma atualização) estava funcionando. Me parece que o que está errado é a propriedade toma03.Toma = tmRemetente . Alguma sugestão?

[1705508] ; Incluido 10/11/2022 Digibyte Nome=Colinas do Tocantins UF=TO Provedor=ISSIntel ProNameSpace=http://colinasdotocantins-to.issintegra.com.br/webservices/abrasf/api HomNameSpace=http://colinasdotocantins-to.treino-issintegra.com.br/webservices/abrasf/api ; ProRecepcionar=https://colinasdotocantins-to.issintegra.com.br/webservices/abrasf/api HomRecepcionar=https://colinasdotocantins-to.treino-issintegra.com.br/webservices/abrasf/api ; ProSoapAction=http://colinasdotocantins-to.issintegra.com.br/webservices/abrasf/api/ HomSoapAction=http://colinasdotocantins-to.treino-issintegra.com.br/webservices/abrasf/api/ [3554300] ; Incluido 10/11/2022 Digibyte Nome=Teodoro Sampaio UF=SP Provedor=Pronim Versao=2.02 ProRecepcionar=http://177.92.168.36/nfse.portal.integracao/services.svc HomRecepcionar=http://177.92.168.36/nfse.portal.integracao.teste/services.svc ACBrNFSeXServicos.ini

Ao consultar as notas notei que estava recebendo o xml porém não preenchia as propriedades. Debugando vi que dentro do método TNFSeR_ABRASFv2.LerXml a propriedade tpXml era setada para txmlRPS, ocasionando a não leitura das nota fiscal. Fiz um teste forçando a propriedade tpXml como txmlNFSe e a leitura ocorreu sem erros. Abaixo a função que retorna o tipo errado. Não vou alterar nada porque não sei as consequencias de alguma alteração. O XML segue via MP. function TNFSeRClass.TipodeXMLLeitura(const aArquivo: string): TtpXML; begin if (Pos('/infnfse>', LowerCase(Arquivo)) > 0) then Result := txmlNFSe else Result := txmlRPS; end;

Bom dia, segue uma correção no método TACBrNFSeProviderISSDSF.PrepararConsultaNFSe Estava sendo passado NotaInicial, conforme manual está errado. ISSDSF.Provider.pas

ACBrNFSeXProviderABRASFv1.pas

O fórum não permite que eu anexe arquivos maiores que 3.94 kB

Testando e funcionando

Adicionado "IF" pois o node IdentificacaoRps pode ser null ocasionando AV if Node <> nil then begin NumRps := ObterConteudoTag(Node.Childrens.FindAnyNs('Numero'), tcStr); SerieRps := ObterConteudoTag(Node.Childrens.FindAnyNs('Serie'), tcStr); end; function TACBrNFSeProviderABRASFv1.PreencherNotaRespostaConsultaNFSe(Node, parentNode: TACBrXmlNode; Response: TNFSeConsultaNFSeResponse): Boolean; var NumNFSe, CodVerif, NumRps, SerieRps: String; ANota: TNotaFiscal; AResumo: TNFSeResumoCollectionItem; begin Result := False; if Node <> nil then begin Node := Node.Childrens.FindAnyNs('InfNfse'); NumNFSe := ObterConteudoTag(Node.Childrens.FindAnyNs('Numero'), tcStr); CodVerif := ObterConteudoTag(Node.Childrens.FindAnyNs('CodigoVerificacao'), tcStr); Node := Node.Childrens.FindAnyNs('IdentificacaoRps'); if Node <> nil then begin NumRps := ObterConteudoTag(Node.Childrens.FindAnyNs('Numero'), tcStr); SerieRps := ObterConteudoTag(Node.Childrens.FindAnyNs('Serie'), tcStr); end; AResumo := Response.Resumos.New; AResumo.NumeroNota := NumNFSe; AResumo.CodigoVerificacao := CodVerif; AResumo.NumeroRps := NumRps; AResumo.SerieRps := SerieRps; ANota := TACBrNFSeX(FAOwner).NotasFiscais.FindByRps(NumRps); ANota := CarregarXmlNfse(ANota, parentNode.OuterXml); SalvarXmlNfse(ANota); Result := True; // Processado com sucesso pois retornou a nota end; end;

Eu debuguei, pra mim está errado. O loop tinha que ser em tcCompNfse não em CompNfse. A tag que se repete NÃO é a CompNfse. Te mandei o XML via msg privada.

Investigando um pouco, na procedure TACBrNFSeProviderABRASFv1.TratarRetornoConsultaNFSe(Response: TNFSeConsultaNFSeResponse) temos: ANodeArray := ANode.Childrens.FindAllAnyNs('CompNfse'); if ANodeArray = nil then ANodeArray := ANode.Childrens.FindAllAnyNs('ComplNfse'); if not Assigned(ANodeArray) then begin AErro := Response.Erros.New; AErro.Codigo := Cod203; AErro.Descricao := Desc203; Exit; end; for I := Low(ANodeArray) to High(ANodeArray) do begin ANode := ANodeArray[I]; Pelo que entendi vai percorrer uma lista de tags CompNfse porém as notas estão dentro de tcCompNfse então o código só faz uma interação. <?xml version="1.0" encoding="utf-8"?> <soap:Envelope xmlns:soap="http://www.w3.org/2003/05/soap-envelope" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"> <soap:Body> <ConsultarNfseResponse xmlns="http://www.e-governeapps2.com.br/"> <ConsultarNfseResult> <ListaNfse> <CompNfse> <tcCompNfse> <Nfse> <InfNfse> <Numero>13943</Numero> </InfNfse> </Nfse> </tcCompNfse> <tcCompNfse> <Nfse> <InfNfse> <Numero>13944</Numero>

Bom dia. Verifiquei o xml soap de resposta e as notas estão todas lá, porém só tem uma nota carregada no componente (a primeira). Alguma ideia do que poderia ser?

Boa tarde. É a configuração que uso com outro provedores. SSLLib = libWinCrypt CryptLib = cryWinCrypt HttpLib = httpWinHttp XmlSignLib = xsLibXml2 SSLType = LT_all

Durante a importação de xml do provedor Abaco foi observado um erro ocasionado pela leitura da tag DataEmissaoRps com uma data inválida. Ela não está preenchida pois esta nota não teve um RPS gerado. Alterei a procedure TNFSeR_ABRASFv1.LerInfNfse inserindo o "if" para fazer o tratamento e evitar o erro if (NFSe.IdentificacaoRps.Numero <> '0') then NFSe.DataEmissaoRps := LerDataEmissaoRps(AuxNode); Acho até que esse tratamento deveria estar nas classes do ACBR que tratam a conversão de datas mas não quis mexer nessa parte, fica como sugestão. Não consigo fazer upload do arquivo, retorna erro de upload, a unit é ACBrNFSeXLerXml_ABRASFv1.pas <IdentificacaoRps> <Numero>0</Numero> <Serie/> <Tipo>0</Tipo> </IdentificacaoRps> <DataEmissaoRps>0000-00-00</DataEmissaoRps> <NaturezaOperacao>1</NaturezaOperacao>