Mario Inacio

Boa tarde. Eu seto a propriedade LerNossoNumeroCompleto como True, para todos os bancos. Do Bradesco tem que setar para False. Para contornar isso, ja que só se sabe o banco apos ler o arquivo, criei uma função para abrir o arquivo, verificar se é Bradesco. Boleto.LerNossoNumeroCompleto := NumeroBancoCompleto; function NumeroBancoCompleto: boolean; var iArq: TStringList; iCnab400: boolean; iColuna: integer; begin iArq := TStringList.Create; with iArq do begin try LoadFromFile(Boleto.NomeArqRetorno); iCnab400 := Length(Strings[0]) > 240; iColuna := iif(iCnab400,77,1); Result := not (Pos('237;',Copy(Strings[0],iColuna,3)+';') <> 0); finally Free; end; end; end;

Bom dia Fabricio. Não sei se já resolveu, mas foi criada uma propriedade SalvarEvento em Configuracoes/Arquivos. Por default, vem False, e caso queira salvar, deve habilitar. Atualize seus fontes.

Boa tarde Jairo Conseguiu contato e evoliu a questão do App pra Vero? Pergunto porque precisar contratar também e gostaria de um feedback

Ola Diego. Questão resolvida.

Bom dia. No Ambiente Nacional, mudei a exigibilidade para Imunidade, apenas pra contornar temporariamente esse problema na RFB. Mas mesmo assim o XML é gerado com tipo 3 e causa a rejeição 4223092325339300014056000000000000007-rps.xml

Boa tarde. Sei que o tópico é antigo, mas a dúvida continua atual. Apesar de estar usando ACBrNFSeX, não é possível inserir mais de um serviço na NFS-e com a Betha? A sugestão do amigo schrsistemas funciona? Pois o sistema de recepção do RPS receberá na verdade somente um item, sendo a sugestão inseri uma string com todos os itens no único item recepcionado pela Betha.

Boa tarde. Tambem me deparei com a mesma situação na cidade de Três Cachoeiras, em que o cliente pelo site insere varios itens e pelo acbr vai somente um.

Boa tarde Renato. Concluir os testes de emissão, cancelando e consulta, e como usam o Padrão Betha, tudo funcionando perfeitamente.

Boa tarde Italo. Testado e aprovado. Obrigado pela atenção

Claro, como mencionei, inclui a linha apenas para testar e ter certeza do local da exceção

Ola Italo. O problema está no retorno da cidade atribuída pela BETHA como demonstração, alterei a função abaixo pra teste e finalizou corretamente. procedure TNFSeR_ABRASFv1.LerEnderecoPrestadorServico(const ANode: TACBrXmlNode; aTag: string); var AuxNode: TACBrXmlNode; xUF: string; CodigoIBGE: Integer; begin if not Assigned(ANode) or (ANode = nil) then Exit; AuxNode := ANode.Childrens.FindAnyNs(aTag); if AuxNode <> nil then begin with NFSe.Prestador.Endereco do begin Endereco := ObterConteudo(AuxNode.Childrens.FindAnyNs('Endereco'), tcStr); Numero := ObterConteudo(AuxNode.Childrens.FindAnyNs('Numero'), tcStr); Complemento := ObterConteudo(AuxNode.Childrens.FindAnyNs('Complemento'), tcStr); Bairro := ObterConteudo(AuxNode.Childrens.FindAnyNs('Bairro'), tcStr); CodigoMunicipio := ObterConteudo(AuxNode.Childrens.FindAnyNs('CodigoMunicipio'), tcStr); if CodigoMunicipio = '' then CodigoMunicipio := ObterConteudo(AuxNode.Childrens.FindAnyNs('Cidade'), tcStr); UF := ObterConteudo(AuxNode.Childrens.FindAnyNs('Uf'), tcStr); if UF = '' then UF := ObterConteudo(AuxNode.Childrens.FindAnyNs('Estado'), tcStr); CodigoPais := ObterConteudo(AuxNode.Childrens.FindAnyNs('CodigoPais'), tcInt); CEP := ObterConteudo(AuxNode.Childrens.FindAnyNs('Cep'), tcStr); {aqui a variavel CodigoIBGE está recebendo o conteudo DEMO retornado pela Betha} CodigoIBGE := StrToIntDef(CodigoMunicipio, 0); {Inclui a linha abaixo para testar e finalizou sem problemas, mostrando o preview correto} if CodigoIBGE = 1000001 then CodigoIBGE := 4217709; if CodigoIBGE > 0 then xMunicipio := ObterNomeMunicipio(CodigoIBGE, xUF); if UF = '' then UF := xUF; end; end; end;

