Joel

Entendi. Ok Farei isso Juliomar. Obrigado!

A pasta com o trunck sim, mas o path não. desinstalei tudo antes.

Boa tarde pessoal, estava com o mesmo erro deste tópico. Delphi7 fast 4.0 Cannot find class Datasets Cannot find class Formats Resolvi o problema do erro, porém é preciso que alguém acesse o arquivo DANFeRetrato.fr3 entre nele e marque os datasets envolvidos pelo editor do fast. no menu Report/Data

Caminho: D:\Componentes\ACBRFontes2\ Versão do delphi: Delphi 7 (0) Plataforma: Win32(0) ================================================================================ Setando parâmetros de plataforma... Criando diretórios de bibliotecas... Removendo diretorios e pacotes antigos instalados... Adicionando library paths...

isso Sergio esse cara aqui ACBrInstall_Trunk2.exe Não tive sucesso no instalador. deu erro na compilação ... na unit principal nem imagino que erro era. class var ...

Pessoal ainda não foi resolvido o erro que acontece no instalador ? Consegui atualizar meu trunck2 até que em fim, não havia conseguido devido a algumas incompatibilidades de impressos, mas percebi que ainda está dando o erro: Ocorreu um erro ao tentar configurar o path: Função Incorreta. Windows 7 64bits e delphi 7 32bits Estou baixando e instalando o JEDI para eu dar uma olhada nesse instalador e tentar resolver já que está dificil a correção do mesmo. Não sei se vou conseguir se alguém puder me ajudar agradeço.

Bom dia, É bem sobre isso que eu queria falar melhor com você, pois cansei de tentar explicar por aqui e achei muito mais prático explicar por telefone. Mas se não quer, tudo bem. Não tive tempo para poder analisar com mais detalhes essa questão do tamanho do nosso número. Concordo com você que o nosso número tem 12 caracteres conforme o layout isso está claro para todos. Porém essa variável se você define com tamanho 11 como estamos fazendo, o nosso numero fica com o dobro do tamanho, pois ele que define quantos zeros serão colocados na frente do meu número. Aliás, você testou gerar o boleto e a remessa do jeito que estã ? Deixei a variavel da forma que você definiu Result := ACBrBanco.TamanhoMaximoNossoNum + 5 ; ( ela já vem definida com tamanho 6 que é a quantidade necessária para a função desta variavel) e gerei um boleto e uma remessa. segue em anexo. Já que você não quer fazer a modificação, por favor analise os documentos e nos dê uma posição. Você fez a geração do boleto e do arquivo de remessa e fez a leitura do retorno do banco para ver o que acontece se mantiver estas configurações ? Deu certo a leitura do retorno? Vai perceber que ele não lê os dados corretos também devido a este problema de posição das casas. Perceba na remessa que o nosso número que deveria aparecer só aparece o inicio dele pois tem muitos zeros na frente. numero gerado: 15770000000040351 deveria ser 157700040351 Não posso atualizar ainda meu acbr devido a esta situação. Apenas gostaria de salientar que não vou mais explicar as modificações, pois é a 3 ou 4 vez que estou enviando e explicando que está HOMOLOGADA a unit porém você insiste em questionar as alterações mas não me confirmou se foi homologado ou não da forma que está mantendo. Caso ainda tenha dúvidas desta questão sugiro que faça a homologação perante o banco. Não irei mais enviar correções deste arquivo se for para ser questionado tantas vezes assim sem se basear em uma afirmação concreta de sua posição. unionsystem.exe_ ACBRBoletoFCFortesFr.LayoutBoleto_.pdf cb221201.rem

Bom dia Juliana, tudo bem? Eu precisava "falar" com você, pois estou em uma encruzilhada que não tem saída aqui na unit ACBrBancoBradescoSICOOB e talvez você possa clarear e resolvermos juntos a situação. wats 4499603399 skype [email protected] Por favor entrar em contato o mais breve possível. Desde já agradeço a vossa atenção!

Bom dia Regys, me desculpe acho que olhei na pasta errada. é na pasta exemplo que tem os arquivos de relatórios certo. Porém vi que não tem mais os arquivos do rave e acho que eu estava utilizando o rave para impressão. Não será mais utilizado ne? Vou me planejar para fazer a migração para o forts ou fast. Obrigado!

