Pesquisar na Comunidade

Olá, tudo bem? Gostaria de reportar uma alteração para enviar NFS-e do munícipio de Gaúcha do Norte - MT. No ACBrNFSeXServicos.ini alterei [5103858] Nome=Gaucha do Norte UF=MT Provedor= para [5103858] Nome=Gaucha do Norte UF=MT Provedor=Coplan Versao=2.01 ProRecepcionar=https://www.gp.srv.br/tributario/gauchadonorte/anfse_web_service ProLinkURL=http://www.gp.srv.br/tributario/gauchadonorte/tnfse_validacao?%CodVerif% Desde já, agradeço... muito obrigado. ACBrNFSeXServicos.ini

Bom dia, tudo bem! Fiz algumas alterações para incluir o serviço de substituir NFS-e no provedor da SoftPlan. Foi adicionado os métodos: procedure TACBrNFSeProviderSoftPlan.PrepararSubstituiNFSe(Response: TNFSeSubstituiNFSeResponse); procedure TACBrNFSeProviderSoftPlan.TratarRetornoSubstituiNFSe(Response: TNFSeSubstituiNFSeResponse); function TACBrNFSeXWebserviceSoftPlan.ConsultarDFe(ACabecalho, AMSG: string): string; Para substituir uma NFS-e é necessário enviar um XML com as informação que serão alteradas. Para esse provedor não precisa cancelar a NFS-e antes de substituir. Como o serviço de substituir NFS-e cancela antes de enviar uma nova, foi tratado em PrepararCancelaNFSe e TratarRetornoCancelaNFSe para ignorar caso TACBrNFSeX(FAOwner).Status = stNFSeSubstituicao. Também foi necessário fazer algumas alterações no GravarXML. Apenas algumas informações poderão ser substituídas outras serão igual a nota anterior logo, o XML de envio da NFS-e de substituição será diferente do XML de envio de quando gera a NFS-e. Então no GravarXML foi preciso separar em dois métodos para um para gravar o XML de substituição e outro para o XML que envia NFS-e; function GerarXmlEnvio: Boolean; function GerarXmlSubstituicao: Boolean; Estou anexando as units que foram alteradas para analise. Muito Obrigado. SoftPlan.GravarXml.pas SoftPlan.Provider.pas

Olá tudo bem! Continuando os testes na NFPS-e de Florianópolis (SoftPlan), ao tentar enviar para um tomador que não é contribuinte ou pessoa física no caso, ocorre a falha: O campo "inscricaoMunicipalTomador" tamanho deve estar entre 1 e 7 <?xml version="1.0" encoding="UTF-8"?> <xmlNfpse> <message>O campo "inscricaoMunicipalTomador" tamanho deve estar entre 1 e 7</message> </xmlNfpse> para solucionar o problema, em SoftPlan.GravarXml.pas foi alterado para verificar se a informação está em branco, caso esteja não é inserido a tag no XML. if (NFSe.Tomador.IdentificacaoTomador.InscricaoMunicipal <> '') then NFSeNode.AppendChild(AddNode(tcStr, '#1', 'inscricaoMunicipalTomador', 0, 30, 1, NFSe.Tomador.IdentificacaoTomador.InscricaoMunicipal, '')); Então estou encaminhando a unit com as alterações para analise. Muito Obrigado. SoftPlan.GravarXml.pas

Olá tudo bem! Fiz algumas alterações para consultar NFS-e e baixar o XML que ainda não estavam funcionando. A consulta da NFS-e retorna uma JSON e não vem o XML . O XML deve ser baixado por outro endpoint. O ConsultarNFSe irá retornar o JSON com as informações da NFS-e, logo em seguida é usado o ConsultarDFe para baixar o xml. function TACBrNFSeXWebserviceSoftPlan.ConsultarDFe(ACabecalho, AMSG: string): string; #define a url de acordo com o tpConsulta tcPorCodigoVerificacao ou tcPorNumero procedure TACBrNFSeProviderSoftPlan.PrepararConsultaNFSe(Response: TNFSeConsultaNFSeResponse); override; #trata o retorno lendo as informações do JSON e executa o ConsultarDFe para baixar o xml procedure TACBrNFSeProviderSoftPlan.TratarRetornoConsultaNFSe(Response: TNFSeConsultaNFSeResponse); override; #prepara a url para baixar o xml da NFS-e procedure TACBrNFSeProviderSoftPlan.PrepararConsultarDFe(Response: TNFSeConsultarDFeResponse); override; #Lê e salva o xml que retornou procedure TACBrNFSeProviderSoftPlan.TratarRetornoConsultarDFe(Response: TNFSeConsultarDFeResponse); override; ... No LerXML, foi alterado para copiar a situação da NFS-e (cancelada/normal) da tag statusNFPSe do XML. Situacao := ObterConteudo(ANode.Childrens.FindAnyNs('statusNFPSe'), tcInt); ... Em ACBrNFSeXConversao.pas, também foi adicionado o tipo tcPorCodigoVerificacao no enumerador TtpConsulta. TtpConsulta = (tcPorNumero, tcPorFaixa, tcPorPeriodo, tcServicoPrestado, tcServicoTomado, tcPorCodigoVerificacao); SoftPlan.Provider.pas SoftPlan.LerXml.pas ACBrNFSeXConversao.pas

