Clipper On Line • Ver Tópico - BOLETOS? Não tem problemas, estas ferramentas vão te ajudar

BOLETOS? Não tem problemas, estas ferramentas vão te ajudar

Aqui você poderá oferecer suas Contribuições, Dicas e Tutoriais (Texto ou Vídeo) que sejam de interesse de todos.

Moderador: Moderadores

 

BOLETOS? Não tem problemas, estas ferramentas vão te ajudar

Mensagempor asimoes » 15 Jul 2016 17:49

Abel,

Você sabe me dizer quando será o fim da emissão de boleto sem registro, porque eu tenho um sistema que fiz pro nosso condomínio, e não faço remessa, eu só baixo o arquivo retorno para saber quem pagou, isso no banco itaú
►Harbour 3.x | Minigui xx-x | HwGui◄
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

BOLETOS? Não tem problemas, estas ferramentas vão te ajudar

Mensagempor JoséQuintas » 15 Jul 2016 21:46

É proibido postar fontes do Mr.Boleto.
Já fui avisado pelo autor, quando postei aqui algumas modificações.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18014
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

BOLETOS? Não tem problemas, estas ferramentas vão te ajudar

Mensagempor Abel » 15 Jul 2016 23:00

O fim dos boletos pela febraban é 31/12/2016.

mas os bancos já começaram a restringir o uso do boleto sem registro.
no meu caso BB, tenho ate final do mês 07 para usar com registro, se utilizar sem registro a taxa será de 100%, ou seja, quase 9.00 cada boleto pago pelo cliente sem registro será descontado da minha conta.

Não é o fim, os bancos é que querem o fim. Pela febraban, os boletos sem registros em 2017 poderão ser pagos apenas no banco origem do boleto.

ou seja, boleto do itau sem registro, so pode pagar pelo itau.

Abel
Abel
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 310
Data de registro: 14 Mar 2012 13:16
Cidade/Estado: sao paulo / sp
Curtiu: 1 vez
Mens.Curtidas: 2 vezes

BOLETOS? Não tem problemas, estas ferramentas vão te ajudar

Mensagempor rubens » 16 Jul 2016 08:37

Bom dia...

Quintas, como é que a história do MR.Boleto?
Não pode postar fontes dele aqui?
Então se eu usar ele e precisar e alguma ajuda somente com o desenvolvedor?
Estou partindo para implementar isso e ia partiar para o mrboleto... mas agora é pensar de novo isso..

Rubens
"Eu e minha casa servimos ao Senhor e você ???"
Avatar de usuário

rubens
Colaborador

Colaborador
 
Mensagens: 1518
Data de registro: 16 Ago 2003 09:05
Cidade/Estado: Nova Xavantina - MT
Curtiu: 77 vezes
Mens.Curtidas: 104 vezes

BOLETOS? Não tem problemas, estas ferramentas vão te ajudar

Mensagempor rochinha » 16 Jul 2016 13:52

Amiguinhos,

De um certo modo o autor dará o suporte. Se a ferramenta foi disponibilizada de forma livre, provavelmente ele faça as alterações solicitadas e poste no local onde disponibilizou com intuito de centralizar, unificar e não permitir várias versões fora do controle.

Veja, o gerenciador de controle, permite o usuário fazer parte da vida do software e contribuir com suas melhorias. O código sempre vai estar lá, mas se não houver manutenção nem comunicação do autor, não permitir apresentar o código a comunidade para que as várias cabeças possam dar luz e radical.

A idéia também é evitar espertinhos de ganhar uma moeda, sem dar crédito ao menos, em cima do suor alheio.

Lógico que tal restrição não impede o uso da ferramenta, basta instalar um servidor de versões e compartilhar com a comunidade.
OPS! LINK QUEBRADO? Veja ESTE TOPICO antes e caso não encontre ENVIE seu email com link do tópico para fivolution@hotmail.com. Agradecido.

@braços : ? )

A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.
Avatar de usuário

rochinha
Membro Master

Membro Master
 
Mensagens: 4538
Data de registro: 18 Ago 2003 20:43
Cidade/Estado: São Paulo - Brasil
Curtiu: 800 vezes
Mens.Curtidas: 242 vezes