Bom dia Juliana, Concordo que precisa ser implementado para todas as carteiras. Porém penso que isso não impede de ser tratada nesse primeiro momento esta carteira homologada, assim deixaríamos até que apareça uma outra carteira homologada por outro companheiro, assim podemos ter um parâmetro para saber se as alterações devem ser direcionadas a todos, ao invés de tentar analisar todas as carteiras hoje. Da forma que está a unit, será que já foi homologada por alguém? Caso sim, deve se manter o tratamento que implementei para não afetar outros companheiros. Eu acredito que as alterações nestes pontos não são específicos da carteira e sim do convênio sicoob bradesco, Como a unit já é específica, na verdade não vejo problemas em utilizar como genérico, caso claro, não tenha uma outra carteira homologada da forma que está hoje. Dígito+Verificador+NN+Bradesco 13-10.doc Manual_Layout_Sicoob_-_Correspondente_BRADESCO_-_Impressão_Local.pdf

bom dia Juliana, obrigado por retornar. Fiz um tratamento para a carteira a qual estava fazendo a homologação. if MatchText( Carteira , ['09']) then // alterado por joel takei 15/10/2015 begin Modulo.MultiplicadorInicial := 2; Modulo.MultiplicadorFinal := 7; Modulo.Documento := '9' + FormataNossoNumero( ACBrTitulo ); end else begin Modulo.MultiplicadorInicial := 2; Modulo.MultiplicadorFinal := 9; Modulo.Documento := FormatDateTime('yy',ACBrTitulo.DataDocumento)+ padR( ACBrTitulo.ACBrBoleto.Cedente.Convenio, 3, '0')+ FormataNossoNumero( ACBrTitulo ); end; Com relação a este código: Modulo.Documento := FormatDateTime('yy',ACBrTitulo.DataDocumento)+ padR( ACBrTitulo.ACBrBoleto.Cedente.Convenio, 3, '0')+ FormataNossoNumero( ACBrTitulo ); Se você entrar na função formataNossoNumero, verá que está repetindo o código que está sendo repassado para o Modulo.Documento. Ficando o nosso numero com um valor incorreto. ex: 15770157701234. repetindo o prefixo 15770, vai que esteja funciona assim em alguma carteira ne. com relação a mudança: Modulo.MultiplicadorFinal := 7; O dígito verificador tem como base 7 e não 9. Caso contrario o dígito verificador não bate, tive que alterar. Modulo.Documento := '9' + FormataNossoNumero( ACBrTitulo ); Na geração do dígito verificador CalcularDigitoVerificador (segue documento em anexo) é necessário passar a carteira. Com relação a outra mudança : Result := ACBrBanco.TamanhoMaximoNossoNum;// + 5 JOel takei 21/09/2015; Quando o componente vai gerar o nosso número, essa quantidade 5 afeta aumentando a mais a quantidade de casas necessárias. O padrão já é 6. fpTamanhoMaximoNossoNum := 6; ex: 15770 000001 ex: 15770 00000000001 Na verdade não precisava ter tratado a carteira 9 diferente, mas para não afetar os demais, achei melhor manter o código original, por isso o tratamento. A carteira 9 com o código modificado está homologada e já emitindo boletos e gerando remessa e retornos. Caso você tenha uma outra forma de tratar o código, não afetando o layout homologado será de grande ajuda. Dígito+Verificador+NN+Bradesco 13-10.doc

João Batista, muito obrigado por compartilhar este instalador corrigido pois eu também já havia perdido a esperança deste instalador e instalava tudo manualmente. Como você disse, mesmo num computador formatado do zero está dando a mensagem, que é o meu caso. Instalou todos os pacotes, menos as do fortes que acredito que deva ter sido por ainda estar em migração para o trunck2. Se o pessoal puder verificar para nós este detalha do instalador agradeço de coração.

Conforme conversado com a Juliana , segue correções nas units no trunck2 : ACBrBoleto : constructor TACBrTitulo.Create(ACBrBoleto:TACBrBoleto); fLocalPagamento := 'Pagar preferencialmente nas agencias do '+ ACBrBoleto.Banco.Nome + ' até o vencimento'; // joel 15/10/2015 ACBrBancoBradescoSICOOB : function TACBrBancoBradescoSICOOB.CalcularDigitoVerificador(const ACBrTitulo: TACBrTitulo ): String; Procedure TACBrBancoBradescoSICOOB.LerRetorno400 ( ARetorno: TStringList ); function TACBrBancoBradescoSICOOB.CalcularTamMaximoNossoNumero( Em anexo as units com as alterações. Por gentileza atualizar o svn. Obrigado ACBrBoleto.pas ACBrBancoBradescoSICOOB.pas

não não ... nfe2 não está lá também.. são os que mais utilizo. Como faço para compilar os componentes agora? terá que ser individualmente ne? Porque agora tenho 2 pastas acbr acbr e acbr2. Humm já vi, mudou o diretório dos documentos fiscais. Entendi.