Olá tudo bem! O cancelamento de NFS-e do profedor SoftPlan funcionou mas foi preciso fazer alguns ajustes porque alguns atributos conflitaram com o serviço de gerar token. Coloquei os três pontos no mesmo tópico, não sei se era obrigatório criar um tópico para cada um. Estava com problemas com a identificação do tomador na unit SoftPlan.GravarXML, era necessário remover os caracteres especiais e deixar apenas números. NFSeNode.AppendChild(AddNode(tcStr, '#1', 'identificacaoTomador', 0, 20, 1, OnlyNumber(NFSe.Tomador.IdentificacaoTomador.Cnpj), '')); O atributo ChaveAutoriz esta sendo utilizado para definir o numeroAEDF no xml de envio e de cancelamento também e conflitava com o serviço de gerar token. Esse mesmo atributo foi utilizado para salvar o client_secret que é utilizado para gerar o token. Então para evitar conflitos eu fiz alterações no serviço de gerar token para utilizar o atributo Emitente.WSFraseSecr ao invés do Emitente.WSChaveAutoriz. Então em procedure TACBrNFSeProviderSoftPlan.PrepararGerarToken(Response: TNFSeGerarTokenResponse) aonde define a URL foi alterado de: FpPath := FpPath + '&client_secret=' + Emitente.WSChaveAutoriz; para: FpPath := FpPath + '&client_secret=' + Emitente.WSFraseSecr; E em procedure TACBrNFSeXWebserviceSoftPlan.SetHeaders(aHeaderReq: THTTPHeader) aonde define o cabeçalho do request foi alterado de: with TConfiguracoesNFSe(FPConfiguracoes).Geral do Auth := Emitente.WSChaveAcesso + ':' + Emitente.WSChaveAutoriz; para: with TConfiguracoesNFSe(FPConfiguracoes).Geral do Auth := Emitente.WSChaveAcesso + ':' + Emitente.WSFraseSecr; O número da nota estava ficando errado quando gerava a nfse. Estava copiando o numero do rps ao invés do numero da nota no xml de retorno. Então alterei para copiar da tag 'numeroSerie' ao invés da tag 'identificacao'; Então em procedure TACBrNFSeProviderSoftPlan.TratarRetornoEmitir(Response: TNFSeEmiteResponse) foi alterado de: with Response do begin ... NumeroNota := ObterConteudoTag(ANode.Childrens.FindAnyNs('identificacao'), tcStr); end; para: with Response do begin ... NumeroNota := ObterConteudoTag(ANode.Childrens.FindAnyNs('numeroSerie'), tcStr); end; Muito Obrigado SoftPlan.GravarXml.pas SoftPlan.Provider.pas

Olá pessoal tudo bem? A cidade de Florianópolis utiliza o provedor SoftPlan. O provedor possuí uma API e é necessário fazer a autenticação e gerar o token antes de gerar, consultar e cancelar a NFSe. Então eu implementei os métodos de GerarToken nesse provedor antes de prosseguir com as outras alterações. Se alguém puder validar e gerar um commit delas, provavelmente eu vou continuar com alterações nos outros métodos também. Resumindo as principais alterações na unit SoftPlan.Provider.pas: Foi criado o método PrepararGerarToken aonde é formado a URL com os parametros necessarios que são username, password, client_id, client_secret. Para o client_id foi utilizado Emitente.WSChaveAcesso e para o client_secret foi utilizado Emitente.WSChaveAutoriz. client_id e client_secret tem que credenciar junto a prefeitura, então eles vão fornecer essas credenciais. Foi criado os método TratarRetornoGerarToken que trata os erros ou extrai o token retorno pelo JSON no response. Foi adicionado as seguintes urls no ini cidades: ProGerarToken=https://nfps-e.pmf.sc.gov.br/api/v1/autenticacao/oauth/token HomGerarToken=http://nfps-e-hml.pmf.sc.gov.br/api/v1/autenticacao/oauth/token Desde já agradeço pelo auxilio. Estou a disposição pra qualquer duvidas também. SoftPlan.Provider.pas ACBrNFSeXServicos.ini

