George,
Em linhas gerais você tem que ter um convênio de preferência com um
banco e os pagamentos serem efetuados pela rede bancária no sistema de
compensação.
Os boletos poderão ser gerados por você mesmo, e o banco devolve um
arquivo com os pagamentos quando estes forem efetuados para atualização do seu
sistema. (ver layout de arquivo de retorno da FEBRABAN)
Segue anexo uma DLL que gera o código de barras "I-2 de 5
intercalado " na máquina onde roda o sistema, e a função dentro do centura para
chamar a DLL.
A DLL deve ser registrada no sistema ==> REGSVR32
C:\WINDOWS\SYSTEM\CODBARRA.DLL
Qualquer dúvida pode enviar o questionamento. Na medida do possível tentarei
lhe ajudar.
Sesconetto.
________________________________
De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Em nome de George Hilton
Enviada em: sexta-feira, 5 de dezembro de 2008 10:36
Para: Centura
Assunto: [sqlwin] gerar boleto bancário
[cid:[email protected]]
Oi pessoal,
eu tenho que fazer uma proposta para implementar no meu sistema uma rotina para
gerar boleto dos bancos bradesco e caixa econômica, alguém que já passou por
isso, pode me dizer quantas horas / homem precisou?
George Hilton
Analista de Sistemas
[EMAIL PROTECTED]<mailto:[EMAIL PROTECTED]>
www.ipqtecnologia.com.br<http://www.ipqtecnologia.com.br>
+55 (71) 3340-3200
[cid:[email protected]]
[cid:[email protected]]
[cid:[email protected]]
________________________________
Confidencialidade: A informação contida nesta mensagem de e-mail, incluindo
quaisquer anexos, é confidencial e está reservada apenas à pessoa ou entidade
para a qual foi endereçada. Se você não é o destinatário ou a pessoa
responsável por encaminhar esta mensagem ao destinatário, você está, por meio
desta, notificado que não deverá rever, retransmitir, imprimir, copiar, usar ou
distribuir esta mensagem de e-mail ou quaisquer anexos. Caso você tenha
recebido esta mensagem por engano, por favor, contate o remetente imediatamente
e apague esta mensagem de seu computador ou de qualquer outro banco de dados.
Muito obrigado.
Confidentiality Notice: The information contained in this email message,
including any attachment, is confidential and is intended only for the person
or entity to which it is addressed. If you are neither the intended recipient
nor the employee or agent responsible for delivering this message to the
intended recipient, you are hereby notified that you may not review,
retransmit, convert to hard copy, copy, use or distribute this email message or
any attachments to it. If you have received this email in error, please contact
the sender immediately and delete this message from any computer or other data
bank. Thank you.
<<inline: image004.gif>>
<<inline: image003.gif>>
<<inline: image002.gif>>
<<inline: image001.gif>>
This attachment was removed.
!!CB!! 278
Function: fGeraCodBarraGRU
Description:
Returns
Parameters
String: psCdBarraLeitora
Static Variables
Local variables
! ! Variaveis do código de barras utilizando a fonte
Recomendado pela GEINF - INICIO -
! ! *
Number: I
String: CodigoBarrasRetorno
String: CaminhoArquivoRetorno
Number: AlturaBarrasRetorno
String: CodigoBarras
String: CaminhoArquivo
Number: AlturaBarras
ComProxyVar: objCodBarra
Class: CodigoBarra_CodBarras
String: Arq
Long String: Arquivo
String: ConteudoDoObjetoPic
! ! *
! ! Variaveis do código de barras utilizando a fonte
Recomendado pela GEINF - FIM -
Date/Time: ldtDataArquivo
Actions
If SalFileOpen( hFile, gsCaminhoCodBarraOptico ||
"\\CodBarraNitEp.jpg", OF_Binary | OF_Exist )
If Not DeleteFileA( gsCaminhoCodBarraOptico ||
"\\CodBarraNitEp.jpg" )
Call MDI_MENU.wMsgErroGeracaoImagemOptica()
! O if acima deve-se apenas para fazer a exclusão do arquivo
CodBarraNitEp.jpg caso ele exista,
se não for encontrado não houve erro.
If objCodBarra.Create( )
Set CodigoBarras = psCdBarraLeitora
If Not objCodBarra.PropSetCodigoBarras( CodigoBarras )
Call MDI_MENU.wMsgErroGeracaoImagemOptica()
Call objCodBarra.PropGetCodigoBarras(
CodigoBarrasRetorno )
! *
Set AlturaBarras = 50
If Not objCodBarra.PropSetAlturaBarras( AlturaBarras )
Call MDI_MENU.wMsgErroGeracaoImagemOptica()
Call objCodBarra.PropGetAlturaBarras(
AlturaBarrasRetorno )
! *
Set CaminhoArquivo = gsCaminhoCodBarraOptico ||
"\\CodBarraNitEp.jpg"
If Not objCodBarra.PropSetCaminhoArquivo(
CaminhoArquivo )
Call MDI_MENU.wMsgErroGeracaoImagemOptica()
Call objCodBarra.PropGetCaminhoArquivo(
CaminhoArquivoRetorno )
! *
If Not objCodBarra.GeraGIFCodigoBarras( Arq )
! Não retorna a substring "Erro" conforme
instruções da DLL quando não consegue gerar o arquivo
da imagem, mas retorna o
caminho informado onde gerar a imagem.
Tambem a variavel Boolean da
DLL não retona FALSE(0) quando não gera a Imagem Óptica
Call MDI_MENU.wMsgErroGeracaoImagemOptica()
If SalStrUpperX( SalStrLeftX( Arq, 4 ) ) = 'ERRO'
Call MDI_MENU.wMsgErroGeracaoImagemOptica()
Call SalFileGetDateTime( gsCaminhoCodBarraOptico ||
"\\CodBarraNitEp.jpg", ldtDataArquivo )
If ldtDataArquivo < DtCorrente
Call MDI_MENU.wMsgErroGeracaoImagemOptica()
Else
Call SalMessageBox( "Problema ao abri a DLL que gera
código de barras.", "Atencao", MB_Ok )
Call SalQuit()
Call objCodBarra.Release( )
If SalFileOpen( hFile, gsCaminhoCodBarraOptico ||
"\\CodBarraNitEp.jpg", OF_Binary | OF_Read )
Set nBytesLidos = SalFileRead( hFile, lsIMG2, 32000000 )
Call SalFileClose( hFile )
Call SalPicSetImage( ImagemDll, lsIMG2, 7 )
Else
Call MDI_MENU.wMsgErroGeracaoImagemOptica()
Call SalPicGetString( ImagemDll, PIC_FormatObject, lsIMG2 )
! Set gnTemp = SalPicGetString( ImagemDll, PIC_FormatBitmap,
tblArqExcessoPesoImpressao.CdBarraLeitora )
Set gsTemp = gsTemp