Juliana, como vcs estão fazendo? nem todos os projetos estão no trunck2 certo, tipo nfe2 nfese..etc.. e agora? estão controlando 2 lugares para compilar os componentes? Fiquei preocupado agora.. pois baixei o trunck2 , na verdade já havia baixado ao ler os posts, mas não estava usando ainda. Agora que você me falou do componente... Mas como vamos fazer? controlar 2 truncks? não sei o que esse povo quis inventar de fazer isso ne.. bastasse fazer como o nfe.. nfe nfe2 para mudar e não mudar o diretorio radicalmente.

Bom dia Juliana, obrigado pelo retorno. Posso então baixar o trunck 2 e fazer as alterações lá e enviar novamente? Obrigado!

Olá Juliana, Sim fiz a homologação com sucesso. Mas estou preocupado pois já a algum tempo estou enviando as modificações necessárias e não estão sendo atualizadas, não estou podendo deixar sincronizado os fontes do acbr. Já estou utilizando geração de boleto e remessa e retorno pelo correspondente sicoob. Bradesco.

Bom dia, encontrei mais algumas divergências na leitura do retorno. unit ACBrBancoBradescoSICOOB segue em anexo. A função é a Procedure TACBrBancoBradescoSICOOB.LerRetorno400 ( ARetorno: TStringList ); rAgencia := trim(Copy(ARetorno[0], 101, ACBrBanco.TamanhoAgencia)); // joel takei 11/11/2015 rConta := trim(Copy(ARetorno[0], 106, ACBrBanco.TamanhoConta)); // joel takei 11/11/2015 rDigitoAgencia := Copy(ARetorno[0],105,1); // joel takei 11/11/2015 rDigitoConta := Copy(ARetorno[0],113,1); // joel takei 11/11/2015 Carteira := Copy(Linha,108,1); // joel takei 11/11/ 2015 NossoNumero := Copy(Linha,76,6); //Copy(Linha,71,12); // joel takei 11/11/ 2015 ACBrBancoBradescoSICOOB.pas Gostaria de lembrar que estou fazendo homologação diretamente com o banco. Já foi homologado o boleto , assim como o arquivo de remessa e agora o retorno estou validando e ajustando conforme post anterior. Moderador deste tópico, por gentileza atualizar os fontes. Gostaria de saber se este tópico está abandonado????? Caso sim, com quem eu poderia reportar as correções? Obrigado a alguém

Pessoal tive problemas com o digito verificador do nosso numero para correspondente sicoob bradesco.Tive que mudar alguns parametros no calculo e a forma que estava enviando o nosso numero para o calculo. Por favor subir no svn Segue manual do calculo em anexo e unit. função: CalcularDigitoVerificador with ACBrTitulo do begin if MatchText( Carteira , ['09']) then // alterado por joel takei 15/10/2015 begin Modulo.MultiplicadorInicial := 2; Modulo.MultiplicadorFinal := 7; Modulo.Documento := '9' + FormataNossoNumero( ACBrTitulo ); aqui nesse momento o nosso numero ja vem formatado nao precisava montar ele novamente com os 2 digitos do ano mais convenio.... estava ficando duplicado o nosso numero. Apenas precisava do convênio na frente dele. end else begin Modulo.MultiplicadorInicial := 2; Modulo.MultiplicadorFinal := 9; Modulo.Documento := FormatDateTime('yy',ACBrTitulo.DataDocumento)+ padR( ACBrTitulo.ACBrBoleto.Cedente.Convenio, 3, '0')+ FormataNossoNumero( ACBrTitulo ); end; end; ACBrBancoBradescoSICOOB.pas Dígito+Verificador+NN+Bradesco 13-10.doc CalculoDV-1 20-10.pdf Ainda não subiram a alteração que fiz, mas já tem mais alterações para serem feitas. Será que alguém está acompanhando o bradesco sicoob ?

Olá pessoal precisei modificar a impressão do QRCod da NFCe para impressora Bematech. unit ACBrNFeDANFeESCPOS; O QRCod estava imprimindo muito grande. Se tiver outra forma de diminuir sem modificar este código por favor me passem. Segue fonte alterado. FLinhaCmd := chr(27) + chr(97) + chr(1) + chr(29) + chr(107) + chr(81) + chr(3) + chr(8) + chr(8) + chr(1) + chr(cTam1) + chr(cTam2) + cCaracter; FLinhaCmd := chr(27) + chr(97) + chr(1) + chr(29) + chr(107) + chr(81) + chr(3) + chr(6) + chr(8) + chr(1) + chr(cTam1) + chr(cTam2) + cCaracter; ACBrNFeDANFeESCPOS.pas

