Jump to content
s3c0

Código de Barras FPDF e ASP

Recommended Posts

Prezados amigos,

 

estou precisando de um help.

 

Estou tentando gerar um arquivo em PDF utilizando a Classe FPDF em ASP.

 

Consigo normalmente gerar esse arquivo, porém não estou conseguindo inserir código de barra.

 

Tenho uma função, que estava funcionando em HTML , mas quando executo esse função, ao invés de aparecer as "barras", ele mostra o html.

 

Abaixo a Função para gerar as barras:

 

Function getCodigoBarras(ByVal Numeros)
	Dim F, F1, F2, i, Texto
	Dim arrCodigoBarra(99)
	Dim htmlCodigoBarra
	htmlCodigoBarra = ""
	Const Fino		= 1
	Const Largo		= 3
	Const Altura	= 50
	
	if isempty(arrCodigoBarra(0)) Then
		arrCodigoBarra(0) = "00110"
		arrCodigoBarra(1) = "10001"
		arrCodigoBarra(2) = "01001"
		arrCodigoBarra(3) = "11000"
		arrCodigoBarra(4) = "00101"
		arrCodigoBarra(5) = "10100"
		arrCodigoBarra(6) = "01100"
		arrCodigoBarra(7) = "00011"
		arrCodigoBarra(8) = "10010"
		arrCodigoBarra(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(arrCodigoBarra(F1), i, 1) + Mid(arrCodigoBarra(F2), i, 1)
				Next
				arrCodigoBarra(f) = Texto
			Next
		Next
	End if
 
	'Construindo o código HTML do código de barras
	'Guarda inicial
	htmlCodigoBarra = htmlCodigoBarra & "<img src=arquivos/p.jpg width=" & Fino & " height=" & Altura & " border=0>"
	htmlCodigoBarra = htmlCodigoBarra & "<img src=arquivos/b.jpg width=" & Fino & " height=" & Altura & " border=0>"
	htmlCodigoBarra = htmlCodigoBarra & "<img src=arquivos/p.jpg width=" & Fino & " height=" & Altura & " border=0>"
	htmlCodigoBarra = htmlCodigoBarra & "<img src=arquivos/b.jpg width=" & Fino & " height=" & Altura & " border=0>"
	htmlCodigoBarra = htmlCodigoBarra & "<img"
'Response.Write htmlCodigoBarra
	Texto = Numeros
	if Len(Texto) Mod 2 <> 0 Then Texto = "0" & Texto End if
	'HTML dos dados
	Do While Len(Texto) > 0
		i		= Cint(Left(Texto,2))
		Texto	= Right(Texto, Len(Texto)- 2)
		F		= arrCodigoBarra(i)
		For i = 1 To 10 Step 2
			If Mid(F, i, 1) = "0" Then
				F1 = Fino
			Else
				F1 = Largo
			End If
			
			htmlCodigoBarra = htmlCodigoBarra & " src=arquivos/p.jpg width=" & F1 & " height=" & Altura & " border=0><img"
			
			If mid(F, i + 1, 1) = "0" Then
				F2 = Fino
			Else
				F2 = Largo
			End If
 
			htmlCodigoBarra = htmlCodigoBarra & " src=arquivos/b.jpg width=" & F2 & " height=" & Altura & " border=0><img"
	
		Next
	Loop
	
	'Guarda final
	htmlCodigoBarra = htmlCodigoBarra & " src=arquivos/p.jpg width=" & Largo & " height=" & Altura & " border=0>"
	htmlCodigoBarra = htmlCodigoBarra & "<img src=arquivos/b.jpg width=" & Fino & " height=" & Altura & " border=0>"
	htmlCodigoBarra = htmlCodigoBarra & "<img src=arquivos/p.jpg width=1 height=" & Altura & " border=0>"
	
	'Retornando a função
	getCodigoBarras	= htmlCodigoBarra
End Function

E agora o comando que tentei usar para gerar as barras:

 

pdf.cell "98","100",getCodigoBarras(cep)

e também já tentei assim:

 

pdf.text "98","100",getCodigoBarras(cep)

 

mas ambos os comando retorna o seguinte:

 

<img src=arquivos/p.jpg width=1 height=50 border=0>

 

Alguém teria alguma dica de como posso resolver com essa classe que é gratuita?

 

Pesquisei no site do desenvolvedor, porém eles fornecem apenas exemplos em PHP.

 

Desde já agradeço a atenção de todos!

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

  • Similar Content

    • By s3c0
      Fala galera,
       
      boa tarde. Estou precisar criar uma página para recuperar algumas informações do PC.
       
      Achei um script, porém a informação não é visualizado na página.
       
      Segue script
      <% Set objShell = server.CreateObject("WScript.Shell") Set objExec = objShell.Exec("cmd /c powershell wmic cpu get loadpercentage") Set objStdOut = objExec.StdOut response.write "CPU:<BR>" While Not objStdOut.AtEndOfStream Response.write objStdOut.ReadLine &"<BR>" Wend objExec.StdIn.Close() %> Alguém tem alguma ideia do que está errado?
       
      Agradeço a atenção de todos!
    • By portallweb
      Bom dia, pessoal.
       
      A questão é que eu consigo acessar um endereço "dominio.com/modulo/id/titulo" e ele reescrever para "dominio.com/default.asp?link=artigo&id=123&titulo=teste", mas minha dúvida é se consigo fazer o processo reverso, ou seja, acessar "dominio.com/default.asp?link=artigo&id=123&titulo=teste" e ele alterar para "dominio.com/modulo/id/titulo".
       
      Códigos:
       
      WEB.CONFIG
       
      <?xml version="1.0" encoding="UTF-8"?> <system.webServer>     <rewrite>         <rules>             <rule name="artigo" stopProcessing="true">                 <match url="^artigo/?([a-zA-Z0-9_-]+)?/?([a-zA-Z0-9_-]+)?/?([a-zA-Z0-9_-]+)?$" />                 <conditions>                      <add input="{REQUEST_FILENAME}" matchType="IsFile" negate="true" />                      <add input="{REQUEST_FILENAME}" matchType="IsDirectory" negate="true" />                  </conditions>                 <action type="Rewrite" url="default.asp?link={R:0}&id={R:1}&teste={R:2}" />             </rule>         </rules>     </rewrite> </system.webServer>  
      ASP
       
      <!DOCTYPE html> <html lang="pt-br"> <head> <meta charset="utf-8"/> <title>Teste Isapi Rewrite</title> </head> <body> <p> Teste!<br> link: <%=request("link")%><br> id: <%=request("id")%><br> teste: <%=request("teste")%><br> </p> </body> </html>  
      Desde já agradeço!
    • By fsanchez
      Olá Pessoal!
       
       
      Para auxilio de outros desenvolvedores que estão iniciando com WEBHOOK, segue algumas dicas que obtive desenvolvendo um webhook.
       
      Webhook de forma resumida:
       
      - Webhooks permitem criar integrações que comunicam eventos ocorridos nos documentos da plataforma da Clicksign. Quando um evento ocorre, a Clicksign notifica a sua aplicação imediatamente, através de uma requisição HTTP POST para a URL previamente cadastrada.
       
      Eventos dentro do webhook
      - Quando ocorrerem eventos nos documentos, uma requisição HTTP POST será disparada para a URL previamente cadastrada nas configurações da conta. 
       
      Aqui que vem a dica:
      O servidor cliente faz uma requisição, e aguarda uma resposta da sua aplicação, informando se você recebeu a requisição:
      - Responda a requisição do Webhook com uma resposta HTTP 200 OK. Qualquer resposta fora do intervalo 2XX informará que você não recebeu seu webhook.
       
      exemplo em  ASP :
       
      Response.ContentType = "application/json"
      Response.Status="HTTP/1.1 200 OK"
       
      Depois é só alegria, tratar dados recebidos.
      exemplo:
       
      ATRAVES DO SERVERVARIABLES CONSIGO OBERTER O RESULTADO DA REQUISIÇÃO

      cabecalho_completo = Request.ServerVariables("ALL_HTTP") 
      content_type = Request.ServerVariables("CONTENT_TYPE")
      ...etc...
       
       
      Pra voce conseguir pegar o json, isso em ASP,  será necessario converte - lo em Tipo Byte, depois em String para você se quiser obter alguma tag do JSON para algum tratamento.
      exemplo:
       
      Dim lngBytesCount
      lngBytesCount = Request.TotalBytes
      jsonstring = BytesToStr(Request.BinaryRead(lngBytesCount))

      Function BytesToStr(bytes)
          Dim Stream
          Set Stream = Server.CreateObject("Adodb.Stream")
          Stream.Type = 1 'tipo de dados binarios
              Stream.Open
              Stream.Write bytes
              Stream.Position = 0
          Stream.Type = 2 'tipo de dados texto
              Stream.Charset = "iso-8859-1"
              BytesToStr = Stream.ReadText
              Stream.Close
          Set Stream = Nothing
      End Function

      'Instancio o obejto JSON'
      Set oJSON = New aspJSON
      'Carrego a String JSON
      oJSON.loadJSON(jsonstring)
      'Obter valor simples
      nome_tag = oJSON.data("tagJSON").item("tagJSON")
       
       
       
       
       
    • By fsanchez
      Como Posso recuperar o retorno do JSON que foi enviado via POST de uma requisição Webhook em asp classic.
       
      Precisaria mais ou menos assim:
       
      POST / HTTP/1.1 Host: testecrm.requestcatcher.com Accept: */* Accept-Encoding: gzip, deflate Content-Hmac: sha256=fc9e789996bdd63c0f03dacccb1ef992310d8516d9e8673bce5b1d0825100cda Content-Length: 5363 Content-Type: application/json Event: add_signer User-Agent: rest-client/2.0.2 (linux-musl x86_64) ruby/2.6.3p62 X-Newrelic-Id: VQUDV1JXGwICU1RWBggDUg== X-Newrelic-Transaction: PxQHAAQGDldRU1lWVgUGAFIIFB8EBw8RVU4aUllaUQRXBA5ZBQAHUwIADkNKQQoKA1IAVwAEFTs=  
       
    • By s3c0
      Fala pessoal,
       
      estou com um probleminha com uma integração, onde preciso ler um resposta JSON em ASP Clássico.
       
      a resposta é
       
      {"id":1,"name":"PAC","price":"45.65","custom_price":"45.65","discount":"7.41","currency":"R$","delivery_time":8,"delivery_range":{"min":8,"max":8},"custom_delivery_time":8,"custom_delivery_range":{"min":8,"max":8},"packages":{"price":"45.65","discount":"7.41","format":"box","dimensions":{"height":20,"width":20,"length":20},"weight":"1.00","insurance_value":"1000.00","products":{"id":"teste1","quantity":1}},"additional_services":{"receipt":true,"own_hand":false,"collect":false},"company":{"id":1,"name":"Correios","picture":"https:\/\/sandbox.melhorenvio.com.br\/images\/shipping-companies\/correios.png"}},{"id":2,"name":"EXPRESSO","price":"68.51","custom_price":"68.51","discount":"11.95","currency":"R$","delivery_time":5,"delivery_range":{"min":5,"max":5},"custom_delivery_time":5,"custom_delivery_range":{"min":5,"max":5},"packages":{"price":"68.51","discount":"11.95","format":"box","dimensions":{"height":20,"width":20,"length":20},"weight":"1.00","insurance_value":"1000.00","products":{"id":"teste1","quantity":1}},"additional_services":{"receipt":true,"own_hand":false,"collect":false},"company":{"id":1,"name":"Correios","picture":"https:\/\/sandbox.melhorenvio.com.br\/images\/shipping-companies\/correios.png"}},{"id":3,"name":".Package","price":"33.51","custom_price":"33.51","discount":"15.58","currency":"R$","delivery_time":6,"delivery_range":{"min":5,"max":6},"custom_delivery_time":6,"custom_delivery_range":{"min":5,"max":6},"packages":{"format":"box","dimensions":{"height":20,"width":20,"length":20},"weight":"1.00","insurance_value":"1000.00","products":{"id":"teste1","quantity":1}},"additional_services":{"receipt":true,"own_hand":false,"collect":false},"company":{"id":2,"name":"JadLog","picture":"https:\/\/sandbox.melhorenvio.com.br\/images\/shipping-companies\/jadlog.png"}},{"id":4,"name":".Com","price":"32.63","custom_price":"32.63","discount":"26.48","currency":"R$","delivery_time":5,"delivery_range":{"min":4,"max":5},"custom_delivery_time":5,"custom_delivery_range":{"min":4,"max":5},"packages":{"format":"box","dimensions":{"height":20,"width":20,"length":20},"weight":"1.00","insurance_value":"1000.00","products":{"id":"teste1","quantity":1}},"additional_services":{"receipt":true,"own_hand":false,"collect":false},"company":{"id":2,"name":"JadLog","picture":"https:\/\/sandbox.melhorenvio.com.br\/images\/shipping-companies\/jadlog.png"}}  
      Tenho a seguinte página para receber essa resposta
       
      <!--#include file="includes/json2.asp"--> <% Dim objXML, Result Set objXML = Server.CreateObject("Microsoft.XMLHTTP") On Error Resume Next For i = 1 To 3 objXML.Open "POST" , url, False , "", "" objXML.setRequestHeader "content-type", "application/json" objXML.setRequestHeader "accept", "application/json" objXML.setRequestHeader "authorization", "Bearer " & Bearer objXML.Send variavel_json If Err.Number = 0 Then Result = objXML.ResponseText end if Exit For Next Set objXML = Nothing Result = replace(replace(Result,"[",""),"]","") a=Split(Result,".png""}},") For Each x In a set x = JSON.parse(Result) Response.write(x.name & vbNewline) Response.write(x.price & vbNewline) Response.write(x.delivery_time & vbNewline) Response.write(x.company.name & vbNewline) Next %> O que ocorre, é que imprimi somente a última linha
       
      Print
      .Com 32.63 5 JadLog .Com 32.63 5 JadLog .Com 32.63 5 JadLog .Com 32.63 5 JadLog  
       
      Alguém poderia me dizer onde estou errando?
       
      Agradeço a atenção de todos!
       
      Abraços
×

Important Information

Ao usar o fórum, você concorda com nossos Terms of Use.