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 Giovanird
      Olá amigos!
      Tenha a seguinte estrutura no banco MySQL
      COD   |   PONTOX  |  PONTOY  |  ATLETAX       |  ATLETAY
      1         |   0               |  1               |  Maria              |  João
      2         |   2               |  0               |  João               |  Maria
      3         |   0               |  2               |  Maria              |  João
      4         |   7               |  5               |  Maria              |  João
      5         |   0               |  3               |  João               |  Maria
      6         |   2               |  1               |  João               |  Maria
      7         |   0               |  6               |  Maria              |  João
      8         |   4               |  0               |  João               |  Maria
       
      Preciso de ajuda para somar quantos pontos fez o atleta João nos últimos 5 torneios (COD 8, 7, 6, 5 e 4)  Há momento que o João jogou em X e outro momento em Y.
      Abaixo segue meu Select, onde a soma dos pontos deve ser 17.
       
      nomeatleta = "João"
      Set soma= banco.execute("SELECT sum(PONTOX ) AS somax,  sum(PONTOY ) AS somay FROM (select cod, pontox, pontoy, atletax, atletay  from torneios where (atletax like '"&nomeatleta&"' or atletay like '"&nomeatleta&"') order by cod desc limit 5) AS temp")
       
    • By thiago009
      Fiz um site simples, contém um formulário de contato com o objetivo de salvar os dados preenchidos num banco do access, como estou aprendendo falaram que era melhor começar criando um banco no access, mas não consegui fazer com que o formulário salve lá.
      Criei um código ASP para salvar os dados do formulário mas preciso de ajuda para conseguir 
      Coloquei o print dos códigos.
      Alguém pode me ajudar a resolver esse problema?
       
      <!DOCTYPE html> <html lang="pt-br"> <head> <meta charset="utf-8"> <meta charset="iso-8859-1" /> <link rel="stylesheet" type="text/css" href="css/estiloscontato.css"> <title>História da Informática</title> </head> <div class="menu"> <div class="collapse navbar-collapse navbar-right" id="myNavbar"> <ul class="nav navbar-nav"> <a href="index.html" target="principal">Home</a> <a href="historia.html" target="principal">História</a> <a href="evolucao.html" target="principal">Evolução</a> <a href="desvantagens.html" target="principal">Desvantagens</a> <a href="educacao.html" target="principal">Na educação</a> <a href="contato.html" target="principal">Contato</a> </ul> </div> </div> <div class="texto"> <body class="bg-color"> <!-- Estilos específicos de Seção --> <div id="conteudo" class="grupo" align=center> <p id="negrito"> <h1>Contato</h1> </p> <br> <p id="negrito">Entre em contato preenchendo o formulário abaixo:</p> <p name="contato"> <form name="f1" action="Contato" method="post"> <br> <fieldset> <br> <div class="campo"> <label for="nome">Nome</label> <input type="text" name="nome" id="nome"> </div> <br> <div class="campo"> <label for="email">E-mail</label> <input type="text" name="email" id="email"> <div> <br> <br><br> <!-- A PARTIR DESSA LINHA SÃO OS ""RADIO BUTTON"" --> <label>Departamento:</label> &nbsp; <label class="radio"> <input type="radio" name="departamento" value="suporte"> Suporte </label> <label class="radio"> <input type="radio" name="departamento" value="comercial"> Comercial </label> <label class="radio"> <input type="radio" name="departamento" value="conteudo"> Conteúdo </label> <div class="campo"> <p id="negrito"> </p> </div> <br> <!-- A PARTIR DESSA LINHA É O ""COMBO BOX"" --> <div class="assunto"> <p id="negrito"> <label for="assunto">Assunto<abbr title=!preenchimento obrigatório">*</abbr></label> <br> <select name="assunto"> <option>-- Selecione -- </option> <option value="duvidas">Dúvidas</option> <option value="solicitacoes">Solicitações</option> <option value="informacoes">Informações</option> <option value="outros">Outros</option> </select> </p> </div> <br><br> <!-- A PARTIR DESSA LINHA É O ""TEXTAREA"" --> <!-- <p id="negrito"> --> <div class="mensagem"> <p id="negrito"> <label id= "texto">Mensagem<abbr title=!preenchimento obrigatório">*</abbr></label> </p> <textarea name= "mensagem" rows="15" cols="80"></textarea> </div> <br> <br> <div class="botao"> <INPUT TYPE=SUBMIT VALUE="Enviar" align="center">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<INPUT TYPE=RESET VALUE="Apagar" align="center"> </div> </div> </p> </form> </body> <div class="bg-color"> </div> <br> </fieldset> </form> <footer class="rodape"> <small>Copyright © 2020</small> </footer> </body> </html> ESSE É O CÓDIGO ASP <% Dim objConn, strCaminho, nome, email, departamento, assunto, mensagem nome = Request.Form("nome") email = Request.Form("email") departamento = Request.Form("departamento") assunto = Request.Form("assunto") mensagem = Request.Form("mensagem") strCaminho = Server.MapPath("banco.mdb") Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strCaminho & ";" objConn.execute("Insert Into contato (nome, email, departamento, assunto, mensagem) Values ('"&nome, email, departamento, assunto, mensagem&"')") response.Write("Cadastrado com sucesso") objConn.Close %>  

    • By marcelocardoso
      olá colegas.

      depois de tanto quebrar a cabeça com o RECAPTCHA do google, v3.
      não estou conseguindo resgatar o ID do INPUT hidden que guarda o TOKEN!!!!

      Segue código
      HTML
       
      <!DOCTYPE html> <html lang="pt_BR"> <head> <meta charset="utf-8"> <meta content="text/html; charset=utf-8" http-equiv="Content-Type"> <meta content="ie=edge" http-equiv="X-UA-Compatible"> <title>Google Recaptcha - v3</title> <!-- STYLES CSS --> <link rel="stylesheet" type="text/css" href="https://cdn.jsdelivr.net/npm/bootstrap@4.3.1/dist/css/bootstrap.min.css"> <link rel="stylesheet" type="text/css" href="https://cdn.jsdelivr.net/npm/inputmask@3.3.11/css/inputmask.min.css"> <!-- STYLES CSS --> <!-- SCRIPTS JS --> <script type="text/javascript" src="https://cdn.jsdelivr.net/npm/jquery/dist/jquery.min.js"></script> <script type="text/javascript" src="https://cdn.jsdelivr.net/npm/jquery-form@4.2.2/dist/jquery.form.min.js"></script> <script type="text/javascript" src="https://cdn.jsdelivr.net/npm/jquery-validation@1.19.1/dist/jquery.validate.min.js"></script> <script type="text/javascript" src="https://cdn.jsdelivr.net/npm/jquery-validation@1.19.1/dist/localization/messages_pt_BR.min.js"></script> <script type="text/javascript" src="https://cdn.jsdelivr.net/npm/jquery-validation@1.19.1/dist/additional-methods.min.js"></script> <!-- SCRIPTS JS --> <!-- SCRIPTS RECAPTCHA - SITE KEY --> <script src="https://www.google.com/recaptcha/api.js?render=6LesQewUAAAAAIWQKRKk19yob6G8hx3LEoYXybIC"></script> <!-- SCRIPTS RECAPTCHA - SITE KEY --> <style type="text/css"> *:focus { outline: none !important; } html, body { height: 100%; width: 100%; } body { color: darkgrey; margin: 60px 0px; -webkit-font-smoothing: antialiased; -moz-osx-font-smoothing: grayscale; } /* google captcha - hidden na tela */ .grecaptcha-badge { display: none !important; } .valid-class { color: #006400; padding-left: 12px; padding-top: 3px; font-size: 15px; display: block; } .error-class { color: #e33d00; padding-left: 12px; padding-top: 3px; font-size: 15px; display: block; } .loading { position: fixed; left: 0px; top: 0px; margin: 0px; width: 100%; height: 100%; display: block; z-index: 999999; opacity: 0.92; -moz-opacity: 0.92; filter: alpha(opacity=98); background-color: #00224b; background-image: url("img/loading.gif"); background-repeat: no-repeat; background-position: 50% 50%; text-align: center; overflow: hidden; font-weight: bold; font-size: 25px; color: white; padding-top: 25%; } </style> </head> <body> <!-- code | formulario --> <section class="container-fluid"> <h1 class="text-center">RECAPTCHA</h1> <h4 class="text-center">GOOGLE v3</h4> <div class="col-xl-12 col-lg-12 col-md-12 col-sm-12 col-xs-12"> <form id="frm_form_contato" method="post" action="inc/google-form.asp"> <div class="form-group"> <div class="col-xl-12 col-lg-12 col-md-12 col-sm-12 col-xs-12 mb-2"> <label class="control-label" for="campo_nome">Nome</label> <input type="text" id="campo_nome" name="campo_nome" class="form-control" autocomplete="name" placeholder="Digite seu nome"> </div> <div class="col-xl-12 col-lg-12 col-md-12 col-sm-12 col-xs-12 mb-2"> <label class="control-label" for="campo_email">Email</label> <input type="text" id="campo_email" name="campo_email" class="form-control" autocomplete="email" placeholder="Digite seu e-mail"> </div> <div class="col-xl-12 col-lg-12 col-md-12 col-sm-12 col-xs-12 mb-2"> <label class="control-label" for="campo_mensagem">Mensagem</label> <textarea type="text" id="campo_mensagem" name="campo_mensagem" class="form-control" placeholder="Descreva sua mensagem"></textarea> </div> <div class="col-lg-12 col-md-12 col-sm-12 col-xs-12 mt-4"> <div id="contato_retorno"></div> <button id="btn-form" type="submit" class="btn btn-block btn-md btn-success">ENVIAR</button> </div> </div> <input type="hidden" id="token"> </form> </div> <div id="contato_carregando"></div> </section> <!-- code | formulario --> <!-- GOOGLE reCAPTCHA --> <script type="text/javascript"> "use strict"; //formulario de validacao $("#frm_form_contato").validate({ errorClass: "error-class", validClass: "valid-class", onkeyup: function (element) { this.element(element); }, onfocusout: function (element) { this.element(element); }, rules: { campo_nome: { required: true, minlength: 5, maxlength: 50 }, campo_email: { required: true, minlength: 5, email: true }, campo_mensagem: { required: true, minlength: 5, maxlength: 5000 } }, submitHandler: function (form) { grecaptcha.ready(function () { grecaptcha.execute('6LesQewUAAAAAIWQKRKk19yob6G8hx3LEoYXybIC', { action: 'homepage' }).then(function (token) { $("input#token").attr({ "value": "" + token + "" }); }); }); // A) resgatar variaveis (uma por uma) var form_url = $(this).attr("action"); var form_method = $(this).attr("method"); var form_token = $(this).find('input[name="token"]').val(); var form_nome = $(this).find('input[name="campo_nome"]').val(); var form_email = $(this).find('input[name="campo_email"]').val(); var form_telefone = $(this).find('input[name="campo_telefone"]').val(); var form_mensagem = $(this).find('input[name="campo_mensagem"]').val(); // B) resgatar variaveis (tudo de uma vez) // var form_data = $("#frm_form_contato").serializeArray(); var form_data = { 'campo_nome': $("#campo_nome").val(), 'campo_email': $("#campo_email").val(), 'campo_mensagem': $("#campo_mensagem").val(), 'campo_token': $("#token").val(), }; // ENVIAR FORM com POST // $("form").submit(function (e) { // e.preventDefault(); // var $form = $(this); // $.post($form.attr("action"), $form.serialize()).then(function () {}); // }); //ENVIAR FORM com AJAX $.ajax({ url: $("#frm_form_contato").attr("action"), type: $("#frm_form_contato").attr("method"), data: JSON.stringify(form_data), dataType: 'json', contentType: 'application/json; utf-8', //loading antes do sucesso e do envio beforeSend: function () { $("#btn-form").prop("disabled", false).text('Enviando ...').fadeIn(); $("#contato_carregando").html("<div class='loading'></div>").fadeIn(500); }, //se houver sucesso success: function (response) { setTimeout(function () { $("#contato_carregando").fadeOut(250); }, 3950); setTimeout(function () { $("#contato_retorno").html("<div class='valida_a_certo'>" + response + "</div>").fadeIn(500); }, 4000); setTimeout(function () { $("#contato_retorno").fadeOut(500); $("#btn-form").prop("disabled", false).text('Enviado'); $(form)[0].reset(); }, 10000); }, //se houver sucesso, finaliza complete: function (response) { $('body').fadeTo(4000, '1'); }, //se houver erro error: function (response) { setTimeout(function () { $("#contato_retorno").html("<div class='valida_a_erro'>" + response + "</div>").fadeIn(500); }, 4000); setTimeout(function () { $("#contato_retorno").fadeOut(500); $(form)[0].reset(); }, 10000); }, }); return false; } }); </script> <!-- SCRIPTS RODAPE --> <script type="text/javascript" src="https://cdn.jsdelivr.net/npm/bootstrap@4.3.1/dist/js/bootstrap.min.js"></script> <script type="text/javascript" src="https://cdn.jsdelivr.net/npm/inputmask@3.3.11/dist/jquery.inputmask.bundle.js"></script> <!-- SCRIPTS RODAPE --> </body> </html> BACKEND - ASP
      não estou conseguindo repassar o TOKEN para cá, já tentei de várias formas... 
      mas não consigo nem com REQUEST.QUERYSTRING, REQUEST e nem REQUEST.FORM.

       
      <% Response.LCID = 1033 'USA LCID IF Request.ServerVariables("SERVER_NAME") <> Request.ServerVariables("SERVER_NAME") THEN Response.Write "ACESSO RESTRITO!" ELSE G_TOKEN = Request.Form("campo_token") 'google token G_KEY_URL = "https://www.google.com/recaptcha/api/siteverify?secret=" 'google url G_KEY_SITE = "" 'google chave do site G_KEY_SECRET = "" 'google chave secreta IF Request.ServerVariables("REQUEST_METHOD") = "POST" THEN SET objXML = Server.CreateObject("MSXML2.ServerXMLHTTP") objXML.Open "GET", ""& G_KEY_URL & G_KEY_SECRET &"&response=" & G_TOKEN & "", false objXML.Send IF InStr(objXML.ResponseText, "TRUE") THEN campo_nome = Request.Form("campo_nome") campo_email = Request.Form("campo_email") campo_mensagem = Replace(Request.Form("campo_mensagem"), Chr(13), "<br>") cdoSERVER = "mail.teste.com.br" cdoORIGEM = "teste@teste.com.br" cdoPASS = "senha" cdoPORT = 587 cdoTIMEOUT = 120 cdoUSING = 2 cdoAUT = 1 cdoSSL = 0 cdoDE = campo_nome &" <"& campo_email &">" cdoPARA = "teste@teste.com.br" cdoASSUNTO = "teste - contato" cdoTEXT = "Envio de mensagem usando CDOSYS" SET objCDOSYSmail = Server.CreateObject("cdo.message") SET objCDOSYScon = Server.CreateObject("cdo.configuration") objCDOSYScon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = cdoPORT objCDOSYScon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoUSING objCDOSYScon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoAUT objCDOSYScon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = cdoTIMEOUT objCDOSYScon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = cdoSSL objCDOSYScon.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = cdoSERVER objCDOSYScon.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = cdoORIGEM objCDOSYScon.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = cdoPASS objCDOSYScon.Fields.Update SET objCDOSYSmail.Configuration = objCDOSYScon objCDOSYSmail.From = cdoORIGEM objCDOSYSmail.To = cdoPARA objCDOSYSmail.Subject = cdoASSUNTO objCDOSYSmail.TextBody = cdoTEXT ON ERROR RESUME NEXT IF objCDOSYSmail.SEND = "" THEN Response.Write "Mensagem enviada com sucesso!" ELSE IF NOT ERR.NUMBER = "0" THEN Response.Write "Não foi possível enviar a mensagem!" Response.Write "OCORREU UM ERRO: " & Err.Number & " | " & Err.Description Err.Clear() END IF END IF ON ERROR GOTO 0 SET objCDOSYSmail = Nothing SET objCDOSYScon = Nothing ELSE Response.Write "recaptcha errado!" END IF SET objXML = Nothing END IF END IF %> Quem tiver tempo, e quiser dar uma olhada, só falta isso para finalizar o código, PASSAR o bendito parametro que não consigo do input para o ASP.
      No demais, agradeço.
      Até....
       
    • By helkton
      oi galera estou criando um sistema para gerenciar certificado de uma escola de cursos ja fiz as condições, pra bloquear conforme as horas aulas, conforme pagamentos, agora estou preso no certificado fPDF
      consegui desenhar a primeira pagina mais o certificado precisará imprimir algumas informações no verso tbm como desenhar a segunda pagina do certificado??
      ja AddPage(), ele adiciona a nova pagina mais como desenhar nesta pagina?? atualmente consegui fazer assim, desenho os 2 pdf separado, tipo clico em um botãoFrente e pego as info da frente do certificado e outro para imprimir apenas a parte do verso rsss
      como juntar tudo e imprimir a frente e o verso
      //***** PDF *****// $pdf = new AlphaPDF(); // Orientação Landing Portraid Page /// $pdf->AddPage('L'); $pdf->SetLineWidth(1.5); // desenha a imagem do certificado $pdf->Image('certificadoBM.jpg',0,0,295); // opacidade total $pdf->SetAlpha(1); // Mostrar texto no topo $pdf->SetFont('TwClassified', '', 15); // Tipo de fonte e tamanho $pdf->SetXY(109,46); //Parte chata onde tem que ficar ajustando a posição X e Y $pdf->MultiCell(265, 10, $texto1, '', 'L', 0); // Tamanho width e height e posição //Nome_do_Aluno $pdf->SetFont('Arial', '', 30); // Tipo de fonte e tamanho $pdf->SetXY(20,90); //Parte chata onde tem que ficar ajustando a posição X e Y $pdf->MultiCell(265, 10, $nomeAluno, '', 'C', 0); // Tamanho width e height e posição // Mostrar o corpo $pdf->SetFont('Arial', '', 15); // Tipo de fonte e tamanho $pdf->SetXY(20,110); //Parte chata onde tem que ficar ajustando a posição X e Y $pdf->MultiCell(265, 10, $texto2, '', 'C', 0); // Tamanho width e height e posição // Mostrar a data no final $pdf->SetFont('Arial', '', 15); // Tipo de fonte e tamanho $pdf->SetXY(20,172); //Parte chata onde tem que ficar ajustando a posição X e Y $pdf->MultiCell(165, 10, $texto3, '', 'L', 0); // Tamanho width e height e posição $pdfdoc = $pdf->Output('', 'S'); // $certificado="arquivos/$nomeAluno.pdf"; //atribui a variável $certificado com o caminho e o nome do arquivo que será salvo (vai usar o CPF digitado pelo usuário como nome de arquivo) // $pdf->Output($certificado,'F'); //Salva o certificado no servidor (verifique se a pasta "arquivos" tem a permissão necessária) // Utilizando esse script provavelmente o certificado ficara salvo em www.seusite.com.br/gerar_certificado/arquivos/999.999.999-99.pdf (o 999 representa o CPF digitado pelo usuário) $pdf->Output(); // Mostrar o certificado na tela do navegador  
    • By Renison
      Bom dia, sou novato tanto no fórum, como nesta area, seguinte, estou com um pouco de dificuldade em gerar um PDF, na realidade, chega a gerar O PDF, mas nao coloca o resultado, segue a baixo PRINT e o codigo.
       
      ps1: tenho um sistema em PHP 5.4, sistema de clinica, estou querendo gerar relatório de glosa.
       
      <? include("frmvalidarcookie.php"); $idfatu=0; $data1=''; $data2=''; if (isset($_POST["data1"])) $data1=$_POST["data1"]; if (isset($_POST["data2"])) $data2=$_POST["data2"]; if (isset($_POST["idfatu"])) $idfatu=$_POST["idfatu"]; $sql="select b.diaexame,a.idresultados, a.idexame, e.exame as nm_exame, a.quant, a.vr_glosa, a.pa_sa, a.quant*a.pa_sa as pr_total, a.glosado, a.glosado_usu, a.glosado_dat, c.convenio as nm_convenio,p.paciente as nm_paciente,g.id as nm_id from lab_itemresultados a left join lab_resultados b on b.idresultado=a.idresultados left join lab_convenios c on c.idconvenio=b.idconvenio left join lab_exames e on e.idexame=a.idexame left join lab_pacientes p on p.idpaciente=b.idpaciente left join fatu00 f on f.id=b.idlote left join fatu02 g on g.id=f.idfatu02 where a.glosado='S' and g.id=$idfatu order by p.paciente "; echo $sql; require_once("../fpdf/fpdf.php"); class PDF extends FPDF { function Header(){ $this->SetLeftMargin(30); $this->Image('LOGO.jpg' , 72 ,12, 55 , 58,'JPG',''); $this->SetFont('Arial','',12); $this->Cell(0,10,"EMPRESA",0,1,'C'); $this->SetFont('Arial','',8); $this->Cell(0,12," Mossoró/RN",0,1,'C'); $this->SetFont('Arial','BI',10); $this->Ln(10); $this->Cell(0,14,$this->title2,0,1,'C'); $this->Ln(10); //cabeçalho da tabela $this->SetFont('arial','B',8); $this->SetFillColor(212,208,200); $this->Cell(50,15,'Data',1,0,"C",1); $this->Cell(40,15,'OS',1,0,"C",1); $this->Cell(150,15,'Convenio',1,0,"C",1); $this->Cell(150,15,'Paciente',1,0,"C",1); $this->Cell(150,15,'Exame',1,0,"C",1); $this->Cell(30,15,'Quant',1,0,"C",1); $this->Cell(40,15,'Pr.Unit',1,0,"C",1); $this->Cell(50,15,'Total',1,0,"C",1); $this->Cell(50,15,'Glosa em',1,0,"C",1); $this->Cell(50,15,'Vr. Glosa',1,0,"C",1); $this->Cell(30,15,'Fatura',1,1,"C",1); } function Footer() { $this->SetY(-20); //quanto menor,mais distante da base da folha $this->SetFont('Arial','I',8); $this->Cell(0,10,'Pagina '.$this->PageNo(),0,0,'C'); } } $pdf= new PDF("L","pt","A4"); //$pdf->title=$usuario; $pdf->title2='GLOSAS - '.$dt1.' - '.$dt2; $pdf->SetLeftMargin(30); $pdf->SetAutoPageBreak(true,32); $pdf->Open(); $pdf->AddPage(); $pdf->SetFont('Arial','',8); //$pdf->MultiCell(200,20,$sql,1,'L',false); $r=ibase_query($sql); $i=0; $t1=0; $t2=0; while($row=ibase_fetch_assoc($r)){ $pdf->Cell(50,15,dataBR($row->DIAEXAME),1,0,"C"); $pdf->Cell(40,15,$row->IDRESULTADOS,1,0,"R"); $pdf->Cell(150,15,substr($row->NM_CONVENIO,0,25),1,0,"L"); $pdf->Cell(150,15,substr($row->NM_PACIENTE,0,25),1,0,"L"); $pdf->Cell(150,15,substr($row->NM_EXAME,0,25),1,0,"L"); $pdf->Cell(30,15,tran0($row->QUANT),1,0,"C"); $pdf->Cell(40,15,tran($row->PA_SA),1,0,"R"); $pdf->Cell(50,15,tran($row->PR_TOTAL),1,0,"R"); $pdf->Cell(50,15,dataBR($row->GLOSADO_DAT),1,0,"C"); $pdf->Cell(50,15,tran($row->VR_GLOSA),1,0,"R"); $pdf->Cell(30,15,$row->NM_ID,1,1,"R"); $i++; $t1=$t1+$row->PR_TOTAL; $t2=$t2+$row->VR_GLOSA; } $pdf->SetFont('Arial','B',8); $pdf->SetFillColor(212,208,200); $pdf->Cell(610,15,"Total: ".$i,1,0,"L",1); $pdf->Cell(50,15,tran($t1),1,0,"R",1); $pdf->Cell(50,15,'',1,0,"R",1); $pdf->Cell(50,15,tran($t2),1,1,"R",1); ob_start(); $pdf->Output("arquivo.pdf","I"); ?>  


×

Important Information

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