MRBoleto pronto para o uso.

[rochinha]

Amiguinho,

Seu link esta chamando a hbzebra.lib ou hbzebra.o?

[executiva_rpr]

Boa tarde,

Onde posso encontrar a hbzebra.lib ?

[rochinha]

Amiguinhos,

Olhe novamente no primeiro post deste tópico. Acrescentei os links necessários.

[JoséQuintas]

Não entendo porque a classe usa nomes como banco___________________
Variável de classe é só dela, não vai conflitar com nada de nenhum sistema.
Deveria ter sido usado cBanco ou nBanco.

[Paulo Pereira]

Estou começando a usar.. compilei ok, achei show gerar em PDF,

Mas no homologacao banco do Brasil deu problema:

Porque para carteiras que nao sao a 16 e 18. sao colocados zeros a esquerda 00000017 ?
Dessa forma a variaval campo livre fica com mais de 25 posicoes,
e quando vai fazer a linha digitavel, vai pegar zeros na posicao da carteira.
aAux[ 3 ] := SubStr( ::Campo_Livre__, 16, 10 )

Tirei e vou tentar homologar...

Código: Selecionar todos

Method Banco_001() Class MR_Boleto

   ::Banco_Dv_____ := "9"
   ::Banco_Nome___ := "Banco do Brasil"

   ::Prefixo______ := PADL( ALLTRIM( Left( ::Prefixo______, 6 ) ), 6, '0' )
   ::Prefixo_DV___ := PADL( ALLTRIM( Left( ::Prefixo_DV___, 1 ) ), 1, '0' )

   IF Left( ::Carteira_____, 2 ) $ "16|18|SR"

      ::Carteira_____ := PADL( ALLTRIM( Left( ::Carteira_____, 2 ) ), 2, '0' )

      ::Conta________ := PADL( ALLTRIM( Left( ::Conta________, 8 ) ), 8, '0' )

      ::NossoNumero__ := ::Prefixo______ + ::Prefixo_DV___+ PADL( ALLTRIM( Left( ::NossoNumero__, 10 ) ), 10, '0' )
      ::NossoNumer_DV := ::DC_Mod11( ::Banco________, 9, .F. , ::NossoNumero__, .F. )

      ::NossoNumero_z := ::NossoNumero__ + '-' + ::NossoNumer_DV

           //*-----------------------------------------------------------------*
           // Indicacao do NN com 17 Posicoes Livres
           //*-----------------------------------------------------------------*
      ::Campo_Livre__:= REPL( '0', 6 ) + ::NossoNumero__ + ::Carteira_____

   ELSE

      // ::Carteira_____ := PADL( ALLTRIM( Left( ::Carteira_____, 2 ) ), 8, '0' )   ???

      ::Carteira_____ := PADL( ALLTRIM( Left( ::Carteira_____, 2 ) ), 2, '0' )


      ::Conta________ := PADL( ALLTRIM( Left( ::Conta________, 8 ) ), 8, '0' )

      ::NossoNumero__ := ::Prefixo______ + PADL( ALLTRIM( Left( ::NossoNumero__, 5 ) ), 5, '0' )
      ::NossoNumer_DV := ::DC_Mod11( ::Banco________, 9, .F., ::NossoNumero__, .F. )

      ::NossoNumero_z := Tran( ::NossoNumero__, "@R 99.999.999.999" ) + "-" + ::NossoNumer_DV
      ::Campo_Livre__:= ::NossoNumero__ + ::Banco_Agencia + ::Conta________ + ::Carteira_____

   ENDIF

[Paulo Pereira]

ok
foi validado no Banco do Brasil, tirando os zeros da cateira..17
Tb foi passado que o endereco do cedente é obrigatorio

[JAIR PINHO]

Ola pessoal estou trabalhando nesta classe para homologar na caixa econômica federal. gostaria de saber o que houve com o tópico MR-Boleto onde baixei os códigos fontes.

Desenvolvi em HMG -IDE criei um formulário para entrada de dados e escolha do banco depois gerar o boleto

[Toledo]

O Tópico inicial do MRBoleto:

MR-Boleto: Boleto Bancario em Harbour ( hbHPdf e hbZebra )

Abraços,

[sygecom]

Está em DICAS:
viewtopic.php?f=43&t=13571&p=78663&hilit=boleto#p78663

https://github.com/MRonaldo/MR-Tools/downloads

[JAIR PINHO]

Ola Pessoal estive olhando o tópico em dicas mas esta trancado onde postaremos sobre este MR-Boleto seria neste Tópico

[sygecom]

Nada lhe impede de abrir um novo tópico sobre suas duvidas.

[formiga]

Amigos, estou perguntando no mesmo tópico para centralizar as dúvidas.

Seguinte, compilei o MRBoleto no meu sistema, uso o xHarbour. Compilou ok, mas quando abro o aplicativo, solicita uma dll que não está no pacote e não encontrei em lugar algum:
HARBOUR-32-BCC.DLL

Existe uma lib com esse nome harbour-32-bcc.lib que está sendo linkada.

Onde encontrar a DLL ? ou o motivo do erro é outro?


[]´s

[rochinha]

Amiguinho,

Esta DLL pode ser encontrada dentro da pasta BIN de seu Harbour, pelo menos no Harbour 3.2.

[formiga]

Rochinha

tenho o harbour 3.2 e 1.1 em nenhum tem a dll.

Vc tem um link para baixa-la?

Fiz um teste em um programa a parte, somente usando harbour, funcionou sem problemas.

O caso é que preciso usar em um sistema maior, que é compilado em xHarbour. Com o xHarbour é que pede essa dll.


[]´s

[rochinha]

Amiguinhos,

download