Marcos Mentz_5837

Bom dia! Justamente isto que acrescentei na unit do componente em anexo "ACBrBancoSantander.pas" para ter a funcionalidade, não tinha este tratamento. Marcos

Boa tarde! A função abaixo não estava contemplando o tipo de carteira tcDireta para o result 5, com a adição validou corretamente o arquivo. A critica do banco antes da alteração: REGISTRO DETALHE -SEGMENTO P REMESSA 058-058 Tipo de cobrança: . . CÓDIGO DA CARTEIRA INCORRETO. ALTERAR PARA 5 USAR informação do tipo de carteira. function TACBrBancoSantander.DefineCaracTitulo(const ACBrTitulo: TACBrTitulo): String; begin with ACBrTitulo do begin case CaracTitulo of tcSimples : Result := '1'; {Cobrança Simples (Sem Registro e Eletrônica com Registro)} tcCaucionada : Result := '3'; {Cobrança Caucionada (Eletrônica com Registro e Convencional com Registro)} tcDescontada : Result := '4'; {Cobrança Descontada (Eletrônica com Registro)} tcVinculada, tcDireta, tcSimplesRapComReg : Result := '5'; {Cobrança Simples (Rápida com Registro)} tcCaucionadaRapComReg: Result := '6'; {Cobrança Caucionada (Rápida com Registro)} { TODO : 8 = Cobranca Cessao (Eletronica com Registro) } else Result := '1'; end; end; end; ACBrBancoSantander.pas

Bom dia! Atualizei os fontes e está ok. Obrigado. Marcos

Bom dia! Já foi analisado a segunda postagem de fontes com ajustes para envio de remessa para carteira descontada ? Marcos

Bom dia! Sim, foi alteração complementar. No código existente validava corretamente a remessa cobrança simples, mas para a cobrança descontada não. Fiz vários ajustes em campos que não estava de acordo com o manual atualizado e também haviam informações que não estava corretas pro tipo de carteira desconto. Com a unit disponibilizada validamos a remessa de cobrança simples e descontada. Marcos

Bom dia! Segue ajustes de layout para validação de remessa cnab 240 para carteira desconto, seguindo conforme manual do banco e já com confirmação de validação. Segue arquivo em anexo. ACBrBancoBanrisul.pas CobrancaEletronicaBanrisul_pdr240_v02_102019.pdf

Bom dia! Na validação da remessa cnab240 para o Banrisul veio uma critica do emitente do boleto como sendo "emissão própria" sendo que o emitente deveria ser o banco. Verificando os fontes vi que estava fixo na transação "1020" conforme imagem onde a coluna "2" se refere ao emitente do boleto. Fiz o ajuste seguindo a configuração do Banco do Brasil usando varável "ATipoBoleto" que trata a propriedade do responsável pela emissão do boleto e modifiquei a linha destacada usando a varável. {Pegando Tipo de Boleto} ATipoBoleto := '1'; case ACBrBoleto.Cedente.ResponEmissao of tbCliEmite : ATipoBoleto := '2'; tbBancoEmite : ATipoBoleto := '1'; end; Linha modificada no layout: '10' + ATipoBoleto + '0' + Em anexo a unit com o ajuste. Marcos Grupo MHE ACBrBancoBanrisul.pas

Bom dia! Atualizado, testado e funcionou corretamente. Marcos Softbox

DANFeRetrato_2018.fr3

No caso não ajudou e estou acompanhando que está havendo mudanças no componente. Estou com os componentes atualizados diariamente e refiz os testes, antes imprimia normalmente agora a nova funcionalidade da propriedade do true/false estão invertidas: True = não está gerando as informações adicionais do item False = gera Marcos Softbox

Boa tarde! A propriedade "InfAdProd" não está mais saindo na DANFe e no XML se estiver setado "ExibeInforAdicProduto" como true no componente ACBeNFeDanfeFR. Fiz o teste setando false e voltou a gerar novamente os dados, está invertido o funcionamento. Marcos Softbox

Boa tarde! Ok, passando a confirmação que Uniprime homologou os boletos enviados. Marcos

Boa tarde! Tem outro problema com o Uniprime, eles usam "099-X" na identificação do banco no boleto, usando "X" ao invés de "4" no digito do banco, e na classe do boleto é inteiro, para contornar só vi uma solução de criar um arquivo .fr3 específico para atender este banco. Segue o texto da página 2 do manual do Uniprime: "Número do Banco e seu DV: Fixar o número do banco ‘099-X’ ao lado direito Logo/Nome do Banco" "Beneficiário (Recibo do Pagador): Informar a razão social + Endereço completo (endereço, bairro, cidade, UF, CEP) do Cooperado" "Beneficiário (Ficha de compensação): Razão social + Inscrição + Endereço completo (endereço, bairro, cidade, UF, CEP) do Cooperado" As críticas de validação do boleto foram feitas por: Equipe de Suporte - IT Quality Systems - www.itquality.com.br Marcos Softbox BoletoUniprime.fr3

Estou usando a unit ACBrUniprime.pas já existente no repositório, não criei nem alterei a mesma. Estou fazendo a impressão dos boletos usando o banco 99. Marcos