Boa tarde pessoal. Tive que fazer esta alteração pois estava gerando o nosso número muito grande. Estava somando o tamanho máximo do nosso número 6 que já vem com a configuração do banco pelo componente + 5. Segue anexo layout do banco para conferencia conforme solicitado. Não estou mais recebendo notificação por email do forum. será que mudou alguma coisa? Segue arquivo em anexo para alteração. function TACBrBancoBradescoSICOOB.CalcularTamMaximoNossoNumero( const Carteira: String; NossoNumero: String): Integer; begin Result := ACBrBanco.TamanhoMaximoNossoNum;// + 5 Joel takei 21/09/2015; end; Na unit ACBrBoletoFCFortesFr tive que fazer estas alterações também para que o boleto saísse conforme layout do banco. txtNomeCedente2.Caption := Cedente.Nome; // Joel Takei 07/10/2015 if Cedente.CNPJCPF <> '' then txtNomeCedente2.Caption := txtNomeCedente2.Caption + ' - ' + TipoDoc + Cedente.CNPJCPF; // Joel Takei 07/10/2015 txtUsoBanco2.Visible := Titulo.UsoBanco <> ''; // Joel Takei 21/09/2015 txtUsoBanco3.Visible := txtUsoBanco2.Caption <> ''; // Joel Takei 21/09/2015 ACBrBancoBradescoSICOOB.pas ACBrBoletoFCFortesFr.pas Manual_Layout_Sicoob_-_Correspondente_BRADESCO_-_Impressao_Local.pdf

Boa tarde pessoal. Tive que fazer esta alteração pois estava gerando o nosso número muito grande. Estava somando o tamanho máximo do nosso número 6 que já vem com a configuração do banco pelo componente + 5. Segue arquivo em anexo para alteração. function TACBrBancoBradescoSICOOB.CalcularTamMaximoNossoNumero( const Carteira: String; NossoNumero: String): Integer; begin Result := ACBrBanco.TamanhoMaximoNossoNum;// + 5 JOel takei 21/09/2015; end; ACBrBancoBradescoSICOOB.pas

boa tarde pessoal, Encontrei um detalhe no campo de uso do banco. ele está visible = false. Porém o SICOOB/BRADESCO exige este campo preenchido com um codigo. tive que fazer este tratamento em 2 lugares. Segue arquivo em anexo. Por favor se puderem subir nos fontes. Obrigado! txtUsoBanco2.Visible := Titulo.UsoBanco <> ''; // Joel Takei 21/09/2015 txtUsoBanco3.Visible := txtUsoBanco2.Caption <> ''; // Joel Takei 21/09/2015 ACBrBoletoFCFortesFr.pas

Boa tarde moderadores, Eu já havia solicitado esta alteração mas acredito não tenha sido realizada, fui verificar agora que ia fazer update dos fontes. Não encontrei o topico de Maringá, estou escrevendo neste aqui mesmo que tem a ver com o assunto. No arquivo pnfsNFSeW.pas havia feito estas alterações no arquivo e vi que não está lá. Poderiam implementar para nós? Desde já agradeço a vossa atenção. linha 698- if FProvedor <> proISSe then // alterado por joel (Maringá-PR) 15/05/2015 Gerador.wCampoNFSe(tcStr, '#31', 'CodigoTributacaoMunicipio', 01, 20, 0, OnlyNumber(NFSe.Servico.CodigoTributacaoMunicipio), ''); linha 1761 Gerador.wCampoNFSe(tcStr, '', 'xEmail', 01, 100, 0, NFSe.Tomador.Contato.Email, ''); linha 1764 Gerador.wCampoNFSe(tcStr, '', 'IM', 01, 15, 1, NFSe.Tomador.IdentificacaoTomador.InscricaoMunicipal, ''); linha 1765 Gerador.wCampoNFSe(tcStr, '', 'fone', 01, 100, 0, NFSe.Tomador.Contato.Telefone, ''); pnfsNFSeW.pas

Segue o log do erro. Se eu desmarcar a opção do fortes na guia NF-e ele instala normalmente, só que aí não consigo abrir o projeito ACBRNFEMonitor para eu compilar a ultima versão. Mas então voce precisa instalar o fortes.. ou não sei se tem alguma forma de comentar no uses do monitor para não compilar o fortes... não uso o monitor.. ai já não sei te dizer.