cabron Posted July 13, 2011 Report Share Posted July 13, 2011 Preciso saber o comando que indica a libha em q estou!!vou utilizar a linha q estou aquiif (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); }<?phprequire('../relatorios/fpdf.php');//configuração da classeinclude("config.php");//configuração do bancoinclude '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();?> Quote Link to comment Share on other sites More sharing options...
0 tiago31 Posted July 14, 2011 Report Share Posted July 14, 2011 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; ?> Quote Link to comment Share on other sites More sharing options...
Question
cabron
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);
}
Link to comment
Share on other sites
1 answer to this question
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.