j2c9m7

Boa Tarde Atualizei o meu ACBR hoje e me deparei com um problema no CalcularTamMaximoNossoNumero function TACBrBancoHSBC.CalcularTamMaximoNossoNumero( const Carteira: String): Integer; begin Result := 13; if (trim(Carteira) = '') then raise Exception.Create(ACBrStr('Banco HSBC requer que a carteira seja '+ 'informada antes do Nosso Número.')); if (trim(Carteira) = 'CSB') or (trim(Carteira) = '1') then Result:= 5; end; e o correto é function TACBrBancoHSBC.CalcularTamMaximoNossoNumero( const Carteira: String): Integer; begin Result := 13; if (trim(Carteira) = '') then raise Exception.Create(ACBrStr('Banco HSBC requer que a carteira seja '+ 'informada antes do Nosso Número.')); if (trim(Carteira) = 'CSB') or (trim(Carteira) = '1') then Result:= 10; end; Notem que o tamanho do nosso numero na casteira CSB deve ser 10 e nao 5 como esta no SVN Abraços a todos

Anvisa, ainda nao disponibilizou ambiente de testes, que esteja em condicoes de uso! para a versao 2.0

Bom Dia Tambem estou precisando! ou entao de uma versao mais nova do ACBRMonitor, pois foram feitas varias modificacoes em boletos, com data superior a esta do monitor Como faço pra conseguir pelo penos o novo executavel? Abraços

Juliana Segue manual retorno CNR 400 HSBC Abraços RetornoCNR400.pdf

sergiobmaciel a sua range, ou seja o nosso numero, no seu caso comeca em 21110 00000 dig 8 e termina em 21110 99999 dig 4 5 digitos (fornecido pelo banco) + 5 digitos (sequencial de 0 a 99999) + 1 digito (controle) quando usar o boleto, informe apenas os 10 primeiros numeros, pois o digito controle eh calculado pelo acbrboleto, tanto na emissao, quanto na geracao do arquivo de remesa inicialmente, tambem tive muitos problemas com isso! mas agora esta funcionando bem abraços

Juliana Segue manual retorno CNR HSBC Abraços RetornoCNR.pdf

Tenho aqui o manual CNR do HSBC Abraços CNR.pdf

Juliana Segue algumas alteracoes necessarias para homologar cobranca registrada! Abraços ACBrBancoHSBC.pas

Juliana me diga uma coisa, o nosso numero quando passado pro acbrboleto, ja deve ter o checkdigito calculado? se sim, o tamanho, da forma que esta, esta diferente da forma que consegui homologar no HSBC se nao, falta calcular o digito na rotina montarcodigobarras favor, me de um retorno! Abraços

Ola tenho a unit HSBC homologada! segue anexo boletos e cnab 400 remessa simples e registrada Resposta do banco HSBC { Boa tarde Jair, Segue resultado do teste realizado nos boletos. Os mesmos estão aprovados. Obs.: Como trata-se somente de teste não é possível gerar arquivo retorno. Abraço! Decio Carboni Especialista Vendas | HSBC Bank Brasil S.A. PCM Sales - HSBC Empresas Rua Dante Pelizzari, 1554 Térreo Sala 12 Panazzolo Caxias do Sul/RS [email protected] } ACBrBancoHSBC.pas hsbc.pdf remessa.txt

Juliana Aqui estao as alteraçoes viewtopic.php?f=11&t=6490 Abraços

Ola Fiz algumas mudanças, no Titulo / Boleto acrescentei a cobranca registrada, ja testei, fiz pagamentos pela linha digitavel e pelo codigo de barras no CNAB400 corrigi o tamanho do nosso numero a homologação, farei esta semana, ai posto alteracoes se necessario! Abraços ACBrBancoHSBC.pas

Bom Dia Tenho roteiro e fontes para implantação do SNGPC para Delphi 7 ou Superior Tenho roteiro e fontes para implantação da FARMACIA POPULAR para Delphi 7 ou Superior Se alguem tiver interesse, solicite informaçoes pelo email [email protected] Abraços a todos

Boa Tarde Estou a tempo, precisando do CNAB 400 do HSBC e agora resolvi usa-lo Porem, fui usa-lo para implementar a cobranca registrada, e notei que tem um probleminha o campo Nosso Numero no layout do banco (abaixo) preve 11 posicoes, a partir da posicao 63 e no ACBRBoleto ele aparece com 13 + 3 (nosso numero + digito) http://www.hsbc.com.br/1/PA_1_1_S5/cont ... 00_jan.pdf Alguem pode me dizer, se estou certo ou errado? Abraços

No Rs estao começando a exigir CPF em todas as transaçoes!!! mesmo que seja por ECF

Bom Dia Tenho roteiro para implantação do SNGPC para Delphi 7 ou Superior Se alguem tiver interesse, solicite informaçoes pelo email [email protected] Abraços a todos

Daniel com campo fpTamanhoAgencia := 3 funciona tudo, apesar de estar errado! o correto realmente(cfe manual do banco), seria fpTamanhoAgencia := 4 porem deve se alterar a rotina MontarCodigoBarras usar no constructor TACBrBanrisul.create(AOwner: TACBrBanco); fpTamanhoAgencia := 4 e no function TACBrBanrisul.MontarCodigoBarras(const ACBrTitulo: TACBrTitulo): string; CampoLivre:= Modalidade + padR(copy(ACBrBoleto.Cedente.Agencia,2,3), 3, '0')+ { Código da agência (apesar de ter 4, so usa 3 no boleto) } padR(ACBrBoleto.Cedente.Conta, 7, '0') + { Código conta 7, Codigo do Cedente 9 } padR(NossoNumero, 8, '0')+{ Nosso número 8} '041'; pois o Banrisul, so utiliza 3 digitos da agencia no boleto Abraços

