Giquieu

Olá, Fiz uma implementação para que o pcteCTeR, considere na leitura a tag CST para dentro do ICMSSN. Fontes na Revision: 28165 if CTe.infCTe.versao >= 3 then CTe.Imp.ICMS.ICMSSN.CST := StrToCSTICMS(ok, Leitor.rCampo(tcStr,'CST')); pcteCTeR.pas pcteCTe.pas

@Italo Giurizzato Junior Não era pra ter nada no LoadFromFile... acho que conflitou no meu merge. Não verifiquei e anexei o arquivo errado. rsrsr Obrigado por acertar.

@Italo Giurizzato Junior funcionando 100%. Apenas, fiz um novo ajuste no NomeArq pra utilizar a mesma função do GravarXML. Self.Items[i].NomeArq := TACBrNFSeX(FACBrNFSe).GetNumID(Items[i].NFSe) + '-nfse.xml'; ACBrNFSeXNotasFiscais.pas

Olá, Atualmente o método TNotasFiscais.LoadFromLoteNfse considera apenas arquivos locais para carregar. O arquivo precisa estar armazenado no disco. Implementei no método TNotasFiscais.LoadFromLoteNfse a capacidade de ler o XML da memoria. Validado e testado no Lazarus. Revision SVN: 27653 ACBrNFSeXNotasFiscais.pas

Tbm é possível consultar as NFSe por período: Esse método retorna apenas as NFSe já processadas. ACBrNFSeX.ConsultarNFSeServicoTomadoPorPeriodo

Olá, Estou emitindo/consultando/cancelando para Barueri / SP com sucesso. O Provedor de Barueri, funciona de maneira assíncrona. Após enviar o provedor retorna o protocolo de recebimento. Esse protocolo vc deve armazena-lo para realizar as posteriores consultas. Depois de executar o ACBrNFSeX.Emitir(); Para pegar o protocolo gerado pelo provedor: ACBrNFSeX.WebService.Emite.Protocolo; Após o envio, vc precisa consultar a situação do RPS, pra validar se o provedor processou ou não o RPS. Para consultar use: ProtocoloEnvio := ACBrNFSeX.WebService.Emite.Protocolo; ACBrNFSeX.ConsultarSituacao(ProtocoloEnvio); Essa consulta retorna se o provedor processou ou não o RPS enviado, vc pode pegar o resultado em: ACBrNFSeX.WebService.ConsultaSituacao Veja tbm o ACBrNFSeX.WebService.ConsultaSituacao.Situacao 0 = Arquivo Validado 1 = Arquivo Importado 2 = Arquivo com Erros -1 = Em Processamento -2 = Aguardando Processamento Após essa Consulta o provedor retorna o protocolo atualizado, se ocorrer erro no processamento o provedor adicionar .ERR no protocolo. ProtocoloConsulta := ACBrNFSeX.WebService.ConsultaSituacao.Protocolo Esse novo protocolo vc vai usar como entrada para o metodo ConsultarLoteRps, que vai retornar o XML ou os detalhes dos erros. Então, com o protocolo resultante do ConsultarSituacao, utilize pra consultar o lote: ACBrNFSeX.ConsultarLoteRps(ProtocoloConsulta); Nessa consulta o provedor retorna o XML ou os erros. Pegue o resultado em: ACBrNFSeX.WebService.ConsultaLoteRps ACBrNFSeX.WebService.ConsultaLoteRps.Erros

Olá, Ao Consultar/Cancelar a NFSe emitida pelo provedor ISSBarueri, para PF (CPF) não está sendo considerado a Tag Cpf. Estou enviando um ajuste para corrigir e considerar a leitura da tag Cpf. O ajuste apenas na leitura por XML (LerTomadorServicoIdentificacao), a leitura por TXT está correta, pois usa Copy nas posições corretas. Fontes na Revision: 26748 ISSBarueri.LerXml.pas

@Vanderlei Soares Sim, estou enviando, consultando e cancelando com sucesso pra Barueri-SP.

@Italo Giurizzato Junior Olá, fiz os testes e com os ajustes que estou enviando está funcionando, precisei os ajustes: alinhar o CNPJ/CNPJ a direita (rejeitava quando era CPF), ajustar os totais das retenções. O WebService não oferece métodos para Substituição e Carta Correção. Com isso está funcionando: Envio Consulta Cancelamento ISSBarueri.GravarXml.pas

@Italo Giurizzato Junior Blza, obrigado. Como não tenho D7, não conseguir validar. Refiz as funções. Edit: Estou usando Lazarus 2.0.6 FPC 3.0.4 Barueri.Provider.pas