BOLETOS? Não tem problemas, estas ferramentas vão te ajudar

Mensagempor rubens » 03 Out 2016 16:37

Boa tarde...

Alguém tá gerando Boletos pra o Sicredi com o MRBOLETO ?
Eu consegui compilar a classe no meu sistema, gero os arquivos exemplos certinho...
Daí peguei um Boleto do sicredi que já gero por aqui pelo site deles, consegui colocar todas as informações mas a linha digitável não.
Fui no site e digitei a linha que foi gerada com o MRBOLETO e dá erro de digitos verificadores.
O resto do boleto tá igualzinho... carteira, nosso número ...

Linha do Sicredi:
74891.11612.00179.808068.14590.331089 7 69590000035200

Linha do MR Boleto.
74891.59033 31600.179803 80659.033106 1 69560000035200

Daí empacou...

Obrigado
Rubens
"Eu e minha casa servimos ao Senhor e você ???"
Avatar de usuário

rubens
Colaborador

Colaborador
 
Mensagens: 1518
Data de registro: 16 Ago 2003 09:05
Cidade/Estado: Nova Xavantina - MT
Curtiu: 77 vezes
Mens.Curtidas: 104 vezes

BOLETOS? Não tem problemas, estas ferramentas vão te ajudar

Mensagempor fladimir » 03 Out 2016 18:20

Rubens desculpe a pergunta, seria para projeto novo? Se sim como usa o ACBr já tem pronto nele talvez seria mais rápido

Qto ao MRBoleto tem pessoal q usa tb, mas não saberia te ajudar.
Sun Tzu há mais de três mil anos cita nas epígrafes de seu livro “A Arte da Guerra“:

“Concentre-se nos pontos fortes, reconheça as fraquezas, agarre as oportunidades e proteja-se contra as ameaças”.
“Se não é vantajoso, nunca envie suas tropas; se não lhe rende ganhos, nunca utilize seus homens; se não é uma situação perigosa, nunca lute uma batalha precipitada”
.


Até 2017    Desktop Console [ Legado ] Harbour | MinGW | DBF | CDX | FastReport | MySQL


Novos Projetos:

   Desktop Visual           Windev Desktop
   Celular Android/iOS   Windev Mobile
   WEB                            Windev Web


Sejamos gratos a Deus.
Avatar de usuário

fladimir
Colaborador

Colaborador
 
Mensagens: 2434
Data de registro: 15 Nov 2006 19:21
Curtiu: 28 vezes
Mens.Curtidas: 157 vezes

BOLETOS? Não tem problemas, estas ferramentas vão te ajudar

Mensagempor rubens » 03 Out 2016 18:27

Então Fladimir...

Eu queria colocar o MRBOLETO para funcionar aqui... parece ser bem simples, rápido e não dependeria de ferramenta externa...
Mas se não conseguir... vou partir pro ACBR já cheguei a gerar uns boletos teste nele mas não coloquei para frente...

De qualquer forma se não conseguir no MRBoleto com certeza vou pro ACBR sim e aceito ajuda sim... kkkkk

Obrigado
Rubens
"Eu e minha casa servimos ao Senhor e você ???"
Avatar de usuário

rubens
Colaborador

Colaborador
 
Mensagens: 1518
Data de registro: 16 Ago 2003 09:05
Cidade/Estado: Nova Xavantina - MT
Curtiu: 77 vezes
Mens.Curtidas: 104 vezes

BOLETOS? Não tem problemas, estas ferramentas vão te ajudar

Mensagempor pena » 21 Out 2016 16:35

boa tarde, onde consigo os fontes destes exemplos?
Avatar de usuário

pena
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 331
Data de registro: 06 Jul 2004 18:08
Cidade/Estado: CACHOEIRA DO SUL-RS
Curtiu: 0 vez
Mens.Curtidas: 3 vezes

BOLETOS? Não tem problemas, estas ferramentas vão te ajudar

Mensagempor JoséQuintas » 21 Out 2016 22:04

O Mr Boleto funciona bem, acabei usando pra determinada situação.
Fiz alterações pra ficar mais fácil de usar.
Mas quando postei aqui, o autor pediu pra remover os fontes, porque o tipo de licença não permitia isso
Por uma grande coincidência, há exatos dois anos atrás.