Olá pessoal trago algumas mudanças que fizemos em nossa empresa para adequar a algumas necessidades que possuíamos com os boletos.. 1 - Adicionado ao Banrisul a leitura do valor pago do boleto. Adicionado pois nesse banco a informação não era preenchida na leitura permanecendo nulo o valor. Alteração do Fonte para Adicionar a leitura do valor pago 2 - Adicionado 3 tipos de Cobrança no TACBrCaracTitulo do ACBrBoleto.pas Adicionado esses três tipos, pois ao ler os manuais dos bancos foi verificado que eles não se encontravam como opções no fonte. Alteração no fonte do ACBrBoleto.pas adicionando os 3 novos tipos. 3 - Alterado o Banco do Brasil pois um dos tipos de cobrança visto no item 2 não existia como uma opção. Manual do Bando do Brasil "Nota 22". Alteração para se adequar ao manual. 4 - Alterado o Banco do Santander pois um dos tipos de cobrança visto no item 2 não existia como uma opção. Manual do Santander "Nota 5". Fonte Alterado para se Adequar ao manual. Segue abaixo os fontes alterados... Fontes.rar

Olá pessoal estive verificando e percebi que ao passar as informações necessárias para gerar o arquivo de remessa para o Banrisul o mesmo estava gerando o numero da conta incorretamente, por exemplo se a minha conta for " 35.1287420-9 " (Conta fictícia criada apenas para exemplo com números aleatórios ), sendo os dois primeiros dígitos utilizados para identificar o tipo da conta , os próximos sete como o numero da conta e o ultimo como digito verificador. Acontece que antes da alteração feita só era possível adicionar o Numero da conta e o digito verificador, mas ao setar a conta com os 9 dígitos passa pela função IntToStrZeros que faz o tamanho ficar 7 que é o tamanhoConta no TAcbrBancoBanrisul, então a minha alteração feita foi apenas adicionar mais uma property ao ACBrBoleto "CodTpoConta" que ira receber esse código que vem antes do numero da conta, para que no momento da geração do arquivo o mesmo seja gerado corretamente contendo os três zeros como informa o manual, o código do tipo da conta e o numero da conta propriamente dito com os 7 digitos. Imagens: Adicionado a variavel Adicionado a Property Alterado para ao gerar o Header seja colocado a conta com os três zeros mais o código do tipo da conta e o numero da conta. Alteração no GerarRegistroHeader240 Alteração no Segmento P Nesta parte a conta vai ser formatada assim dizendo de acordo com o TamanhoConta definido no TACBrBancoBanrisul, no caso 7 dígitos Set Conta Nesta parte pode ser visto o tamanho da conta do banrisul que é usada na função da imagem anterior. Tamanho da Conta Essa função serviria para colocar zeros caso o tamanho do numero fosse menor que o tamanho passado, mas neste caso remove digitos pois o numero passado é maior que o Tamanho definido. (No caso o numero tem 9 digitos e o tamanho é 7). Função IntToStrZeros Manual do Banrisul CNAB240 Conta corrente. Link do manual: http://www.banrisul.com.br/bob/data/CobrancaEletronicaBanrisul_layout_pdr_Febraban240_vrs25102013.pdf?cache=9 Arquivos para teste: ModificaçoesBanrisul.rar Bom gente, primeiramente agradeço a atenção de todos, gostaria que fosse validado essas alterações pois acredito que seja desta maneira que deva ser tratado a conta no caso do banrisul, e se eu estiver errado sobre algo por favor me digam! Sou iniciante no Delphi, mas essa foi a forma que encontrei para gerar o arquivo com essas informações corretas. Estou no aguardo da validação desta alteração. Muito Obrigado.

Pessoal, teve uma alteração do modelo carnê dos boletos referente ao Banco Caixa. A empresa onde trabalho efetuou a homologação para emissão de boletos, ai tivemos de fazer algumas alterações no modelo Carnê. Peço que alterem no ACBr. Segue o arquivo em anexo. BoletoCarne.fr3

Boa dia, Pessoal alguém saberia me informar se houve alguma alteração no parte de gerar o Impresso/PDF do acbr ou se é alguma configuração? Antes as informações adicionais dos produtos saiam dessa maneira: Agora elas saem jundo com o nome do produto, ficando confuso para o usuário:

