Antonio Gomes

@Italo Giurizzato Junior Solucao: Inverter essas funcoes para isso: Tem como corrigir ? function tribISSQNToStr(const t: TtribISSQN): string; begin Result := EnumeradoToStr(t, ['1', '2', '3', '4'], [tiOperacaoTributavel, tiImunidade, tiExportacao, tiNaoIncidencia]); end; function StrTotribISSQN(out ok: boolean; const s: string): TtribISSQN; begin Result := StrToEnumerado(ok, s, ['1', '2', '3', '4'], [tiOperacaoTributavel, tiImunidade, tiExportacao, tiNaoIncidencia]); end;

Olá, pelo manual, o campo tribISSQN segue a ordem: Tributação do ISSQN sobre o serviço prestado: 1 - Operação tributável; 2 - Imunidade 3 - Exportação de serviço; 4 - Não Incidência; No aCBR unit ACBrNFSeXConversao function tribISSQNToStr(const t: TtribISSQN): string; begin result := EnumeradoToStr(t, ['1', '2', '3', '4'], [tiOperacaoTributavel, tiExportacao, tiNaoIncidencia, tiImunidade]); end; Com isso, ao gerar o xml, esta indo como exportacao, botei na nota, nao incidencia.

Bug encontrado: Ao dar loadfromfile no arquivo de DPS, o campo Servico.CodigoPais, vem com valor -1, ao inves de zero, fazendo com que coloque um ZZ no xml de envio. bug nessa funcao: function TNFSeW_PadraoNacional.GerarLocalPrestacao: TACBrXmlNode; begin Result := CreateElement('locPrest'); Result.AppendChild(AddNode(tcStr, '#1', 'cLocPrestacao', 7, 7, 0, NFSe.Servico.CodigoMunicipio, '')); if (NFSe.Servico.CodigoPais <> 0) and (NFSe.Servico.CodigoPais <> 1058) then Result.AppendChild(AddNode(tcStr, '#1', 'cPaisPrestacao', 2, 2, 0, CodIBGEPaisToSiglaISO2(NFSe.Servico.CodigoPais), '')); end; quando vem NFSe.Servico.CodigoPais = -1, CodIBGEPaisToSiglaISO2 retorna: 'ZZ' @Italo Giurizzato Junior Olha se pode ser corrigido com isso? unit PadraoNacional.LerXml; Linha 904 procedure TNFSeR_PadraoNacional.LerLocalPrestacao(const ANode: TACBrXmlNode); var AuxNode: TACBrXmlNode; begin AuxNode := ANode.Childrens.FindAnyNs('locPrest'); if AuxNode <> nil then begin with NFSe.Servico do begin CodigoMunicipio := ObterConteudo(AuxNode.Childrens.FindAnyNs('cLocPrestacao'), tcStr); CodigoPais := SiglaISO2ToCodIBGEPais(ObterConteudo(AuxNode.Childrens.FindAnyNs('cPaisPrestacao'), tcStr)); if CodigoPais < 0 then //// aqui CodigoPais := 0; // aqui end; end; end;