http://www.pctoledo.com.br/forum/viewtopic.php?f=43&t=13725&p=92174&hilit=mr+boleto#p91990
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18014
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

BOLETOS? Não tem problemas, estas ferramentas vão te ajudar

Mensagempor asimoes » 27 Out 2016 15:37

Olá Pessoal,

Alguém tem rotina para geração de arquivo remessa para o Itaú?

O Itaú já está nos informando sobre o registro da cobrança.
►Harbour 3.x | Minigui xx-x | HwGui◄
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

BOLETOS? Não tem problemas, estas ferramentas vão te ajudar

Mensagempor JoséQuintas » 29 Out 2016 10:36

Isso muda um pouco conforme a carteira de cobrança.
E como estão alterando, convém até usar um manual novo.

Tem um manual do Itaú com várias carteiras de cobrança, criei só a que eu precisava.
Mesmo assim, no ano passado criei outra geração, também do Itaú, que não fazia parte desse manual.
E não sei se essas mudanças novas incluem alteração de layout.
Então é melhor confirmar no banco, ter certeza qual é a carteira, e qual é o layout pra ela.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18014
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

BOLETOS? Não tem problemas, estas ferramentas vão te ajudar

Mensagempor asimoes » 30 Out 2016 11:05

Quintas,

A nossa carteira é a 109
►Harbour 3.x | Minigui xx-x | HwGui◄
Pense nas possibilidades abstraia as dificuldades.
Não corrigir nossas falhas é o mesmo que cometer novos erros.
A imaginação é mais importante que o conhecimento. (Albert Einstein)
Avatar de usuário

asimoes
Colaborador

Colaborador
 
Mensagens: 4919
Data de registro: 26 Abr 2007 16:48
Cidade/Estado: RIO DE JANEIRO-RJ
Curtiu: 341 vezes
Mens.Curtidas: 258 vezes

BOLETOS? Não tem problemas, estas ferramentas vão te ajudar

Mensagempor JoséQuintas » 30 Out 2016 15:15

Como o fonte segue a sequência do manual, fácil de confirmar no manual.



STATIC FUNCTION TxtItau( mTipoReg )
   MEMVAR mTxtDocto, mValor, mCnpj
   MEMVAR mAgencia, mConta, mCarteira, mQtRegs, mDocBanco, mTxJuros, mnfNotFis, mTaxaBoleto

mTxtDocto := mnfNotFis
IF ! Empty( jpfinan->fiParcela )
   mTxtDocto := mTxtDocto + "/" + jpfinan->fiParcela
ENDIF

SET ALTERNATE ON
SET CONSOLE OFF

DO CASE
CASE mTipoReg == "I" // Inicial
   ?? "0"
   ?? "1"
   ?? "REMESSA"
   ?? "01"
   ?? Pad("COBRANCA",15)
   ?? mAgencia
   ?? "00"
   ?? Substr( mConta, 1, Len( mConta ) - 1 )
   ?? Substr( mConta, Len( mConta ), 1 )
   ?? Space( 8 )
   ?? Pad( AppEmpresaNome(), 30 )
   ?? "341"
   ?? Pad( "BANCO ITAU S/A", 15 )
   ?? StrZero( Day( Date() ), 2 ) + StrZero( Month( Date() ), 2 ) + StrZero( Year( Date() ) - 2000, 2 )
   ?? Space(294)
   ?? StrZero( mQtRegs, 6 )
   ?
CASE mTipoReg == "F" // Final
   ?? "9"
   ?? Space(393)
   ?? StrZero( mQtRegs, 6 )
   ?