Bom dia, Estou tendo a seguinte dúvida no Sped Fiscal. Tenho um cliente que cadastrou um produto no sistema como tributado 18% e esta vendendo desta maneira até então. Hoje ele descobriu pelo escritório que este produto é substituição, logo ele quer fazer a alteração da tributação do item pois esta pagando imposto a mais. No Sped Fiscal pelo que li no guia prático, não há nada falando de alterações de tributação, somente de alteração da descrição desde que não descaracterize o item. Gostaria de saber se alguém conhece o procedimento correto a ser tomado nesse caso, se não há problema de ter movimentação de um mesmo item com dois tipos de tributação, ou se é melhor vender o item errado até o final do mês pagando assim mais imposto, ou cadastrar um novo item e dar esse cadastro errado como encerrado? Att,

Olá a todos. Utilizo o componente ACBrNFSe e as vezes preciso de algumas "alterações" para atender as minhas necessidades e de meus clientes. Decidi criar o tópico, não sei se é o correto, mas com o objetivo de sugerir algumas dessas alterações, para quem sabe for útil para mais algum ou para que alguém também coloque aqui alguma alteração que possa me ajudar. Só ressaltando, é apenas sugestão, pois sei que algumas alterações não seria aplicada a todos os servidores e poderiam complicar a manutenção do componente. Seguem duas alterações que precisei fazer para poder me atender: 1ª - Não estava preenchendo a lista de NFSe's no método ACBrNFSe1.ConsultarNFSe ficando em um loop infinito e travando a aplicação; 2ª - Essa já dava briga desde o trunk2 mas no meu caso preciso: Quebra de linha com #13 nas NFSe. Parece bobagem mas tem cliente que quer emitir a nota e só mandar o link para o cliente também poder realizar a impressão só que por exemplo, no caso do servidor ISSCuritiba, ao fazer a impressão por meio do site da prefeitura, sem essa alteração sai tudo em uma só linha e com um monte de ;;;; mesmo alterando o ISSCuritiba.ini. Espero que possa ajudar mais alguém e que me desculpem se estiver criando tópicos desnecessários. Obrigado. 1ª Sugestão.zip 2ª Sugestão.zip

Boa tarde ! Estou compilando o exemplo Demo_ACBrNFSe para o provedor Fiorilli (Serra Negra - SP) e consegui fazer a emissão NFe usando o ambiente de homologação do mesmo. Só que o layout que imprimir via componente ACBrNFSeDANFSeRL1 não foi aceito pela Fiorili. Resposta deles: Devido às exigências do padrão 2.2 da Abrasf, você terá que fazer um layout igual o nosso, porque em ambiente de produção esse layout nao daria certo. Existe esta exigência de fato ? Tem como eu mudar o layout do componente ACBrNFSeDANFSeRL1 ? Desde já agradeço a atenção.

Boa tarde Precisei fazer alguns ajustes no Método GerarRegistroTransacao240, na geração do "SEGMENTO P". Conforme manual o campo "Nosso Número: - Se emissão a cargo do Sicoob (vide planilha ""Capa"" deste arquivo): NumTitulo - 10 posições (1 a 10) = Zeros Parcela - 02 posições (11 a 12) - ""01"" se parcela única Modalidade - 02 posições (13 a 14) - vide planilha ""Capa"" deste arquivo Tipo Formulário - 01 posição (15 a 15): ""1"" -auto-copiativo ""3""-auto-envelopável ""4""-A4 sem envelopamento ""6""-A4 sem envelopamento 3 vias Em branco - 05 posições (16 a 20) - Se emissão a cargo do Cedente (vide planilha ""Capa"" deste arquivo): NumTitulo - 10 posições (1 a 10): Vide planilha ""02.Especificações do Boleto"" deste arquivo item 3.13 Parcela - 02 posições (11 a 12) - ""01"" se parcela única Modalidade - 02 posições (13 a 14) - vide planilha ""Capa"" deste arquivo Tipo Formulário - 01 posição (15 a 15): ""1"" -auto-copiativo ""3""-auto-envelopável ""4""-A4 sem envelopamento ""6""-A4 sem envelopamento 3 vias Em branco - 05 posições (16 a 20)" Por conta disso precisei fazer um ajuste na função segue o código a baixo com o que foi alterado: Linha: 604 if (ACBrBoleto.Cedente.ResponEmissao = tbCliEmite) then begin Result := Result+padR(NossoNum, 10, '0')+ padR(IntToStr(ACBrTitulo.Parcela), 02, '0')+ //--Alterado padR(ACBrBoleto.Cedente.Modalidade, 02, '0')+ //--Alterado '4'+ Space(5); end else Result := Result+Space(20); Espero que o código seja incorporado ao projeto. Att, Maicon da Silva Evangelista