Não tem alterações no .pas, é só no .fr3 como destaquei na imagem anexa, replicado o mesmo campo do recibo do pagador e a ficha de compensação. O banco só está exigindo esse campo de endereço do beneficiário neste local também. Marcos

Foi acrescentado (replicado) o quadro do endereço do beneficiário que está no recibo do pagador para a ficha de compensação, somente alteração no arquivo .fr3 Arquivo BoletoNovo.fr3 e o arquivo de imagem destacando o quadro acrescentado no layout. BoletoNovo.fr3

Bom dia! Foi e está funcionando a classe. A questão está no layout da impressão do boleto, onde conforme o manual deles, eles querem o endereço do beneficiário no recibo do sacado e na ficha de compensação. O layout padrão está saindo no recibo do sacado somente. Pesquisei boletos impressos físicos de diversos bancos, emitido pelo banco ou outro sistema, e vi os 2 layouts de impressão do endereço do beneficiário. Tentei argumentar com o banco, pesquisei na internet sobre padrão da febrabran sobre padrão de exigências e não encontrei nada, e esse banco Uniprime tem na documentação deles a exigência do endereço do beneficiário e eles foram irredutíveis na validação do boleto, processo se arrastando por 3 meses e somente validaram com a inserção do endereço na ficha de compensação. Marcos Softbox

Por diversas tentativas de homologação do layout do boleto pelo Uniprime que exige o endereço do beneficiário na ficha de compensação, segue em anexo a sugestão do layout modificado e o manual do banco. Marcos Softbox BoletoTeste.fr3 Layout Uniprime 400.pdf

Boa tarde! A impressão da DANFE utilizando o modelo DanfeRetrato.fr3 não está imprimindo corretamente o texto no quadro "informações complementares", cortando ou não imprimindo tudo. Fiz o ajuste modificando o quadro para fazer stretch automático conforme o tamanho do texto, em anexo o arquivo modificado com o ajuste para análise. Antes: Depois: e continuando na página seguinte: Marcos Softbox DANFeRetrato.fr3

Bom dia! No arquivo dacte_retrato.fr3 estão invertidas as informações dos campos do tomador do serviço e tipo do CTe, segue em anexo o arquivo com dados nos campos correspondentes. Marcos Softbox DACTE_RETRATO.fr3

Bom dia! Eu não estou usando o ACBr para gerar o cnab400 do BB, mas olhando o código precisa informar a data de protesto sim, no código do acbr é feito a verificação da instrução de protesto e o cálculo de quantidade de dias para o protesto. Marcos

Boa tarde! Como vi vários posts referente este assunto abri este como dica de melhoramento podendo ser aplicado em outros bancos. Enfrentei diversas vezes problema com a geração da remessa para a CEF cnab240 com a instrução de protesto, a maneira que o o sistema está calculando a informação se é dias úteis ou corridos e os dias de protesto. O problema acontece quando o vencimento da duplicata é em sexta e tem 3 dias corridos, exemplo vencimento em 05/01/2018 onde a data de protesto é na quarta 10/01/18 e na remessa gera o campo 221 = 1 e o campo 222/224 = 05 como se o protesto seria na sexta 12/01/18. No meu código para a geração do boleto informo as propriedades "DiasDeProtesto" e "TipoDiasProtesto". Fiz o ajuste utilizando as varáveis onde fica bem explicito a informação alterando as linhas 684 e 685: IfThen((DataProtesto <> 0) and (DiasDeProtesto <= 5), '1', '3') + //221 - Código de protesto: Protestar em XX dias corridos IfThen((DataProtesto <> 0) and (DiasDeProtesto > 0), PadLeft(IntToStr(DiasDeProtesto), 2, '0'), '00') + //222 a 223 - Prazo para protesto (em dias corridos) onde antes constava: IfThen((DataProtesto <> 0) and (DataProtesto > Vencimento), '1', '3') + //221 - Código de protesto: Protestar em XX dias corridos IfThen((DataProtesto <> 0) and (DataProtesto > Vencimento), PadLeft(IntToStr(DaysBetween(DataProtesto, Vencimento)), 2, '0'), '00') + //222 a 223 - Prazo para protesto (em dias corridos) Em anexo a unit alterada. Marcos Softbox Informática Ltda ACBrBancoCaixa.pas

Boa tarde! Segue um ajuste para a correta geração de quantidade de registros do lote, Antes esta fixo o cálculo de quantidade de registros x3, como entrou o registro do segmento "S" essa lógica não serve mais, e como o "S" é opcional adicionei uma variável para fazer a contagem: fQtRegLote Segue a unit em anexo. Marcos Softbox ACBrBancoCaixa.pas

Manual da CEF em anexo. Também em anexo um ajuste na geração da mensagem que não estava gerando corretamente. Marcos ACBrBancoCaixa.pas LEIAUTE_CNAB_240_SIGCB_COBRANCA_CAIXA.pdf

A remessa da caixa cnab 240 não tem o suporte para mensagem ao cedente, peguei nos fontes de outro banco e inclui na unit ACBrBancoCaixa. Segue arquivo em anexo. Marcos ACBrBancoCaixa.pas