Olá, Segue fontes e documentação técnica da implementação do provedor próprio de Barueri / SP. Sincronizado com a revision 25055. ACBrNFSeXServicos.ini Barueri.GravarXml.pas Barueri.LerXml.pas Barueri.Provider.pas ACBrNFSeXLerXml.pas ACBrNFSeXProviderManager.pas ACBrNFSeXProviderProprio.pas ACBrNFSeXWebserviceBase.pas ACBrNFSeXClass.pas ACBrNFSeXConsts.pas ACBrNFSeXConversao.pas ACBrNFSeX.pas ACBrNFSeX-change-log.txt Manuais Doc-NFSe-Barueri.rar

Olá, para adicionar ao post. Estou recebendo o mesmo retorno. Quando o ACBrNFSeX tenta ler o Retorno de um envio pro Provedor SigISS, município de Londrina. O erro retorna quando executa o método LoadFromXml do TACBrXmlDocument. TACBrXmlDocument.LoadFromXml(AXmlDocument: string); Utilizando Lazarus e Linux. Retorno tratado pelo ACBrNFSeX: 2-lista-nfse-ger.xml

Por email, me enviaram que é necessário ser 099-X. Solicitei a nova documentação. Assim que pegar coloco aqui junto a alteração pra usar X.

Olá, Interessante! Não existe um "setter" pra propriedade digito e o GetDigito, pega do BancoClass, que aqui está retornando 4.

Olá, Estou realizando a homologação com Uniprime. Tive a mesma critica do Digito X na impressão do Boleto. Usando Lazarus. Utilizando o Fortes pra impressão existe um tratamento para imprimir X quando o digito do banco for maior ou igual a 10. Como mostra a imagem: Fiz um teste com o demo forçando um o valor 10 no digito do banco, conforme sugerido. Porém o boleto ainda está sendo impresso com o digito 4, que é atribuído ao informar o tipo Uniprime. ACBrBoleto1.Banco.Digito := 10; ACBrBoleto1.Imprimir; Fui olhar a property e a mesma tem um Setter "fake" , usado apenas pra mostrar o ObjectInspector: Então indiferente do que informar no Digito do Banco o Fortes não vai considerar. Sugiro implementarmos um Set pra property e no Get tratar se existe algo nela, caso contrario podemos retornar o Digito que está na propria classe do Banco. TACBrBanco = class(TComponent) private fDigitoManual: Integer; .... procedure TACBrBanco.SetDigito(const AValue: Integer); begin fDigitoManual := AValue; end; function TACBrBanco.GetDigito: Integer; begin Result := fBancoClass.Digito; if (fDigitoManual > 0) then Result := fDigitoManual; end;

Olá, Apenas retornando a atual situação. Ajustei a rotina pra configurar o Report, conforme a sugestão. No primeiro momento não teve efeito. Então, criei uma VM para executar o teste, pra validar o ambiente do SO, nessa caso deu tudo certo. Por mais que a alteração sugerida funcionou nos casos acima e que tbm foi implementada aqui, tive que concluir que alguma coisa no SO também estava interferindo.... Por enquanto o código de barras com a alteração + novo SO (Linux Ubuntu 16.04.6 LTS) esta imprimindo corretamente. Muito obrigado @Juliomar Marchetti.

Isso @Juliomar Marchetti. Ubuntu 16.04 x86_64. Executei pelo Demo e também mostra colorido. Tem possibilidade de ser alguma lib externa?

Olá, Estou passando a mesma situação. O código de barras está colorido. Alterei o código com a implementação sugerida acima, tanto no relatório quanto no próprio Fortes, mesmo assim o problema continuou. Alguma outra solução?

Veja o cometário:

@Daniel Simoes Acabei de atualizar o ACBr e notei que vc commitou um biblioteca de Terceiro para trabalhar com JSON. Revision: 14751 Author: dopi Date: segunda-feira, 26 de fevereiro de 2018 18:51:58 Queria te mostrar a PasJSON desenvolvida pelo Benjamin (BeRo1985), totalmente compatível com Delphi/FPC. https://github.com/BeRo1985/pasjson Achei o Parser do PasJSON muito mais otimizado do que a Json4Delphi. Estou testando ela no Lazarus/FPC e não tive nenhum problema. Poderia considerar um estudo, pra que ela se torne a Lib de JSON do projeto ACBr?

Da uma olhada nesse comentário:

@Juliomar Marchetti, não, está tudo certo. Fiquei interessado em conhecer essa integração via DLL com a NTK. Solicitei o manual pra eles, mas ainda não responderam... será que é compatível com alguma implementação do ACBrTEFD? Assim que me enviarem o manual, vou dar uma olhada no nível de compatibilidade. Qualquer coisa te aviso daí. O que vc acha?

Interessante a DLL da NTK, não precisa da VPN. @Juliomar Marchetti Existe algum planejamento para implementação via DLL da NTK?

Não. Pra resolver deixo o certificado em cada PC que vai emitir algum tipo de DFe...