atualizei pelo svn hoje, e realmente, temos problemas com Banrisul a alteracao de formatacao da agencia, conta, e carteira foi feita em todos os boletos, e esquecido no Banrisul!!! favor adicionar as linhas com alteracao, conforme abaixo e subir pro svn constructor TACBrBanrisul.create(AOwner: TACBrBanco); begin inherited create(AOwner); fpDigito:=8; fpNome:='Banrisul'; fpTamanhoMaximoNossoNum:=8; fpTamanhoAgencia := 3; // alteracao fpTamanhoConta := 7; // alteracao end;

atualizei pelo svn hoje, e realmente, temos problemas com Banrisul a alteracao de formatacao da agencia, conta, e carteira foi feita em todos os boletos, e esquecido no Banrisul!!! favor adicionar as linhas com alteracao, conforme abaixo e subir pro svn constructor TACBrBanrisul.create(AOwner: TACBrBanco); begin inherited create(AOwner); fpDigito:=8; fpNome:='Banrisul'; fpTamanhoMaximoNossoNum:=8; fpTamanhoAgencia := 3; // alteracao fpTamanhoConta := 7; // alteracao end;

Poste aqui, o fonte que voce tem, Sera analizado, pra ver se pode subir pro svn, A partir disto, a gente pode dar continuidade no que falta! Abraços

Ola Alguem ja tem algo desenvolvido pro HSBC, e precisando de ajuda? Estou a disposição!

Estou emitindo boletos do Banrisul a 2 meses aprox e em varios clientes! A rotina esta correta! e nao tive nenhum problema ate o momento! Informe-se mais a respeito!

Juliana Pretendo desenvolver o retorno400 para o Banrisul, assim que estiver usavel, posto aqui! Abraços ACBrBancoBanrisul.pas

Ola Encontrei o problema; conforme o manual do Banrisul, Do link que postei acima, a agencia, deve ter 3 posicoes e nao 4, e a constante deve ser '041' e nao '40'. segue abaixo fonte corrigido! function TACBrBanrisul.MontarCodigoBarras(const ACBrTitulo: TACBrTitulo): string; var CodigoBarras, FatorVencimento, DigitoCodBarras, CampoLivre, Modalidade: string; DigitoNum: Integer; begin with ACBrTitulo do begin if StrToIntDef(Carteira, 8)=8 then Modalidade:='21' else Modalidade:='11'; FatorVencimento:=CalcularFatorVencimento(ACBrTitulo.Vencimento); CampoLivre:=Modalidade+ padR(ACBrBoleto.Cedente.Agencia, 3, '0')+{ Código agência (cooperativa) } // <---- o tamanho do campo estava 4 padR(ACBrBoleto.Cedente.Conta, 7, '0')+{ Código cedente = Número da conta } padR(NossoNumero, 8, '0')+{ Nosso número } '041'; // <---- constante esta '40' {Calculando Módulo 10} Modulo.MultiplicadorInicial:= 1; Modulo.MultiplicadorFinal:= 2; Modulo.MultiplicadorAtual:= 2; Modulo.FormulaDigito := frModulo10; Modulo.Documento := CampoLivre; Modulo.Calcular; CampoLivre := CampoLivre+ IntToStr(Modulo.DigitoFinal); {Calculando Módulo 11} Modulo.CalculoPadrao; Modulo.MultiplicadorFinal:= 7; Modulo.Documento:= CampoLivre; Modulo.Calcular; if (Modulo.ModuloFinal >= 10) or (Modulo.ModuloFinal < 1) then CampoLivre := CampoLivre +'1' else CampoLivre := CampoLivre + IntToStr(Modulo.DigitoFinal); CodigoBarras:=PadR(IntToStr(Numero), 3, '0')+'9'+ FatorVencimento+{ Fator de vencimento, não obrigatório } IntToStrZero(Round(ACBrTitulo.ValorDocumento*100), 10)+{ valor do documento } CampoLivre; { Campo Livre } DigitoCodBarras:=CalcularDigitoCodigoBarras(CodigoBarras); DigitoNum:=StrToIntDef(DigitoCodBarras, 0); if (DigitoNum=0)or(DigitoNum>9) then DigitoCodBarras:='1'; end; Result:=PadR(IntToStr(Numero), 3, '0')+'9'+DigitoCodBarras+Copy(CodigoBarras, 5, 39); end; Fiz o teste da linha digitavel, deu certo, e o codigo de barras tambem esta certo Alguem pode subir esta alteração? Estou tendo problemas com as margens, do boleto, deveriam ser um pouco maiores, ou configuraveis?!?? Abraços

Pessoal, estou testando o boleto, porem existe algum problema na linha digitavel Nao consegui descobrir, o que esta acontecendo, Linha Digitavel: XXXX2.1XXXX XXXXX.XXXXXX XXXXX XXXXXX X XXXXXXXXXXXXXX onde aparece o 2, indica uma constante, porem o componente muda eventualmente para 1 onde aparece o 1, indica uma constante, porem o componente muda e insere 10 movendo todo o conteudo da linha para a direita manual do Boleto Banrisul encontrei em http://www.boletophp.com.br/documentaca ... nrisul.zip na pagina 28 tem uma explicaçao detalhada!