uf_conectar();
$io_msg=new class_mensajes();
$io_dstipodoc=new class_datastore();
$io_fun_sob=new class_funciones_sob();
$io_sql=new class_sql($conn);
$arr=$_SESSION["la_empresa"];
$ls_tipo=$io_fun_sob->uf_obtenertipo();
$ls_criterio="";
if($ls_tipo=="")
{
$li_estcon=1;
$li_estpre=3;
$ls_criterio=" OR estpre='4'";
}
else
{
$li_estcon=1;
$li_estpre=1;
}
$ls_sql=" SELECT codtipdoc,dentipdoc ".
" FROM cxp_documento ".
" WHERE estcon=".$li_estcon."".
" AND estpre=".$li_estpre."$ls_criterio".
" ORDER BY codtipdoc ASC";
$rs_tipodoc=$io_sql->select($ls_sql);
$data=$rs_tipodoc;
if($row=$io_sql->fetch_row($rs_tipodoc))
{
$data=$io_sql->obtener_datos($rs_tipodoc);
$arrcols=array_keys($data);
$totcol=count($arrcols);
$io_dstipodoc->data=$data;
$totrow=$io_dstipodoc->getRowCount("codtipdoc");
print "
";
print "";
print "| Código | ";
print "Denominación | ";
print "
";
for($z=1;$z<=$totrow;$z++)
{
print "";
$ls_codtipdoc =$data["codtipdoc"][$z];
$ls_dentipdoc =$data["dentipdoc"][$z];
print "| ".$ls_codtipdoc." | ";
print "".$ls_dentipdoc." | ";
print "
";
}
print "
";
}
else
{
print "No se han creado Documentos !!!";
}
$io_sql->free_result($rs_tipodoc);
$io_sql->close();
?>