Página 1 de 1

Boletos BRADESCO, BB e ITAU no HARBOURBOLETO estao ok?

Enviado: 19 Jun 2012 11:03
por ANDRIL
Galera que usa o HarbourBoleto, como já disseram os fontes do sourceforce estao desatualizados. Gostaria de saber se os boletos que estão no exemplo DEMOBOLETO dos bancos citados no titulo estao ok. Vi no fonte que apenas estes bancos tem um tratamento para o tamanho dos campos AGENCIA, CONTA e NOSSO NUMERO.

Código: Selecionar todos

   if cBanco $ "104/409/399/356"
      oBol:cNossoNumero := "5682571934"
   elseif cBanco = "001"
      // Banco do Brasil - carteira 17/18 - 11 posiþ§es
      if val(cCarteira) = 17 .or. val(cCarteira) = 18
         oBol:cNossoNumero := "56825374192"
      else // demais carteiras - 5 posiþ§es
         oBol:cNossoNumero := "56825"
      endif
   elseif cBanco = "341"
      oBol:cNossoNumero := "98712345"
   elseif cBanco = "237"
      oBol:cNossoNumero := "56825374192"
   endif
E os outros bancos nao precisam desse tipo de verificação? E outras carteiras desses bancos do exemplo acima ficariam com a mesma quantidade de digitos?

Nos testes que fiz algumas vezes os boletos nao ficam com o codigo de barras preenchido totalmente, ai ajusto a largura da agencia/conta e ficam. Só que e seu estiver ajustando errado, pondo numero onde nao tem e tirando de onde tem...

Estou implementando algumas modificacoes (atualizando algumas opcoes ja existentes que nao funcionavam e criando novas, como parametro para retornar as impressoras cadastradas no Windows) e gostaria dessas informacoes, assim que conseguir fechar disponibilizo aqui para download (se for permitido).

Abraços

Boletos BRADESCO, BB e ITAU no HARBOURBOLETO estao ok?

Enviado: 29 Jun 2012 09:29
por BHS
Bom dia

Comecei a usar faz uns meses o Harbourboleto e a versão que baixei de 2008 funciona para o Bradesco, Itau e BB.
Só tem uma coisa na versão 2008 que achei estranho, quando eu crio o bol.ini e coloco o lpromptprint = .t., em vez de a caixa de dialgo de impressão aparecer na frente do meu sistema, ela abre por de tras do sistema, sendo assim, meu sistema fica emcobrindo a caixa de seleção de impressora.

Será que alguem tem uma outra versão sem esse problema ?

Obrigado

Henrique

Boletos BRADESCO, BB e ITAU no HARBOURBOLETO estao ok?

Enviado: 29 Jun 2012 12:16
por Imatech
Olá BHS !


o Harbour Boleto vem com os fontes justamente para poder ser ajustado ao projeto do utilizador...



Podemos lhe ajudar em dificuldades especificas, post exemplo explicito em problemas encontrados...



Abç...

Boletos BRADESCO, BB e ITAU no HARBOURBOLETO estao ok?

Enviado: 29 Jun 2012 13:26
por sygecom
Henrique,
Eu não tenho esse problema da impressora aqui, você por acaso já tentou ver um PREVIEW antes de imprimir para ver se perder o foco.

Boletos BRADESCO, BB e ITAU no HARBOURBOLETO estao ok?

Enviado: 29 Jun 2012 16:04
por BHS
Boa tarde amigos

Leonardo, fiz diversos testes com o hboleto, que foram:

1.
lPrint=.t.
lPreview=.f.
lPromptPrint=.f.

nesse modo o cliente manda direto para a impressora padrão (funcionando perfeitamente)

2.
lPrint=.t.
lPreview=.t.
lPromptPrint=.f.

assim funciona, porem a janela do IE abre por tras do meu sistema, isto é, a minha janela fica a frente do IE.

3.
lPrint=.t.
lPreview=.f.
lPromptPrint=.t.

mesma coisa do problema acima, o a caixa de dialogo para selecionar a impressora, aparece tambem por tras do meu sistema

como disse acima, baixei e estou usando o hboleto compilado na data 10/08/07.
o ultimo de 2010, testei e somente imprime se deixar o preview habilitado, caso contrario não imprime nada.

OBS: não mexi em nada nos prgs do hboleto, somente usando o hboleto ja compilado. Caso alguem tenha um outro ja compilado pra testar ou se alguem puder me ajudar a mexer nos fontes dessa parte ficarei agradecido.

Obrigado

Henrique

Boletos BRADESCO, BB e ITAU no HARBOURBOLETO estao ok?

Enviado: 06 Jul 2012 16:48
por BHS
Consegui resolver

Código: Selecionar todos

METHOD Print( lPreview, lPromptPrint, cPrinter ) CLASS oBoleto

   DEFAULT lPreview     TO ::lPreview ,;
           lPromptPrint TO .T.,;
           cPrinter     TO GetDefaultPrinter()

   IF ::lBoleto .AND. ::nBoletos > 0
      
    IF lPromptPrint = .f.
            PrintHTML(::Destino + ::Nomehtm, cPrinter, lPreview, lPromptPrint, !lPreview )
    ELSE 
      xhbrun('c:\windows\system32\RUNDLL32.EXE c:\windows\system32\MSHTML.DLL,PrintHTML "'+::Destino + ::Nomehtm+'"',.T.,.f.)
    ENDIF

   ENDIF

RETURN Self
Como só uso o windows, dessa maneira a caixa de dialogo para escolher a impressora não abre por tras do sistema.

Henrique

Boletos BRADESCO, BB e ITAU no HARBOURBOLETO estao ok?

Enviado: 08 Jul 2012 14:14
por sygecom
Menos mal que resolveu, só não entendi a causa disso ! é muito estranho aqui não acontecer. Deve ser alguma coisa relacionada a navegador de internet.