Quantcast
Channel: Últimos conteúdos
Viewing all articles
Browse latest Browse all 14190

Geração de Código de barras - FPDF

$
0
0

 Boa noite ,

estou usando este script apresentou o codigo de barras no PDF porém errado.
O que eu fiz foi trocar  a varialvel   valor_barras   pela texto, isso porque esta

primeira vinha sempre zerada e nao achei a origem dela.

 

Aguem pode da um apoio?

 

Penso que nao entendi  onde é carreagda a variável  valor_barras.


======================================================================
Boa noite ,

 

Aguem pode da um apoio?

 

Penso que nao entendi  onde é carreagda a variável  valor_barras.

 

Sub fbarcode(Valor)
               Dim f, f1, f2, i
            Dim texto
            Dim p11
            p11=11
            Const fino = 0.4
            Const largo = 0.7
            Dim BarCodes(99)
    if isempty(BarCodes(0)) then
        BarCodes(0) = "00110"
        BarCodes(1) = "10001"
        BarCodes(2) = "01001"
        BarCodes(3) = "11000"
        BarCodes(4) = "00101"
        BarCodes(5) = "10100"
        BarCodes(6) = "01100"
        BarCodes(7) = "00011"
        BarCodes(8) = "10010"
        BarCodes(9) = "01010"
        
        for f1 = 9 to 0 step -1
            for f2 = 9 to 0 Step -1
                f = f1 * 10 + f2
                texto = ""
                for i = 1 To 5
                    texto = texto & mid(BarCodes(f1), i, 1) + mid(BarCodes(f2), i, 1)
                next
                BarCodes(f) = texto
                
            next
        next
        pdf.Text "30","225",texto
    end if

    xPos=55
    p201=230
    pdf.rect xPos, p201, fino, p11, "F"
    xPos = xPos + fino + fino
    pdf.rect xPos, p201, fino, p11, "F"
    xpos = xpos + fino + fino
    
    
    For n = 1 To Len(valor_barras) Step 2
        cASC = cint(Mid(valor_barras, n, 2))
        For i = 1 To 10 Step 2
            If Mid(BarCodes(cASC), i, 1) = "0" Then
                F = fino
            Else
                F = largo
            End If
            
            
            pdf.rect xpos, p201, F, p11, "F"
            xpos = xpos + F
            If Mid(BarCodes(cASC), i + 1, 1) = "0" Then
                xpos = xpos + fino
            Else
                xpos = xpos + largo
            End If
            
        Next
    Next
    pdf.Text "30","235",xpos
    
    pdf.rect xpos, p201, largo, p11, "F"
    xpos = xpos + fino + largo
    pdf.rect xpos, p201, fino, p11, "F"
    
    
end Sub
 

valor_barras  substituído por valor.

 

Gerou o código de barras porem nas condições descritas abaixo.

 

outra observação inseri o valor  sendo:

"905224210               00020"

  Nro rastreamento     Nro Palete

 

 foi impresso  :2421000020

 

 

 Se for possível dar uma apoio Agradeço
 


Viewing all articles
Browse latest Browse all 14190

Trending Articles