Haroldo, bom dia.
Tentei mas ainda não consegui.
Abaixo coloquei as observações.
Se poder agradeço que dê uma olhada para continuar me orientando. (sei que somos todos atarefados, então sem problemas com tempo).
===Arquivo criado na Bibliotecas antigas
ted_core_lib.php (Script)
<?php
function ted_ini ()
{
sc_lookup(ds, "Select 1"); //preparando a aplicação para ambientar a conexão padrão é pré-criar código para uso do sc_lookup.
sc_include_library("prj", "CabecalhoRodape", "CabRodPadraoDepolWeb.php", true, true);//aqui a chamada para a biblioteca nova
$_obj = new Ted_Core($this->Ini->nm_db_master,$this->Db); // aqui estou instanciado a classe e passando as duas conexões (master e padrão) é só um exemplo de como usar duas conexões em bancos de dados diferentes.
return $_obj;
}
?>
==================
===Arquivo criado na Nova Biblioteca
ted_core_class.php (Nova Biblioteca)
<?php
class Ted_Core
{
public $db_conn = "";
public $db_rs = "";
public $db_sql_rs = "";
public $db_error= "";
public $db_last_result= "";
function __construct($_conn="")
{
$this->db_conn=$_conn;
}
public function lookup($_sql,$_conn="conn_16dh") //Nome da conexão atual
{
$hd=$_conn;
if ($rx = $hd->Execute($_sql))
{
$this-> db_handle = $hd ;
$_return = $rx->fields;
$rx->Close();
}
elseif (isset($GLOBALS["NM_ERRO_IBASE"]) && $GLOBALS["NM_ERRO_IBASE"] != 1)
{
$_return = false;
$this->db_error = $hd->ErrorMsg();
}
return $_return;
}
public function exec_sql($_sql,$_conn="conn_16dh")
{
$hd=$_conn=="conn_16dh";
if ($this->db_sql_rs = $hd->Execute($_sql))
{ $this->db_last_result = $hd ; }
elseif (isset($GLOBALS["NM_ERRO_IBASE"]) && $GLOBALS["NM_ERRO_IBASE"] != 1)
{
$this->db_sql_rs = false;
$this->db_error = $hd->ErrorMsg();
}
return $this->db_sql_rs;
}
public function loop_recursivo($array,$nivel=0,$histKey="")
{
$out = '';
//$bar = $separador;
$nivel++;
$out .= '
';
foreach($array as $key => $value)
{
if(is_array($value))
{
$marcador = ($histKey) ? $histKey.'→' : '';
$out .= '- ' . $marcador .''. $key.'' .$this->loop_recursivo($value,$nivel,$marcador.$key).'
';
}else{
$out .= '- ' . $key .': ' .$value . '
';
}
}
$out .= '
';
return $out;
}
public function exemplo_ler_cliente () //aqui faço as leituras...
{
echo "
Usando lookup:";
$ds=$this->lookup("Select idDelegacia, Secretaria from tbDelegacia");
echo "
Conexão Cliente:".$ds[0]." ".$ds[1];
while (!$rs->EOF)
{
echo "
".$rs->fields["idDelegacia"]." email:".$rs->fields["Secretaria"];
$rs->MoveNext();
}
echo "
registros processados".$this->db_last_result->Affected_Rows() ;
$rs->Close();
}
?>
=========================
===Arquivo criado na Nova Biblioteca e que foi incluída no Script
CadRodPadraoDepolWeb.php (Nova Biblioteca)
<?php
class MYPDF extends TCPDF
{
//Cabe�alho
public function Header()
{
/*====================================================
**Caminho para a logomarca da PCPE usada no cabe�alho
**==================================================*/
//$LogoPCPE = K_PATH_IMAGES.'/depolweb/_lib/file/img/FotoDiversas/bandeira.jpg';
//$this->Image($LogoPCPE, 10, 10, 15, '', 'JPG', '', 'T', false, 300, '', false, false, 0, false, false, false);
// Tipo de fonte
$this->SetFont('helvetica', 'B', 20);
// T�tulo
$this->Cell(0, 15, "$Secretaria", 0, false, 'C', 0, '', 0, false, 'M', 'M');//$Secretaria = variável que deve receber o valor do campo
}
//Rodap�
public function Footer()
{
// Posicionado a 15mm do final da p�gina
$this->SetY(-15);
// Tipo de fonte
$this->SetFont('helvetica', 'I', 8);
// N�mero da p�gina
$this->Cell(0, 10, 'Page '.$this->getAliasNumPage().'/'.$this->getAliasNbPages(), 0, false, 'C', 0, '', 0, false, 'T', 'M');
}
}
?>
* aqui não sei o porque mas toda vez que salvo este arquivo esta tag aparece. Não sei se é um problema.
===================================
===App Blank
blank.php
sc_include_lib(“tcpdf”);
$obj = ted_ini(); //instanciando a classe e preparando as conexões e códigos internos
$obj->exemplo_ler_cliente(); // <<-- Executando uma função da classe que faz a leitura numa tabela.
// create new PDF document
$pdf = new MYPDF(PDF_PAGE_ORIENTATION, PDF_UNIT, PDF_PAGE_FORMAT, true, ‘UTF-8’, false);
// set document information
$pdf->SetCreator(‘PDF_CREATOR’);
$pdf->SetAuthor(‘Walter Florêncio’);
$pdf->SetTitle(‘TCPDF Example 003’);
$pdf->SetSubject(‘TCPDF Tutorial’);
$pdf->SetKeywords(‘TCPDF, PDF, example, test, guide’);
// set default header data
$pdf->SetHeaderData(PDF_HEADER_LOGO, PDF_HEADER_LOGO_WIDTH, PDF_HEADER_TITLE, PDF_HEADER_STRING);
// set header and footer fonts
$pdf->setHeaderFont(Array(PDF_FONT_NAME_MAIN, ‘’, PDF_FONT_SIZE_MAIN));
$pdf->setFooterFont(Array(PDF_FONT_NAME_DATA, ‘’, PDF_FONT_SIZE_DATA));
// set default monospaced font
$pdf->SetDefaultMonospacedFont(PDF_FONT_MONOSPACED);
// set margins
$pdf->SetMargins(PDF_MARGIN_LEFT, PDF_MARGIN_TOP, PDF_MARGIN_RIGHT);
$pdf->SetHeaderMargin(PDF_MARGIN_HEADER);
$pdf->SetFooterMargin(PDF_MARGIN_FOOTER);
// set auto page breaks
$pdf->SetAutoPageBreak(TRUE, PDF_MARGIN_BOTTOM);
// set image scale factor
$pdf->setImageScale(PDF_IMAGE_SCALE_RATIO);
// set some language-dependent strings (optional)
if (@file_exists(dirname(FILE).’/lang/eng.php’)) {
require_once(dirname(FILE).’/lang/eng.php’);
$pdf->setLanguageArray($l);
}
// ---------------------------------------------------------
// set font
$pdf->SetFont(‘times’, ‘BI’, 12);
// add a page
$pdf->AddPage();
// set some text to print
// Instanciation of inherited class
for($i=1;$i<=40;$i++)
$pdf->Cell(0,10,‘Imprimindo Linha e Página’.$i,0,1);
// ---------------------------------------------------------
//Close and output PDF document
$pdf->Output(‘example_003.pdf’, ‘I’);
//============================================================+
// END OF FILE
//============================================================+
==============
Notas:
Minha intenção é que o cabeçalho e o rodapé tenham os campos oriundos da tabela tbDelegacia.
A tbDelegacia tem apenas um registro com os dados da delegacia, mas como a conexão é dinâmica, dependendo do usuário muda a delegacia.
E aí me surgiu outra dúvida. Na função Lookup a conexão está = conn_16dh, mas quando eu estiver em outra conexão?
Agradeço a ajuda.