Analisando a ConsultaLote verifiquei que o mesmo inclui no XML, a tag OrgaoGerador, que provavelmente é alterada para CodigoMunicipio=1000001 por ser em homologação. Debugando, o erro de UF inválido é gerado na função TACBrIBGE.ObterCidades, pois chegou a UF como '10' 833180577837646-lista-nfse-con-lot.xml

Bom dia. Alguem já passou por esse erro? Dessa forma, a NFS-e está registrada na Prefeitura mas no componente retornou erro e não gera o XML.

O estranho é que consultando o portal da Betha, modo homologação, a Nota esta lá.

Boa tarde. Estou executando testes pelo Demo e visualmente, o lote enviado está correto, mas gera esse erro ao consultar o Lote. Estou desde cedo a procura da solução, mas não encontrei nada no Fórum. O que pode ser? Requisição Ambiente: 2 Cidade : Sombrio/SC Provedor: Betha Versão: 1.00 Método Executado: Enviar Lote Parâmetros de Envio Numero do Lote: 56 Parâmetros de Retorno Data de Envio : 19/09/2022 Numero do Prot: 159459638270128 Numero da Nota: Link : Código Verif. : Sucesso : True Método Executado: ConsultarSituacao Parâmetros de Envio Numero do Prot: 159459638270128 Numero do Lote: 56 Parâmetros de Retorno Situação Lote : 4 Sucesso : True Método Executado: ConsultarLote Parâmetros de Envio Numero do Prot: 159459638270128 Numero do Lote: Parâmetros de Retorno Situação Lote : Sucesso : True Resumo(s): Numero Nota : 33 Código Verificação: XILLFCKYX Numero Rps : 56 Série Rps : NF --------- Erro(s): Código : X999 Mensagem: Erro de Conexão: Código da UF: 10 inválido Correção: --------- NFS-e Numero....: 33 Cod. Verificacao: XILLFCKYX Prestador.......: ALDUS INFORMATICA LTDA - ME Tomador.........: INSCRICAO DE TESTE 56-env-lot.xml 56-rec.xml 159459638270128-con-lot.xml 159459638270128-con-sit.xml 159459638270128-lista-nfse-con-lot.xml 159459638270128-sit.xml

Boa tarde. Use a função Poem_zeros do ACBRUTIL para preencher a esquerda com zeros.

Bom dia. A implementação ficou correta mas somente para quando o emitente for de SC. Num caso específico que tenho, a empresa é do RS e a abriu uma conta na Unicred de SC, então a regra criada não é executada. A regra deveria estar vinculada ao estado da Agência emissora, mas de qualquer forma contornei o problema, já preenchendo o campo com 15 caracteres.

Bom dia. Isso, passei o NumeroDocumento com zeros a esquerda. Obrigado

Bom dia. Recebi o Manual da Unicred, e na página 10 cita o alinhamento a direita. Cobexpess - Boleto padrao + Layout 240.pdf

Bom dia. Realmente o manual não contempla dessa forma, mas na validação em https://cobhomologador.unicred.com.br/motor retorna os seguintes erros.

Bom dia. Aproveitando o tópico, envio em anexo a UNIT do banco, sendo que fez necessária alteração na linha 432, em que o banco solicitou o alinhamento do NumeroDocumento a direita, e estava a esquerda. ACBrBancoUnicredES.pas

Certo. Obrigado

Boa tarde. Conforme solicitado pela Homologação da Unicred, alterei na Unit em anexo o nome de 'UNICRED DO BRASIL" para apenas "UNICRED" ACBrBancoUnicredES.pas

fpNome é usado na procedure GerarRegistroHeader240 e o manual exige que o nome seja CREDSOL CONFEDERACAO. fpCodigosMoraAceitos é usado quando se atribui conteudo a propriedade CodigoMora quando dispara o SetCodigoMora que está na unit ACBrBoleto, e manual apenas permite valores 0 ou 1, e o default de fpCodigosMoraAceitos está como 1 e 2 setado no create da mesma Unit.

Boa tarde. Apesar da alteração não ter sido incluido ao SVN, baixei e tentei gerar a remessa do Cresol em CNAB240, pois na homologação, algumas inconsistências ocorreram na versão disponível no SVN. Tento alterar as propriedades abaixo e não são efetivadas, o que estaria errado? constructor TACBrBancoCresol.Create(AOwner: TACBrBanco); begin inherited create(AOwner); fpNumero := 133; fpNome := 'CRESOL CONFEDERACAO'; // alterado por mario 22/02/2022 fpCodigosMoraAceitos := '01'; // incluido por mario 22/02/2022 fpDigito := 3; fpNumeroCorrespondente := 0; FNumeroSequencialRegistroNoLote := 0; fpLayoutVersaoArquivo := 84; fpLayoutVersaoLote := 42; end; ACBrBancoCresol.pas Faltou o Manual manual_cobrança_integrada_cooperado_240.pdf