MEI, Padrao nacional, empresa de minas, para minas. Em uma emissão de empresa mei, via sistema, ocorre essa falha: "E0330-É obrigatório prestar informações de todos os campos relativos ao comércio exterior para as situações de exportação de serviços., X203-Não foi retornado nenhuma NFSe." Alguém que já tenha passado por isso, os paises e cidade estão tudo dentro do brasil. Não é servico no exterior, cidades de MG, pais 1058. Falha ocorre ao tentar transmitir a DPS. DPS gerada pelo sistema: <DPS xmlns="http://www.sped.fazenda.gov.br/nfse" versao="1.00"> <infDPS Id="DPS316990123382041700015000001000000000000001"> <tpAmb>1</tpAmb> <dhEmi>2023-09-05T00:00:00-03:00</dhEmi> <verAplic>Sis_2.23.8.30</verAplic> <serie>1</serie> <nDPS>1</nDPS> <dCompet>2023-09-04</dCompet> <tpEmit>1</tpEmit> <cLocEmi>3169901</cLocEmi> <prest> <CNPJ>000000000000</CNPJ> <IM>00000</IM> <xNome>empresa</xNome> <end> <endNac> <cMun>3169901</cMun> <CEP>36507000</CEP> </endNac> <xLgr>R. xxx</xLgr> <nro>00093</nro> <xBairro>bairro do prestador</xBairro> </end> <fone>00000000</fone> <email>[email protected]</email> <regTrib> <opSimpNac>2</opSimpNac> <regEspTrib/> </regTrib> </prest> <toma> <CNPJ>00000000000000</CNPJ> <xNome>cliente</xNome> <end> <endNac> <cMun>3156304</cMun> <CEP>36510000</CEP> </endNac> <xLgr>AV x</xLgr> <nro>10</nro> <xBairro>bairro</xBairro> </end> <fone>32000000000</fone> <email>[email protected]</email> </toma> <serv> <locPrest> <cLocPrestacao>3169901</cLocPrestacao> </locPrest> <cServ> <cTribNac>140201</cTribNac> <xDescServ>assistencia tecnica</xDescServ> <cNBS>115013000</cNBS> </cServ> </serv> <valores> <vServPrest> <vServ>390.60</vServ> </vServPrest> <trib> <tribMun> <tribISSQN>1</tribISSQN> <tpRetISSQN>1</tpRetISSQN> </tribMun> <totTrib> <indTotTrib>0</indTotTrib> </totTrib> </trib> </valores> </infDPS> </DPS> Grato por uma dica qualquer.

na conta ou no display name? tive um contratempo desse, a pessoa colocou o nome todo no email

posta como voce repassou os dados para o componente, nao tem falha nesse banco, uso ele.... Sugestão: Pastinha do ACBr: ...ACBr2wc\Fontes\ACBrBoleto Particularidades.html ou Particularidades.odt ou Particularidades.pdf Pode ajudar voce na empreitada

esta atribuindo coisa alem de numero nos parametros, olha o erro, olha se esta colocando espacos tambem, na conta, cedente.. A agencia e beneficiario sua, tá repetido o numero 3886, pode ser um indicio de algo anormal.

tem manual esse banco ?

tem manual ? Como funciona a carteira de cobrança desse banco? api/cnab?

Mano: Explore o componente... linha digitável DVBoleto := ACBrBoleto.Banco.CalcularDigitoVerificador(ACBrTitulo); CodigoBarras := ACBrBoleto.Banco.MontarCodigoBarras(ACBrTitulo); LinhaDigitavel := ACBrBoleto.Banco.MontarLinhaDigitavel(CodigoBarras, ACBrTitulo); NossoNumeroFormatado := ACBrBoleto.Banco.BancoClass.MontarCampoNossoNumero(ACBrTitulo);

dá uma lida em particularidades, de fato, tem que ser 01 mesmo, e sicoob está ok no projeto, nao tem erro, usando aqui. olha onde vc salva os componentes: ACBr2wc\Fontes\ACBrBoleto\Particularidades.pdf

não tem problema no banco caixa, voce deve ter enviado é as coisas errada, esse banco é nojentinho... igual BB sugiro, ler isso: Na sua pasta do componente: \ACBr2wc\Fontes\ACBrBoleto\Particularidades.pdf Posta como vc colocou os dados no componente.

Alem disso, tem a autenticação oauth, se não quiser fazer tudo isso. Nisso, seu aplicativo ficará como fica o thunderbird Exemplo: https://github.com/geoffsmith82/GmailAuthSMTP

posta seu codigo fonte no privado? ajudo vc...

Como voce coloca o nosso numero no componente? tem umas mandingas que precisam ser olhadas, como nao ser com DV na hora de gerar, não colocar ele com zeros formatado, pq o componente faz copy do que vc informa, coloca aqui como vc manda para dentro do objeto titulonalista.

Até onde sei, isso não tem, é bem especifico, sugestão que te dou, é criar sua impressão. Se vc usa fast report, é fácil contornar.