CASE mTipoReg == "D"
   mValor := jpfinan->fiValor + mTaxaBoleto
   ?? "1"
   IF Val( jpfinan->fiSacado ) == 0 .OR. jpfinan->fiSacado == jpfinan->fiCliFor
      ?? "02" // 04=CNPJ EMPRESA
      ?? StrZero( Val( SoNumeros( jpempre->emCnpj ) ), 14 )
   ELSE
      Encontra( jpfinan->fiCliFor, "jpcadas", "numlan" )
      IF Len( SoNumeros( jpcadas->cdCnpj ) ) == 14
         ?? "04" // 04=CNPJ TERCEIRO
      ELSE
         ?? "03"
      ENDIF
      ?? Pad( SoNumeros( jpcadas->cdCnpj ), 14 )
   ENDIF
   ?? mAgencia
   ?? "00"
   ?? Substr( mConta, 1, Len( mConta ) - 1 )
   ?? Substr( mConta, Len( mConta ), 1 )
   ?? Space(4)
   ?? Space(4) // Nota 27
   ?? Pad( jpfinan->fiDocAux, 25 )
   // ?? Space(25) // Titulo na empresa
   IF mCarteira == "112"
      ?? Space(8) // Escritural, o Itau vai preencher
   ELSE
      ?? StrZero( Val( mDocBanco ), 8 ) // Direta, sequencial
   ENDIF
   ?? StrZero( 0, 13 ) // Outra moeda
   ?? mCarteira // "109" ou "112"
   ?? Space(21)
   ?? "I" // Nota 5
   ?? "01" // Remessa - Nota 6
   IF jpfinan->fiCliFor == jpfinan->fiSacado
      IF "CARREFOUR" $ jpcadas->cdNome .OR. "ELDORADO S/A" $ jpcadas->cdNome
         IF "/" $ mTxtDocto
            mTxtDocto := Substr( mTxtDocto, 1, At( "/", mTxtDocto ) - 1 )
            mTxtDocto := StrZero( Val( mTxtDocto ), 9 ) + " "
         ENDIF
         ?? mTxtDocto
      ELSE
         ?? Right( mTxtDocto, 10 ) // Nota 18
      ENDIF
   ELSE
      ?? Pad( jpfinan->fiDocAux, 10 )
   ENDIF
   ?? StrZero( Day( jpfinan->fiDatVen ), 2 ) + StrZero( Month( jpfinan->fiDatVen ), 2 ) + StrZero( Year( jpfinan->fiDatVen ) - 2000, 2 )
   ?? StrZero( mValor * 100, 13 )
   ?? "341"
   ?? StrZero( 0, 5 ) // Nota 9 - Agencia cobradora
// Alterado em 14-12-2011 pra todos, pra permitir protestar
//   IF "CORDEIRO" $ AppEmpresaApelido() .OR. "CARBOLUB" $ AppEmpresaApelido() .OR. "MARINGA" $ AppEmpresaApelido()
      ?? "01" // Cordeiro - Duplicata Mercantil
//   ELSE
//      ?? "99" // Especie de Docto Diversos - Nota 10
//   ENDIF
   ?? "N"  // Aceite
   ?? StrZero( Day( jpfinan->fiDatEmi ), 2 ) + StrZero( Month( jpfinan->fiDatEmi ), 2 ) + StrZero( Year( jpfinan->fiDatEmi ) - 2000, 2 )
   IF ( "CORDEIRO" $ AppEmpresaApelido() .OR. "CARBOLUB" $ AppEmpresaApelido() ) .AND. jpfinan->fiCliFor == jpfinan->fiSacado
      ?? "43" // SUJEITO A PROTESTO SE NÃO FOR PAGO NO VENCIMENTO
   ELSE
      ?? "  " // Instrucao Nota 11 - mensagens
   ENDIF
   ?? "  " // Instrucao Nota 11 - mensagens
   ?? StrZero( mValor * mTxJuros / 30, 13 )
   ?? "      " // Data limite pra desconto
   ?? StrZero( 0, 13 ) // Desconto a ser concedido - nota 13
   ?? StrZero( 0, 13 ) // IOF recolhido - nota 14
   ?? StrZero( 0, 13 ) // Abatimento concedido - nota 13
   IF Val( jpfinan->fiSacado ) == 0
      Encontra( jpfinan->fiClifor, "jpcadas", "numlan" )
   ELSE
      Encontra( jpfinan->fiSacado, "jpcadas", "numlan" )
   ENDIF
   mCnpj := SoNumeros( jpcadas->cdCnpj )
   IF Len( mCnpj ) <= 11
      ?? "01"
   ELSE
      ?? "02" // 01=CPF 02=CNPJ
   ENDIF
   ?? StrZero( Val( mCnpj ), 14 )
   ?? Pad( jpcadas->cdNome, 30 )
   ?? Space(10) // Nota 15
   ?? Pad( Trim( jpcadas->cdEndCob ) + " " + Trim( jpcadas->cdNumCob ) + " " + Trim( jpcadas->cdComCob ), 40 )
   ?? Pad( jpcadas->cdBaiCob, 12 )
   ?? StrZero( Val( SoNumeros( jpcadas->cdCepCob ) ), 8 )
   ?? Pad( jpcadas->cdCidCob, 15 )
   ?? jpcadas->cdUfCob
   Encontra( jpfinan->fiCliFor, "jpcadas", "numlan" )
   IF jpfinan->fiCliFor == jpfinan->fiSacado
      ?? Space(30)
   ELSE
      ?? Pad( jpcadas->cdNome, 30 )
   ENDIF
   ?? Space(4)
   ?? StrZero( Day( jpfinan->fiDatVen ), 2 ) + StrZero( Month( jpfinan->fiDatVen ), 2 ) + StrZero( Year( jpfinan->fiDatVen ) - 2000, 2 ) // Data de mora
   ?? StrZero( 0, 2 ) // Qtd.Dias - nota 11
   ?? Space(1)
   ?? StrZero( mQtRegs, 6 )
   ?

   // Mensagens adicionais

