[Ler Tag CST quando o ICMS for Simples Nacional (ICMSSN)]

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

[ACBrNFSeX - Capacidade de Ler o XML da Memoria no LoadFromLoteNfse]

@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. 

[ACBrNFSeX - Capacidade de Ler o XML da Memoria no LoadFromLoteNfse]

@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

[ACBrNFSeX - Capacidade de Ler o XML da Memoria no LoadFromLoteNfse]

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

[NFSeX - Barueri - Sem Consulta?]

Tbm é possível consultar as NFSe por período:

Esse método retorna apenas as NFSe já processadas.

ACBrNFSeX.ConsultarNFSeServicoTomadoPorPeriodo

[NFSeX - Barueri - Sem Consulta?]

 

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

 

 

[Ler Tag de Cpf do Tomador de Serviço no Provedor ISSBarueri]

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

[NFS-e ISS Barueri Pasta Schemas]

@Vanderlei Soares

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

[Implementação Provedor 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

 

 

 

 

 

 

 

[Implementação Provedor Barueri / SP]

@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

[NFS-e Barueri - SP]

 

[Implementação Provedor Barueri / SP]

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

[Erro "input is not proper UTF-8, indicate encoding ! Bytes 0xC7 0xC3 0x4F 0x20]

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

 

[DV do banco Uniprime]

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.

 

[DV do banco Uniprime]

Olá,

Interessante!

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

 

 

[DV do banco Uniprime]

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;

 

[Código de barras Cor]

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.

 

[Código de barras Cor]

Isso @Juliomar Marchetti.

Ubuntu 16.04 x86_64.

Executei pelo Demo e também mostra colorido.

Tem possibilidade de ser alguma lib externa?

 

 

[Código de barras Cor]

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?

 

 

[Consumo indevido ao enviar nota]

Veja o cometário:

 

 

[Biblioteca JSON pro ACBr]

@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?

 

[Tempo de espera para download NF-e após manifestação]

Da uma olhada nesse comentário:

 

[TEF Plataforma ControlPay da NTK]

@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?

[TEF Plataforma ControlPay da NTK]

Interessante a DLL da NTK, não precisa da VPN.

 

@Juliomar Marchetti 

Existe algum planejamento para implementação via DLL da NTK?

[Calculo do DigVal - Hash]

18 horas atrás, nox disse:

Boa tarde, estou com o mesmo problema, conseguiu resolver?

Não.

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