function list2labels($doc_name = 'labels.pdf', $label_type = '5160', $include_title = false, $include_company = false)
{
$labels = new PDF_Label($label_type);
$labels->Open();
$entry_count = 0;
$dataset = $udm->getData();
foreach ($dataset as $currentrow) {
$new_entry = '';
$new_entry = $currentrow['Name'] . "\n";
if ($currentrow['occupation'] > '' && $include_title) {
$new_entry .= $currentrow['occupation'] . "\n";
}
if ($currentrow['Company'] > '' && $include_company) {
$new_entry .= $currentrow['Company'] . "\n";
}
$new_entry .= $currentrow['Street'] . "\n";
if ($currentrow['Street_2'] > '') {
$new_entry .= $currentrow['Street_2'] . "\n";
}
if ($currentrow['Street_2'] > '') {
$new_entry .= $currentrow['Street_3'] . "\n";
}
$new_entry .= $currentrow['City'] . ", ";
$new_entry .= $currentrow['State'] . " ";
$new_entry .= $currentrow['Zip'];
if ($currentrow['Country'] > '' && $currentrow['Country'] != "USA" && $currentrow['Country'] != "U.S.A." && substr($currentrow['Country'], 0, 13) != "United States") {
$new_entry .= "\n" . $currentrow['Country'];
}
if ($currentrow['Street'] != '' && $currentrow['Zip'] != '') {
$entry_count++;
$myzip = $labels->ParseZipCode($currentrow['Zip']);
if ($myzip != "") {
$validzips++;
}
$labels->Add_PDF_Label($new_entry, $myzip);
}
}
$new_entry = $validzips . " labels printed with bar codes\n{$entry_count} total labels printed";
$labels->Add_PDF_Label($new_entry);
$labels->Output($doc_name, 'I');
}
case 'oracle':
case 'oci8':
// Modificado SGD 18-Septiembre-2007
// Modificado SGD 18-Septiembre-2007
case 'postgres':
$tmp_var = "a.RADI_NUME_SAL";
break;
}
// Modificado SGD 18-Septiembre-2007
$query = "SELECT \r\n\t\ta.SGD_FENV_CODIGO,\r\n\t\t'', " . $db->conn->substr . "({$tmp_var},5,10) AS REGISTRO,\r\n\t\ta.SGD_RENV_NOMBRE AS DESTINATARIO,\r\n\t\ta.SGD_RENV_DESTINO AS DESTINO,\r\n\t\ta.SGD_RENV_PESO AS PESO,\r\n\t\ta.SGD_RENV_VALOR AS VALOR_PORTE,\r\n\t\ta.SGD_RENV_CERTIFICADO AS CERTIFICADO,\r\n\t\t'' AS VALOR_ASEGURADO,\r\n\t\t'' AS TASA_DE_SEGURO,\r\n\t\t'' AS VALOR_REEMBOLSABLE,\r\n\t\t'' AS AVISO_DE_LLEGADA,\r\n\t\t'' AS SERVICIOS_ESPECIALES,\r\n\t\ta.SGD_RENV_VALOR AS VALOR_TOTAL,\r\n\t\ta.SGD_RENV_DIR AS DIRECCION,\r\n\t\ta.SGD_RENV_TEL AS TELEFONO,\r\n\t\ta.SGD_RENV_MAIL AS MAIL,\r\n\t\ta.SGD_RENV_DEPTO AS DEPARTAMENTO,\r\n\t\ta.SGD_RENV_DESTINO AS MUNICIPIO\r\n\t\tFROM SGD_RENV_REGENVIO a\r\n\t\tWHERE SGD_FENV_CODIGO = 105 AND a.SGD_RENV_VALOR != 0 AND {$where_fecha}";
$rs = $db->query($query);
unset($tmp_var);
$i = 0;
//$pdf = new PDF_Label('8600',1,4);
$pdf = new PDF_Label(array('name' => 'perso1', 'paper-size' => 'letter', 'marginLeft' => 2, 'marginTop' => 0, 'NX' => 1, 'NY' => 4, 'SpaceX' => 0, 'SpaceY' => 0.6, 'width' => 210, 'height' => 70, 'metric' => 'mm', 'font-size' => 10), 1, 1);
$pdf->Open();
//$pdf->AddPage();
// while($result1=ora_fetch_into($cursor,$row, ORA_FETCHINTO_NULLS|ORA_FETCHINTO_ASSOC))
$fecha_adm = date("Y m d");
$oficina_org = "Morato";
$cad = ' ';
$nombre_r = str_pad($db->entidad_largo, 63, $cad) . str_pad($db->entidad_tel, 8, ' ', STR_PAD_RIGHT);
$direccion_r = str_pad($db->entidad_dir, 63, $cad) . " BOGOTA ";
while (!$rs->EOF) {
$i++;
$radicado_sal = $rs->fields["REGISTRO"];
$nombre_d = $rs->fields["DESTINATARIO"];
$telefono_d = $rs->fields["TELEFONO"];
$direccion_d = $rs->fields["DIRECCION"];
$ciudad_d = $rs->fields["DESTINO"];
$departamento_d = $rs->fields["DEPARTAMENTO"];
