[sqlwin] RES: [sqlwin] [Sqlwin] - Código de barras

Wed, 29 Mar 2006 06:40:46 -0800

Claudio,
 
  Eu uso esta dll aqui na minha empresa, a unica documentação que recebi esta abaixo, o arquivo Instruções para utilizar o CodBarra.dll é a forma como eu utilizo a dll.
 
Espero ter ajudado.
 
Sesconetto.
 
 

[Suinf.Multas] 
 
 -----Mensagem original-----
De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]Em nome de Claudio Paulo
Enviada em: segunda-feira, 27 de março de 2006 07:34
Para: sqlwin@virtualand.net
Assunto: [sqlwin] [Sqlwin] - Código de barras

Ilustres,

Sei que este assunto já foi aqui abordado até a exaustão, mas é a primeira vez que eu me vejo confrontado com isto.

Não sei se alguém já alguma vez fez uso da dll “CodBarra.dll” no seu aplicativo!!!!

Eu consegui incluí-la com sucesso na minha aplicação, mas quem a fez esqueceu-se de elaborar um manual de usuário para facilitar o uso da mesma, para alguns talvez seja bastante intuitiva ( e até certo ponto é), mas a verdade é que não consigo gerar o código de barra.

Alguém tem alguma palavra a declarar neste assunto?

 

Aguardo ansiosamente pelo feedback.

 

Cláudio Francisco Sebastião Paulo ( mailto:[EMAIL PROTECTED] ) 
Técnico-Analista de Sistemas de Informação 
( Information Systems Technician-Analyst)
Tel.      + 244.2.32 53 50 - Extensão 142      

SISTEC - Sistemas, Tecnologia e Indústria, S.A.
( http://www.sistec.co.ao ; http://www.ti.sistec.co.ao ; http://www.netangola.com )

Av. Che Guevara, 189/195 Luanda, Angola
Tel.      + 244.2.32 53 50 / 44 87 00 / (091) 50 08 11 
Fax.     + 244.2.32 53 72

 

 

!!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 SalMessageBox( "Ocorreu erro na geração da 
imagem do codigo de barra(leitora óptica).", "Atencao", MB_Ok )
                                Call SalQuit()
                If objCodBarra.Create( )
                        Set CodigoBarras = psCdBarraLeitora
                        Call objCodBarra.PropSetCodigoBarras( CodigoBarras )
                        Call objCodBarra.PropGetCodigoBarras( 
CodigoBarrasRetorno )
                        ! *
                        Set AlturaBarras = 50
                        Call objCodBarra.PropSetAlturaBarras( AlturaBarras )
                        Call objCodBarra.PropGetAlturaBarras( 
AlturaBarrasRetorno )
                        ! *
                        Set CaminhoArquivo = gsCaminhoCodBarraOptico || 
"\\CodBarraNitEp.jpg"
                        ! Set CaminhoArquivo = "C:\\SGM_ANTT\\CodBarraNitEp.jpg"
                        Call objCodBarra.PropSetCaminhoArquivo( CaminhoArquivo )
                        Call objCodBarra.PropGetCaminhoArquivo( 
CaminhoArquivoRetorno )
                        ! *
                        Call objCodBarra.GeraGIFCodigoBarras( Arq )
                        Call SalFileGetDateTime( gsCaminhoCodBarraOptico || 
"\\CodBarraNitEp.jpg", ldtDataArquivo )
                        If ldtDataArquivo < DtCorrente
                                Call SalMessageBox( "Ocorreu erro na geração da 
imagem do codigo de barra(leitora óptica).", "Atencao", MB_Ok )
                                Call SalQuit()
                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 )
                ! If SalFileOpen( hFile, "C:\\SGM_ANTT\\CodBarraNitEp.jpg", 
OF_Binary | OF_Read )
                        Set nBytesLidos = SalFileRead( hFile, lsIMG2, 32000000 )
                        Call SalFileClose( hFile )
                        Call SalPicSetImage( ImagemDll, lsIMG2, 7 )
                Call SalPicGetString( ImagemDll, PIC_FormatObject, lsIMG2 )
                ! Set gnTemp =  SalPicGetString( ImagemDll, PIC_FormatBitmap, 
tblArqExcessoPesoImpressao.CdBarraLeitora  )
                Set gsTemp = gsTemp

Na tabela onde são carregados os dados para impressão:

!!CB!! 173
On SAM_ReportFetchNext
        Set wnMin1 = wnMin1 + 1
        Call SalTblSetContext( hWndForm, wnMin1 )
        If wnMin1 <= wnMax1
                If gnCoFaseDocumento = 2 Or gnCoFaseDocumento = 3
                        Call fGeraCodBarraGRU(hWndForm.CdBarraLeitora)
                        If SalFileOpen( hFile, gsCaminhoCodBarraOptico || 
"\\CodBarraNitEp.jpg", OF_Binary | OF_Read )
                                Set nBytesLidos = SalFileRead( hFile, lsIMG, 
32000000 )
                                Call SalFileClose( hFile )
                                Call SalPicSetImage( ImagemJpg, lsIMG, 7 )
                        ! If SalFileOpen( hFile, 
"C:\\SGM_ANTT\\CodBarraNitEp.jpg", OF_Binary | OF_Read )
                                Set nBytesLidos = SalFileRead( hFile, lsIMG, 
32000000 )
                                Call SalFileClose( hFile )
                                Call SalPicSetImage( ImagemJpg, lsIMG, 7 )
                        Call SalPicGetString( ImagemJpg, PIC_FormatObject, 
lsIMG )
                        Set gnTemp =  SalReportSetObjectVar( hWndRel, 
"CdBarraLeitora", lsIMG )
                Set gsTemp = gsTemp
                
Em Visual Basic basta adicionar a DLL como referência no Projeto e instanciar o 
objeto conforme o exemplo abaixo, em Centura eu não sei como funciona

Exemplo de Codigo em VB:

   Dim Arq As String
    Dim I As Integer
    Dim objCodBarra As CodBarras
    Set objCodBarra = New CodBarras
   
    If Text1.Text = "" Then Exit Sub
    
    Picture1.Picture = LoadPicture()
    
    
    objCodBarra.CodigoBarras = Text1.Text
    objCodBarra.AlturaBarras = 50
    objCodBarra.CaminhoArquivo = App.Path
    
    call objCodBarra.GeraGIFCodigoBarras(Arq)
    
    If Left(Arq, 4) <> "Erro" Then
    
        I = InStrRev(Arq, "\")       // retorna a pos. do caracter "\" em Arq
    
        Text2.Text = Mid(Arq, 1, I) // Faz Text2.Text = da 1ªpos.até a pos. I+1 
de Arq
        Text3.Text = Mid(Arq, I + 1)// Faz Text3.Text = da 1ªpos.até a pos. I+1 
de Arq
    
        Picture1.Picture = LoadPicture(Arq) // Carrega A pic. Arq em 
Picture1.Picture
        'Kill Arq
        
    Else
    
        MsgBox Arq
        
    End If

Responder a