ficou bacana mano.

uma dica que te dou, salva ele sem formatar, para vc evitar esse mesmo problema, se for o campo nosso número,quando voce pegar o nosso numero da caixa, vai entender a bubiça que é, aquele 24 ou 14 no começo do numero. repara:

Mano, como vc coloca os dados no componente? parece falta de DV Me preocupa essa msg... parar clientes. kkk

Lembrando que é apenas PJ, aquele site azul.. quem é laranja, MEI, não ainda. aff

Uai, suspeito que seja pelo tempo que ele pede, vc nao pode gerar outro token, se o anterior tiver valido, mas apenas usar, contar o tempo em minutos. Senao eles poem a gente na geladeira: olha: Obter token oAuth POSThttps://cdpj.partners.bancointer.com.br/oauth/v2/token A autenticação OAuth é a mais recente forma de autenticar os novos serviços disponibilizados pelo Inter. O Token gerado será necessário para consumir as APIs do Inter. O tempo de vida de um token gerado é de uma hora. Com isso, é possível realizar um número determinado de requisições nas apis, de acordo com o rate limit de cada api, utilizando um único token. Rate limit: 5 chamadas por minuto fonte: https://developers.bancointer.com.br/reference/token-1

voce quer carregar essas opções? toRemessaRegistrar, toRemessaBaixar etc. case ARem_Ocorrencia_Remban of 0: ATituloNaLista.OcorrenciaOriginal.Tipo := toRemessaRegistrar; 1: ATituloNaLista.OcorrenciaOriginal.Tipo := toRemessaBaixar; 2: ATituloNaLista.OcorrenciaOriginal.Tipo := toRemessaConcederAbatimento; 3: ATituloNaLista.OcorrenciaOriginal.Tipo := toRemessaCancelarAbatimento; 4: ATituloNaLista.OcorrenciaOriginal.Tipo := toRemessaAlterarVencimento; 5: ATituloNaLista.OcorrenciaOriginal.Tipo := toRemessaAlterarNumeroControle; 6: ATituloNaLista.OcorrenciaOriginal.Tipo := toRemessaProtestar; 7: ATituloNaLista.OcorrenciaOriginal.Tipo := toRemessaCancelarInstrucaoProtestoBaixa; 8: ATituloNaLista.OcorrenciaOriginal.Tipo := toRemessaCancelarInstrucaoProtesto; 9: ATituloNaLista.OcorrenciaOriginal.Tipo := toRemessaOutrasAlteracoes; else Raise Exception.Create('Código de ocorrência: ' + aRem_Ocorrencia_Remban.ToString + ' inválida.'); end; Essa lista vc pega ela assim Acbrboleto1.GetOcorrenciasRemessa() : TACBrOcorrenciasRemessa; A ocorrencia varia de acordo com o banco sim, voce deve tomar uma atitude/ação, de acordo com o codigo do retorno que vem, no caso, para baixar, vem 05 ou 06 vem em ListadeBoletos[X].OcorrenciaOriginal.Tipo

Campo livre do santander: O erro parece ser o codigo do cedente... tem banco que não é o numero da conta, mas o cedente na cip Result := '9' + PadLeft(trim(Cedente.CodigoCedente),7,'0') + PadLeft(ACBrTitulo.NossoNumero + CalcularDigitoVerificador(ACBrTitulo), 13,'0') + '0' + PadLeft(trim(Cedente.Modalidade),3,'0'); E para voce fazer a impressao do mesmo boleto, é preciso ter o mesmo numero do campo nosso numero.

@Daniel InfoCotidiano tinha ligação com a altura? Parecia mais com a espessura das barras. O zoom.

Eu salvo o meu no banco de dados, e se caso o operador sair do sistema, fica gravado os dados do token, para nao precisar processar de novo, a cada boleto, é verificado o tempo. Pois ele é fixo, o retorno do inter ja vem com o tempo somado, bom, era assim... Tipo, entra o comando no endpoint as 15hs, vem que ele vale ate 16hs