Quantcast
Viewing all articles
Browse latest Browse all 1214

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

Olá... estou gerando um boleto usando a biblioteca FPDF - para ASP, etretanto cheguei a um ponto em que não consegui avanaço.

Geração de Cod de barras para boleto bancário - como mostrar no fpdf - sempre que chamo a variavel e atribuio seu valor.... o fpdf imprime "undefined"

 

gerando código

 

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
	end if

    xPos=14
    p201=233
    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.rect xpos, p201, largo, p11, "F"
    xpos = xpos + fino + largo
    pdf.rect xpos, p201, fino, p11, "F"

end Sub

 

pdf.SetXY 10,260
pdf.Cell 190,20,fbarcode(valor),1,0,"R"

mostrando valor


Viewing all articles
Browse latest Browse all 1214

Trending Articles