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

jerfeson · Março 13, 2014

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

xanburzum · Março 13, 2014

olha este exemplo:

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

jerfeson · Março 13, 2014

olha este exemplo:

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

Pois é tô usando esse, mas não consigo imprimir ele no fpdf ! não sei o que tá havendo !

Até funciona, ele gera do Código de barras, não não no PDF

xanburzum · Março 13, 2014

vc esta testando no servidor ou no localhost ?

jerfeson · Março 14, 2014

vc esta testando no servidor ou no localhost ?

Local Existe algum problema em ser local ?

xanburzum · Março 14, 2014

se o componente não estiver instalado corretamente pode surgir problemas, rode ele no host.

jerfeson · Março 26, 2014

Qual o componente ? - estou me referindo ao FPDF para ASP

xanburzum · Março 26, 2014

O componente FPDF, desinstale e insta-le novamente

jerfeson · Março 26, 2014

O componente FPDF não é um instalador é como no fpdf ele lê a biblioteca. ele gerou o seguinte erro na produção

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'CodigoBarraspdf'

/exec/boleto/boletoPublicoPdf.asp, line 1229

Sendo que a linha 1229 nem está presente no documento

boletoPublicoPdf Não sei mais o que fazer rsrs com esse código de barras

xanburzum · Março 26, 2014

temque instalar ele através do regsvr32.exe

digite assim no executar do Windows (tem que deixar a dll dentro de C:\WINDOWS\system32)

regsvr32.exe C:\WINDOWS\system32\fpdf.dll.

Diegodargos · Outubro 13, 2014

isso aqui foi resolvido??
qual foi a solução?

jerfeson · Outubro 13, 2014

Diego sim, foi resolvido, eu usei o componente FPDF para asp e gerei o código de barras de acordo como exemplo do amigo ali em cima

Antonio Tadeu · Agosto 31, 2015

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)

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

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

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

Arquivado

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

Recommended Posts

jerfeson 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

jerfeson 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

jerfeson 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

jerfeson 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

jerfeson 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

Diegodargos 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

jerfeson 1

Compartilhar este post

Link para o post

Compartilhar em outros sites

Antonio Tadeu 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Saber se todos os produtos de uma consulta estão cadastrados no banco de dados

Abrir url na mesma janela

Sistema de Login

Fóruns

Tempo Real

Informação importante