Jump to content
Fórum Script Brasil
  • 0

Problema com fpdf e pdf


cabron

Question

Preciso saber o comando que indica a libha em q estou!!

vou utilizar a linha q estou aqui

if (is_null($resultado1['RESULT']))

if ($tp <$ta+$soma[count($CONTADOR)])

if ($resultado1['TIPO']==T'){

$pdf->AliasNbPages();

$pdf->AddPage();//add uma página do pdf

$pdf->Ln(5);

}

<?php

require('../relatorios/fpdf.php');//configuração da classe

include("config.php");//configuração do banco

include 'cabecalho.php';

$cod_lab=$_POST['escolha];

//////////consulta do cabecalho////////////////////////////

$sql=mysql_query("select * from pacexa where PROTOCOLO='$cod_lab'");

$resulta=mysql_fetch_assoc($sql);

$pdf=new PDF("P","mm");//cria o pdf

$pdf->AliasNbPages();

$pdf->AddPage();//add uma página do pdf

$pdf->Ln(5);

$pdf->SetFont("Arial","b","10");

$pdf->Cell(20,1,"Paciente:");

$pdf->GetX();

$pdf->SetFont("Arial","b","10");

$pdf->Cell(15,1,$resulta['NO_PACIENTE']);

$pdf->SetX(170);

$pdf->SetFont("Arial","b","10");

$pdf->Cell(15,1,"Data:");

$pdf->SetFont("Arial","b","10");

$data=explode("-",$resulta['IMP_DATA']);

$pdf->SetX(181);

$pdf->Cell(15,1,$data[2]."/".$data[1]."/".$data[0]);

$pdf->Ln(5);

$pdf->SetFont("Arial","b","10");

$pdf->Cell(20,1,"Médico:");

$pdf->SetFont("Arial","b","10");

$pdf->Cell(15,1,$resulta['MEDICO']);

$pdf->SetX(168);

$pdf->SetFont("Arial","b","10");

$pdf->Cell(15,1,"Idade:");

$pdf->SetX(181);

$pdf->SetFont("Arial","b","10");

$pdf->Cell(15,1,$resulta['IDADE']);

$pdf->SetX(190);

$pdf->Cell(15,1,"ANOS");

$pdf->Ln(5);

$pdf->SetFont("Arial","b","10");

$pdf->Cell(20,1,"Convênio:");

$pdf->SetFont("Arial","B","10");

$pdf->Cell(15,1,$resulta[CONVENIO]);

$pdf->SetX(169);

$pdf->SetFont("Arial","b","10");

$pdf->Cell(15,1,"Sexo:");

$pdf->SetX(181);

$pdf->SetFont("Arial","B","10");

if ($resulta['SEXO_PACIENTE']==M'){

$pdf->Cell(15,1,"Masculino");

}else{

$pdf->Cell(15,1,"Feminino");

}

$pdf->Ln(5);

$pdf->SetFont("Arial","B","8");

$pdf->Cell(20,1,"Emitido em:");

$pdf->Cell(20,1,$data[2]."/".$data[1]."/".$data[0]);

$pdf->Cell(15,1,$resulta['IMP_HORA]);

$pdf->Ln(5);

$pdf->SetFont("Arial","B","12");

$sqli=mysql_query("select * from pacexa where PROTOCOLO='$cod_lab'");

while ($resultado=mysql_fetch_assoc($sqli)){

////////////////consulta dos resultados/////////////////////////////

$sql1=mysql_query("select TEXTO,RESULT,UNIDADE,UNIFOR,

NORMAL,TIPO from resitem where CONTADOR='$resultado[CONTADOR]'");

$resultado1=mysql_fetch_assoc($sql1);

$verifica=mysql_query("select count(CONTADOR)from resitem where CONTADOR=$resultado[CONTADOR]'");

$soma=mysql_fetch_assoc($verifica);

$pdf->SetFont("Arial","B","12");

$pdf->Cell(200,1,$resultado['NOME],0,0,'C');

$pdf->Ln(10);

$pdf->SetFont("Arial","b","8");

while ($resultado1=mysql_fetch_assoc($sql1)){

if ($resultado1['UNIDADE']!="){

$posicao='R';

}else{

$posicao="L";

}

$pdf->SetX(5);

$pdf->Cell(20,1,$resultado1['TEXTO]);

$pdf->SetX(65);

$pdf->Cell(15,1,$resultado1['RESULT'],0,0,$posicao);

$pdf->SetX(80);

$pdf->Cell(15,1,$resultado1['UNIDADE']);

$pdf->SetX(110);

$pdf->Cell(15,1,$resultado1['UNIFOR']);

$pdf->SetX(140);

$pdf->Cell(15,1,$resultado1['NORMAL']);

$pdf->Ln(5);

if (is_null($resultado1['RESULT']))

if ($tp <$ta+$soma[count($CONTADOR)])

if ($resultado1['TIPO']=='T'){

$pdf->AliasNbPages();

$pdf->AddPage();//add uma página do pdf

$pdf->Ln(5);

}

}

}

$pdf->output();

?>

Link to comment
Share on other sites

1 answer to this question

Recommended Posts

  • 0

amigao tem um forma de ver txt não sei se funciona com pdf mais vou postar aqui

<? 
//abro o arquivo para leitura 
$arquivo = fopen ("meuarquivo.txt", "r"); 

//inicio uma variavel para levar a conta das linhas e dos caracteres 
$num_linhas = 0; 
$caracteres = 0; 

//faco um loop para percorrer o arquivo linha a linha ate o final do arquivo 
while (!feof ($arquivo)) { 
    //se extraio uma linha do arquivo e não é false 
    if ($linha = fgets($arquivo)){ 
          //acumulo uma na variavel número de linhas 
       $num_linhas++; 
          //acumulo o número de caracteres desta linha 
          $caracteres += strlen($linha); 
    } 
} 
fclose ($arquivo); 
echo "
Linhas: " . $num_linhas; 
echo "
Caracteres: " . $caracteres; 
?>

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.



  • Forum Statistics

    • Total Topics
      152.2k
    • Total Posts
      652k
×
×
  • Create New...