//   mQtRegs += 1
//   ?? "5"
//   ?? Space(350)
//   ?? Pad( "Apos vencto, www.itau.com.br/boletos", 40 ) // maximo 40
//   ?? Space(3)
//   ?? StrZero( mQtRegs, 6 )
//   ?

ENDCASE
mQtRegs += 1
SET ALTERNATE OFF
SET CONSOLE ON

RETURN NIL
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18014
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

BOLETOS? Não tem problemas, estas ferramentas vão te ajudar

Mensagempor JoséQuintas » 30 Out 2016 15:16

Talvez mais interessante se deixasse igual fiz no Bradesco.

   IF ::cBancoNumero == "237"
      IF Len( ::Cnab400 ) == 0
         ::Cnab400 := { "", "" }
         //----- registro inicial ---
         /*     */ cTxt := ""
         /* 001 */ cTxt += "0"                                // Fixo: 0=Registro inicial
         /* 002 */ cTxt += "1"                                // Fixo: ID Remessa
         /* 003 */ cTxt += "REMESSA"                          // Fixo: Decricao
         /* 010 */ cTxt += "01"                               // Fixo: Codigo de Servico
         /* 012 */ cTxt += Pad( "COBRANCA", 15 )              // Fixo: Literal Servico
         /* 027 */ cTxt += Padl( ::cBancoIDBeneficiario, 20, "0" )  // Codigo da empresa no Bradesco
         /* 047 */ cTxt += Pad( ::acBeneficiario[ 2 ], 30 )   // Nome da empresa
         /* 077 */ cTxt += ::cBancoNumero                     // Fixo: Codigo do Banco
         /* 080 */ cTxt += Pad( "BRADESCO", 15 )              // Fixo: Nome do Banco
         /* 095 */ cTxt += StrZero( Day( Date() ), 2 ) + StrZero( Month( Date() ), 2 ) + Right( StrZero( Year( Date() ), 4 ), 2 ) // Data da gravacao Dia/Mes/Ano, 2 digitos de cada
         /* 101 */ cTxt += Space(8)                           // Espacos
         /* 109 */ cTxt += "MX"                               // MX - olhar pag. 16, não tem nada
         /* 111 */ cTxt += StrZero( ::nSequencial, 7 )        // Num. sequencial de remessa - olhar pag. 16 // nao pode pular, reiniciar ou zerar
         /* 118 */ cTxt += Space(277)                         // Espacos
         /* 395 */ cTxt += StrZero( 1, 6 )                    // Num. sequencial de registro
         ::cnab400[ 1 ] := cTxt
      ENDIF
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18014
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Anterior Próximo



Retornar para Contribuições, Dicas e Tutoriais

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 19 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro