コード例 #1
0
ファイル: exe_perf.php プロジェクト: boris1690/arcimed
        if ($nr > 0) {
            $varCodiCons = $results["COD_CONSULTA"][0] + 1;
        } else {
            $varCodiCons = 1;
        }
        funLiberaRecordset($recordset);
        $varFechCons = date("Y-m-d H:i:s");
        $varUserUsua = $_SESSION['User_User'];
        funEjecutaQueryEdit("insert into  " . $aplPrefClie . "_ref_consulta values ('{$varUserUsua}',{$varCodiCons},'{$varFechCons}','Eliminacion Perfil','{$varNombPerf}')");
    }
}
// Selecciona los registros
if ($aplUsuaAdmi == "S") {
    $recordset = funEjecutaQuerySelect("select * from  " . $aplPrefClie . "_ref_perfil {$varOrdeBy}");
} else {
    $recordset = funEjecutaQuerySelect("select * from  " . $aplPrefClie . "_ref_perfil where COD_PERFIL<>0 {$varOrdeBy}");
}
$nr = funDevuelveArregloRecordset($recordset, $results);
if ($nr > 0) {
    // crea la tabla
    print "\n<table id=\"tabDatos\" width=\"100%\" cellpadding=\"2\" cellspacing=\"2\" border=\"0\">";
    // imprime los regsitros
    for ($varI = 0; $varI < $nr; $varI++) {
        // guardo los datos en variables
        $varCodiPerf = trim($results["COD_PERFIL"][$varI]);
        $varNombPerf = trim($results["NOM_PERFIL"][$varI]);
        // despliego los datos
        print "<tr>";
        print "\t<td width=\"97%\" class=\"texttabl\"><a href=\"./frm_perf.php?txtCodiPerf={$varCodiPerf}\" target=\"form\" class=\"linktabl\">{$varNombPerf}</a></td>";
        print "\t<td width=\"3%\" class=\"texttabl\" align=\"center\"><a href=\"./exe_perf.php?txtCodiPerf={$varCodiPerf}&cmdComando=Eliminar\" onClick=\"return confirm('{$aplMensBorrPerf}');\" class=\"linktabl\"><img src=\"../images/btnx.gif\" width=\"12\" height=\"12\" border=0></a></td>";
        print "</tr>";
コード例 #2
0
ファイル: exe_zona.php プロジェクト: boris1690/arcimed
        if ($nr > 0) {
            $varCodiCons = $results["COD_CONSULTA"][0] + 1;
        } else {
            $varCodiCons = 1;
        }
        funLiberaRecordset($recordset);
        // ingresa los valores en la tabla de auditoria
        $varFechCons = date("Y-m-d H:i:s");
        $varUserUsua = $_SESSION['User_User'];
        funEjecutaQueryEdit("insert into " . $aplPrefClie . "_ref_consulta values ('{$varUserUsua}',{$varCodiCons},'{$varFechCons}','Eliminacion Zona KFC','{$varNombZona}')");
        // mensaje de exito
        funLevantaAlert('El registro fue ELIMINADO exitosamente');
    }
}
// Selecciona los registros
$recordset = funEjecutaQuerySelect("select * from " . $aplPrefClie . "_dat_zonakfc order by NOM_ZONA");
$nr = funDevuelveArregloRecordset($recordset, $results);
if ($nr > 0) {
    // crea la tabla
    print "\n<table id=\"tabDatos\" width=\"100%\" cellpadding=\"2\" cellspacing=\"2\" border=\"0\">";
    // imprime los regsitros
    for ($varI = 0; $varI < $nr; $varI++) {
        // guardo los datos en variables
        $varCodiZona = trim($results["COD_ZONA"][$varI]);
        $varNombZona = trim($results["NOM_ZONA"][$varI]);
        $varEstaZona = trim($results["EST_ZONA"][$varI]);
        if ($varEstaZona == "A") {
            $varEstaZonaNomb = "(Activo)";
        } elseif ($varEstaZona == "I") {
            $varEstaZonaNomb = "(Inactivo)";
        }
コード例 #3
0
ファイル: batch_cliente.php プロジェクト: boris1690/arcimed
	<title>.: KFC - BATCH CLIENTES :.</title>
	<script language="javascript" src="./../_funciones/tigra_tables.js"></script>
	<link rel="stylesheet" href="./../_funciones/style.css" type="text/css">
</head>
<body bgcolor="<?php 
echo $aplBackGroundColor;
?>
" topmargin="0" marginheight="0" leftmargin="0" marginwidth="0">

<?php 
// Se conecta al Servidor y la Base de Datos MSSQL
funConnectToDataBaseMS($aplServerMS, $aplUserMS, $aplPasswordMS, $aplDataBaseMS);
// Se conecta al Servidor y la Base de Datos MySQL
funConnectToDataBase($aplServer, $aplUser, $aplPassword, $aplDataBase);
// Selecciona los registros de MySQL
$recordset = funEjecutaQuerySelect("select * from " . $aplPrefClie . "_dat_cliente where EST_CLIENTE='I' order by COD_CLIENTE");
$nr = funDevuelveArregloRecordset($recordset, $results);
if ($nr > 0) {
    // imprime los regsitros
    for ($varI = 0; $varI < $nr; $varI++) {
        // guardo los datos en variables
        $varCodiClie = trim($results["COD_CLIENTE"][$varI]);
        $varCiudClie = trim($results["COD_KFCCIUDAD"][$varI]);
        $varTipoClie = trim($results["TIP_CLIENTE"][$varI]);
        $varTipoIdenClie = trim($results["TIP_IDENCLIENTE"][$varI]);
        $varIdenClie = trim($results["IDE_CLIENTE"][$varI]);
        $varNombClie = trim($results["NOM_CLIENTE"][$varI]);
        $varApelClie = trim($results["APE_CLIENTE"][$varI]);
        $varTeleClie = trim($results["TEL_CLIENTE"][$varI]);
        $varEmaiClie = trim($results["EMA_CLIENTE"][$varI]);
        $varEstaClie = trim($results["EST_CLIENTE"][$varI]);
コード例 #4
0
ファイル: frm_usua.php プロジェクト: boris1690/arcimed
		<tr>
			<td class="label" align="right">Nombre : &nbsp;</td>
			<td colspan="3"><input type="text" name="txtNombUsua" value="<?php 
echo $varNombUsua;
?>
" maxlength="120" style="width:320px;" class="textboxucase" onKeyPress="if ((event.keyCode==34)||(event.keyCode==39)) event.returnValue=false;"></td>
		</tr>
		<tr>
			<td class="label" align="right">Perfil : &nbsp;</td>
			<td colspan="3">
				<select name="cboCodiPerf" style="width:320px;" class="textbox">
				<?php 
if ($aplUsuaAdmi == "S") {
    $recordset = funEjecutaQuerySelect("select COD_PERFIL, NOM_PERFIL from " . $aplPrefClie . "_ref_perfil order by NOM_PERFIL");
} else {
    $recordset = funEjecutaQuerySelect("select COD_PERFIL, NOM_PERFIL from " . $aplPrefClie . "_ref_perfil where COD_PERFIL<>0 order by NOM_PERFIL");
}
$nr = funDevuelveArregloRecordset($recordset, $results);
for ($varI = 0; $varI < $nr; $varI++) {
    if (trim($varCodiPerf) == trim($results["COD_PERFIL"][$varI])) {
        print "\t\t<option value=\"" . $results["COD_PERFIL"][$varI] . "\" selected> " . trim($results["NOM_PERFIL"][$varI]);
    } else {
        print "\t\t<option value=\"" . $results["COD_PERFIL"][$varI] . "\"> " . trim($results["NOM_PERFIL"][$varI]);
    }
}
funLiberaRecordset($recordset);
?>
				</select>
			</td>
		</tr>
		<tr>
コード例 #5
0
ファイル: _frm_cont.php プロジェクト: boris1690/arcimed
<?php 
// Se conecta al Servidor y la Base de Datos
funConnectToDataBase($aplServer, $aplUser, $aplPassword, $aplDataBase);
// Inicializa las $variables
$varCodiInfo = trim($_GET["txtCodiInfo"]);
$varTituInfo = "";
$varSeleFotoInfo = "";
$varSeleVideInfo = "";
$varVideInfo = "";
$varFrasInfo = "";
$varTextInfo = "";
// Hace la consulta si es necesario
if ($varCodiInfo != "") {
    // Datos del Registro
    $recordset = funEjecutaQuerySelect("select * from " . $aplPrefClie . "_dat_infoseccion where COD_SECCION={$varCodiInfo}");
    $nr = funDevuelveArregloRecordset($recordset, $results);
    if ($nr > 0) {
        $varTituInfo = trim($results["NOM_SECCION"][0]);
        $varFrasInfo = trim($results["FRA_SECCION"][0]);
        $varTextInfo = trim($results["TEX_SECCION"][0]);
        $varFotoInfo = trim($results["FOT_SECCION"][0]);
        $varAltfInfo = trim($results["ALT_SECCION"][0]);
        $varVideInfo = trim($results["VID_SECCION"][0]);
    }
    funLiberaRecordset($recordset);
}
print "<input type=\"hidden\" name=\"txtCodiInfo\" value=\"{$varCodiInfo}\">";
?>

<!-- marco principal -->
コード例 #6
0
ファイル: frm_buscarch.php プロジェクト: boris1690/arcimed
	-->
	</script>

</head>
<body bgcolor="#ffffff" topmargin="0" marginheight="0" leftmargin="0" marginwidth="0">
<form action="./exe_arch.php" target="ejec" method="post" enctype="multipart/form-data">

<center>

<?php 
// Se conecta al Servidor y la Base de Datos
funConnectToDataBase($aplServer, $aplUser, $aplPassword, $aplDataBase);
// inicializa las variables
$varRegiInic = 1;
$varRegiFina = $aplNumeRegiPagi;
$recordset = funEjecutaQuerySelect("select COD_ARCHIVO from " . $aplPrefClie . "_dat_archivo");
$nr = funDevuelveArregloRecordset($recordset, $results);
if ($nr > 0) {
    if ($nr < $aplNumeRegiPagi) {
        $varRegiFina = $nr;
    }
} else {
    $varRegiInic = 0;
    $varRegiFina = 0;
}
funLiberaRecordset($recordset);
?>

<!-- Formulario Principal -->
<table cellpadding="4" cellspacing="1" border="0" width="100%" bgcolor="<?php 
echo $aplFormTableBackColor;
コード例 #7
0
ファイル: exe_conslogs.php プロジェクト: boris1690/arcimed
	<script language="javascript" src="./../_funciones/tigra_tables.js"></script>
	<link rel="stylesheet" href="./../_funciones/style.css" type="text/css">
</head>
<body bgcolor="ffffff" topmargin="0" marginheight="0" leftmargin="0" marginwidth="0">

<center>

<?php 
// Se conecta al Servidor y la Base de Datos
funConnectToDataBase($aplServer, $aplUser, $aplPassword, $aplDataBase);
//recupera los parametros del formulario
$varUserUsua = trim($_POST["cboCodiPerf"]);
$varFechDesd = $_POST["txtFechDesdAnio"] . "-" . $_POST["txtFechDesdMes"] . "-" . $_POST["txtFechDesdDia"] . " 00:00:00";
$varFechHast = $_POST["txtFechHastAnio"] . "-" . $_POST["txtFechHastMes"] . "-" . $_POST["txtFechHastDia"] . " 23:59:59";
// Selecciona los registros
$recordset = funEjecutaQuerySelect("select * from " . $aplPrefClie . "_ref_consulta where USR_USUARIO='{$varUserUsua}' and FEC_CONSULTA>='{$varFechDesd}' and FEC_CONSULTA<='{$varFechHast}'");
$nr = funDevuelveArregloRecordset($recordset, $results);
if ($nr > 0) {
    // crea la tabla
    print "\n<table id=\"tabDatos\" width=\"95%\" cellpadding=\"2\" cellspacing=\"1\" border=\"0\">";
    print "\n<tr>";
    print "\n\t<td width=\"25%\" bgcolor=\"{$aplTituTableBackColor}\" align=\"center\" class=\"titutabl\">Usuario</td>";
    print "\n\t<td width=\"25%\" bgcolor=\"{$aplTituTableBackColor}\" align=\"center\" class=\"titutabl\">Fecha</td>";
    print "\n\t<td width=\"25%\" bgcolor=\"{$aplTituTableBackColor}\" align=\"center\" class=\"titutabl\">Acción</td>";
    print "\n\t<td width=\"25%\" bgcolor=\"{$aplTituTableBackColor}\" align=\"center\" class=\"titutabl\">Detalles</td>";
    print "\n</tr>";
    // imprime los registros
    for ($varI = 0; $varI < $nr; $varI++) {
        // guardo los datos en variables
        $varFechCons = trim($results["FEC_CONSULTA"][$varI]);
        $varSeccCons = trim($results["SEC_CONSULTA"][$varI]);
コード例 #8
0
ファイル: registrocliente.php プロジェクト: boris1690/arcimed
    $mail = $_POST['emailregistro'];
    $direccion = $_POST['dirregistro'];
    $passregistro = $_POST['passregistro'];
    $passregistro2 = $_POST['passregistro2'];
    $telefonoregistro = $_POST['telregistro'];
    // Se conecta al Servidor y la Base de Datos
    funConnectToDataBase($aplServer, $aplUser, $aplPassword, $aplDataBase);
    $recordset = funEjecutaQuerySelect("select max(cod_cliente) as cod_cliente from arcimed_dat_cliente");
    $nr = funDevuelveArregloRecordset($recordset, $results);
    if ($nr > 0) {
        $varCodiClie = $results["cod_cliente"][0] + 1;
    } else {
        $varCodiClie = 1;
    }
    funLiberaRecordset($recordset);
    $recordset = funEjecutaQuerySelect("select * from arcimed_dat_cliente where ced_cliente='" . trim($cedula) . "'");
    $nr = funDevuelveArregloRecordset($recordset, $results);
    if ($nr > 0) {
        print "<script>alert('El usuario ya existe');</script>";
    } else {
        if ($passregistro == $passregistro2) {
            funEjecutaQueryEdit("insert into arcimed_dat_cliente (cod_cliente,ced_cliente,nom_cliente,ape_cliente,mai_cliente,dir_cliente,tel_cliente,pas_cliente,est_cliente)\r\n              values ({$varCodiClie},'{$cedula}','{$nombre}','{$apellido}','{$mail}','{$direccion}','{$telefonoregistro}','{$passregistro}','A')");
            print "<script>alert('Se ha registrado con exito.');</script>";
        } else {
            print "<script>alert('La contraseña no es la misma');</script>";
        }
    }
    funLiberaRecordset($recordset);
    // Cierro la conexión
    funCloseConectionToDataBase();
}
コード例 #9
0
ファイル: _frm_cate.php プロジェクト: boris1690/arcimed
?>
" style="border: 1px solid rgb(<?php 
echo $aplFormTableBorderColor;
?>
)">
<tr>
	<td align="center">
		<table cellpadding="1" cellspacing="1" border="0">
         <tr>
			<td class="label" align="right">Ciudad : &nbsp;</td>
			<td class="label">
				<select name="cboCiudCate" style="width:194px;" class="textbox">
					<option value="X" > ...
					<?php 
// recupero informacion SEO
$recordset = funEjecutaQuerySelect("select * from " . $aplPrefClie . "_ref_ciudad where LST_CIUDAD='S'");
$nr = funDevuelveArregloRecordset($recordset, $results);
for ($varI = 0; $varI < $nr; $varI++) {
    if ($varCiudCate == $results['COD_CIUDAD'][$varI]) {
        echo "<option value=\"" . $results['COD_CIUDAD'][$varI] . "\" selected> " . $results['NOM_CIUDAD'][$varI];
    } else {
        echo "<option value=\"" . $results['COD_CIUDAD'][$varI] . "\" > " . $results['NOM_CIUDAD'][$varI];
    }
}
funLiberaRecordset($recordset);
?>
				</select>				
			</td>
		</tr>
		<tr>
			<td class="label" align="right">Nombre : &nbsp;</td>
コード例 #10
0
ファイル: frm_cate.php プロジェクト: boris1690/arcimed
<body bgcolor="#ffffff" topmargin="0" marginheight="0" leftmargin="0" marginwidth="0" onLoad="document.forms[0].elements['txtNombCate'].focus();">
<form action="./exe_cate.php" target="ejec" method="post" enctype="multipart/form-data">

<center>

<?php 
// Se conecta al Servidor y la Base de Datos
funConnectToDataBase($aplServer, $aplUser, $aplPassword, $aplDataBase);
// Inicializa las $variables
$varCodiCate = trim($_GET["txtCodiCate"]);
$varNombCate = "";
$varEstaCate = "";
// Hace la consulta si es necesario
if ($varCodiCate != "") {
    // Datos del Registro
    $recordset = funEjecutaQuerySelect("select * from " . $aplPrefClie . "_dat_categoria where COD_CATEGORIA={$varCodiCate}");
    $nr = funDevuelveArregloRecordset($recordset, $results);
    if ($nr > 0) {
        $varNombCate = trim($results["NOM_CATEGORIA"][0]);
        $varEstaCate = trim($results["EST_CATEGORIA"][0]);
    }
    funLiberaRecordset($recordset);
    // valido estado
    if ($varEstaCate == "A") {
        $varEstaCateSeleNada = "";
        $varEstaCateSeleActi = "selected";
        $varEstaCateSeleInac = "";
    } elseif ($varEstaCate == "I") {
        $varEstaCateSeleNada = "";
        $varEstaCateSeleActi = "";
        $varEstaCateSeleInac = "selected";
コード例 #11
0
ファイル: exe_home.php プロジェクト: boris1690/arcimed
        if ($nr > 0) {
            $varCodiCons = $results["COD_CONSULTA"][0] + 1;
        } else {
            $varCodiCons = 1;
        }
        funLiberaRecordset($recordset);
        // ingresa los valores en la tabla de auditoria
        $varFechCons = date("Y-m-d H:i:s");
        $varUserUsua = $_SESSION['User_User'];
        funEjecutaQueryEdit("insert into " . $aplPrefClie . "_ref_consulta values ('{$varUserUsua}',{$varCodiCons},'{$varFechCons}','Eliminacion Home - Lateral','{$varTituHome}')");
        // mensaje de exito
        funLevantaAlert('El registro fue ELIMINADO exitosamente');
    }
}
// Selecciona los registros
$recordset = funEjecutaQuerySelect("select * from " . $aplPrefClie . "_dat_home order by POS_HOME, TIT_HOME");
$nr = funDevuelveArregloRecordset($recordset, $results);
if ($nr > 0) {
    // crea la tabla
    print "\n<table id=\"tabDatos\" width=\"100%\" cellpadding=\"2\" cellspacing=\"2\" border=\"0\">";
    // valiable auxiliar
    $varPosiHomeAux = "X";
    // imprime los regsitros
    for ($varI = 0; $varI < $nr; $varI++) {
        // guardo los datos en variables
        $varCodiHome = trim($results["COD_HOME"][$varI]);
        $varTituHome = trim($results["TIT_HOME"][$varI]);
        $varEstaHome = trim($results["EST_HOME"][$varI]);
        $varPosiHome = trim($results["POS_HOME"][$varI]);
        if ($varEstaHome == "A") {
            $varEstaHomeNomb = "(Activo)";
コード例 #12
0
ファイル: frm_subc.php プロジェクト: boris1690/arcimed
<table width="95%" border="0" cellpadding="10" cellspacing="0" bgcolor="<?php 
echo $aplFormTableBackColor;
?>
" style="border: 1px solid rgb(<?php 
echo $aplFormTableBorderColor;
?>
)">
<tr>
	<td align="center">
		<table cellpadding="1" cellspacing="1" border="0">
		<tr>
			<td class="label" align="right" nowrap>Categoria : &nbsp;</td>
			<td>
				<select id="cboCodiCate" name="cboCodiCate" style="width:320px" class="textbox">
				<?php 
$recordset = funEjecutaQuerySelect("select * from " . $aplPrefClie . "_dat_categoria where EST_CATEGORIA='A' order by NOM_CATEGORIA");
$nr = funDevuelveArregloRecordset($recordset, $results);
for ($varI = 0; $varI < $nr; $varI++) {
    if ($varCodiCate == $results["COD_CATEGORIA"][$varI]) {
        print "\t\t<option value=\"" . $results["COD_CATEGORIA"][$varI] . "\" selected>" . trim($results["NOM_CATEGORIA"][$varI]);
    } else {
        print "\t\t<option value=\"" . $results["COD_CATEGORIA"][$varI] . "\">" . trim($results["NOM_CATEGORIA"][$varI]);
    }
}
funLiberaRecordset($recordset);
?>
				
				</select>
			</td>
		</tr>
		<tr>
コード例 #13
0
ファイル: frm_zona.php プロジェクト: boris1690/arcimed
<form action="./exe_zona.php" target="ejec" method="post" enctype="multipart/form-data">

<center>

<?php 
// Se conecta al Servidor y la Base de Datos
funConnectToDataBase($aplServer, $aplUser, $aplPassword, $aplDataBase);
// Inicializa las $variables
$varCodiZona = trim($_GET["txtCodiZona"]);
$varNombZona = "";
$varVideZona = "";
$varEstaZona = "";
// Hace la consulta si es necesario
if ($varCodiZona != "") {
    // Datos del Registro
    $recordset = funEjecutaQuerySelect("select * from " . $aplPrefClie . "_dat_zonakfc where COD_ZONA={$varCodiZona}");
    $nr = funDevuelveArregloRecordset($recordset, $results);
    if ($nr > 0) {
        $varNombZona = trim($results["NOM_ZONA"][0]);
        $varVideZona = trim($results["VID_ZONA"][0]);
        $varEstaZona = trim($results["EST_ZONA"][0]);
    }
    funLiberaRecordset($recordset);
    // valido estado
    if ($varEstaZona == "A") {
        $varEstaZonaSeleNada = "";
        $varEstaZonaSeleActi = "selected";
        $varEstaZonaSeleInac = "";
    } elseif ($varEstaZona == "I") {
        $varEstaZonaSeleNada = "";
        $varEstaZonaSeleActi = "";
コード例 #14
0
ファイル: productos.php プロジェクト: boris1690/arcimed
    <head>
        <meta http-equiv = "Content-Type" content = "text/html; charset=utf-8" />
        <title>Documento sin título</title>
    </head>


    <body>

        <?php 
session_start();
require "./../../_funciones/parametros.php";
require "./../../_funciones/funciones.php";
require "./../../_funciones/database_{$aplDataBaseLibrary}.php";
$categoria = $_POST["categoria"];
?>


        <?php 
// Se conecta al Servidor y la Base de Datos
funConnectToDataBase($aplServer, $aplUser, $aplPassword, $aplDataBase);
// obtengo el codigo ingresado
$recordset = funEjecutaQuerySelect("SELECT * FROM arcimed_dat_categoria");
$nr = funDevuelveArregloRecordset($recordset, $results);
for ($varI = 0; $varI < $nr; $varI++) {
    echo "<div name='" . $results["COD_CATEGORIA"][$varI] . "'>" . $results["NOM_CATEGORIA"][$varI] . "</div>";
}
?>
    </body>
</html>

コード例 #15
0
ファイル: header.php プロジェクト: boris1690/arcimed
<?php

session_start();
if (!empty($_POST['cmdComamnd'])) {
    $cmdComand = $_POST['cmdComamnd'];
    if ($cmdComand == "Iniciar") {
        $usuario = $_POST['usuario'];
        $password = $_POST['password'];
        // Se conecta al Servidor y la Base de Datos
        funConnectToDataBase($aplServer, $aplUser, $aplPassword, $aplDataBase);
        // Selecciona los registros
        $recordset = funEjecutaQuerySelect("select * from arcimed_dat_cliente where (mai_cliente='{$usuario}' OR ced_cliente='{$usuario}') AND pas_cliente='{$password}'");
        $nr = funDevuelveArregloRecordset($recordset, $results);
        if ($nr > 0) {
            $_SESSION['conx'] = true;
            $_SESSION['codigo'] = $results['cod_cliente'][0];
            $_SESSION['usuario'] = $results['ced_cliente'][0];
            $_SESSION['nombre'] = $results['nom_cliente'][0] . ' ' . $results['ape_cliente'][0];
        }
        funLiberaRecordset($recordset);
        // Cierro la conexión
        funCloseConectionToDataBase();
    } elseif ($cmdComand == "Cerrar") {
        session_unset();
    }
}
?>


<html>
<head>
コード例 #16
0
ファイル: frm_rest.php プロジェクト: boris1690/arcimed
<table width="100%" border="0" cellpadding="10" cellspacing="0" bgcolor="<?php 
echo $aplFormTableBackColor;
?>
" style="border: 1px solid rgb(<?php 
echo $aplFormTableBorderColor;
?>
)">
<tr>
	<td align="center">
		<table cellpadding="1" cellspacing="1" border="0">
		<tr>
			<td class="label" align="right">Provincia : &nbsp;</td>
			<td>
				<select id="cboCodiProv" name="cboCodiProv" style="width:190px" class="textbox" onChange="funLlenaComboFiltrado (document.getElementById('cboCodiCiud'),arrFiltCiud,arrCodiCiud,arrTextCiud,this.value,'',false,'','');">
				<?php 
$recordset = funEjecutaQuerySelect("select * from " . $aplPrefClie . "_ref_provincia A order by A.NOM_PROVINCIA");
$nr = funDevuelveArregloRecordset($recordset, $results);
for ($varI = 0; $varI < $nr; $varI++) {
    if ($varCodiProv == $results["COD_PROVINCIA"][$varI]) {
        print "\t\t<option value=\"" . $results["COD_PROVINCIA"][$varI] . "\" selected>" . trim($results["NOM_PROVINCIA"][$varI]);
    } else {
        print "\t\t<option value=\"" . $results["COD_PROVINCIA"][$varI] . "\">" . trim($results["NOM_PROVINCIA"][$varI]);
    }
}
funLiberaRecordset($recordset);
?>
				
				</select>
			</td>
		</tr>
		<tr>
コード例 #17
0
ファイル: exe_noti.php プロジェクト: boris1690/arcimed
        if ($nr > 0) {
            $varCodiCons = $results["COD_CONSULTA"][0] + 1;
        } else {
            $varCodiCons = 1;
        }
        funLiberaRecordset($recordset);
        // ingresa los valores en la tabla de auditoria
        $varFechCons = date("Y-m-d H:i:s");
        $varUserUsua = $_SESSION['User_User'];
        funEjecutaQueryEdit("insert into " . $aplPrefClie . "_ref_consulta values ('{$varUserUsua}',{$varCodiCons},'{$varFechCons}','Eliminacion Noticia','{$varTituNoti}')");
        // mensaje de exito
        funLevantaAlert('El registro fue ELIMINADO exitosamente');
    }
}
// Selecciona los registros
$recordset = funEjecutaQuerySelect("select * from " . $aplPrefClie . "_dat_noticia order by COD_NOTICIA DESC");
$nr = funDevuelveArregloRecordset($recordset, $results);
if ($nr > 0) {
    // crea la tabla
    print "\n<table id=\"tabDatos\" width=\"100%\" cellpadding=\"2\" cellspacing=\"2\" border=\"0\">";
    // imprime los regsitros
    for ($varI = 0; $varI < $nr; $varI++) {
        // guardo los datos en variables
        $varCodiNoti = trim($results["COD_NOTICIA"][$varI]);
        $varTituNoti = trim($results["TIT_NOTICIA"][$varI]);
        $varEstaNoti = trim($results["PUB_NOTICIA"][$varI]);
        if ($varEstaNoti == "A") {
            $varEstaNotiNomb = "(Activo)";
        } elseif ($varEstaNoti == "I") {
            $varEstaNotiNomb = "(Inactivo)";
        }
コード例 #18
0
ファイル: exe_rest.php プロジェクト: boris1690/arcimed
        if ($nr > 0) {
            $varCodiCons = $results["COD_CONSULTA"][0] + 1;
        } else {
            $varCodiCons = 1;
        }
        funLiberaRecordset($recordset);
        // ingresa los valores en la tabla de auditoria
        $varFechCons = date("Y-m-d H:i:s");
        $varUserUsua = $_SESSION['User_User'];
        funEjecutaQueryEdit("insert into " . $aplPrefClie . "_ref_consulta values ('{$varUserUsua}',{$varCodiCons},'{$varFechCons}','Eliminacion Restaurante','{$varNombRest}')");
        // mensaje de exito
        funLevantaAlert('El registro fue ELIMINADO exitosamente');
    }
}
// Selecciona los registros
$recordset = funEjecutaQuerySelect("select A.*, B.NOM_CIUDAD from " . $aplPrefClie . "_dat_restaurante A, " . $aplPrefClie . "_ref_ciudad B where B.COD_CIUDAD=A.COD_CIUDAD order by B.NOM_CIUDAD, A.NOM_RESTAURANTE");
$nr = funDevuelveArregloRecordset($recordset, $results);
if ($nr > 0) {
    // crea la tabla
    print "\n<table id=\"tabDatos\" width=\"100%\" cellpadding=\"2\" cellspacing=\"2\" border=\"0\">";
    // valiable auxiliar
    $varNombCiudAux = "XX";
    // imprime los regsitros
    for ($varI = 0; $varI < $nr; $varI++) {
        // guardo los datos en variables
        $varCodiRest = trim($results["COD_RESTAURANTE"][$varI]);
        $varNombRest = trim($results["NOM_RESTAURANTE"][$varI]);
        $varEstaRest = trim($results["EST_RESTAURANTE"][$varI]);
        $varNombCiud = trim($results["NOM_CIUDAD"][$varI]);
        if ($varEstaRest == "A") {
            $varEstaRestNomb = "(Activo)";
コード例 #19
0
ファイル: frm_inve.php プロジェクト: boris1690/arcimed
" style="border: 1px solid rgb(<?php 
echo $aplFormTableBorderColor;
?>
)">
<tr>
	<td align="center">
		<table cellpadding="1" cellspacing="1" border="0">
         
		
		<tr>
			<td class="label" align="right" nowrap>Producto : &nbsp;</td>
			<td>
				<select id="cboCodiCate" name="cboCodiInve" style="width:320px" class="textbox">
				<?php 
print "\t\t<option value=\"-1\">TODOS....";
$recordset = funEjecutaQuerySelect("SELECT * from " . $aplPrefClie . "_ref_producto A WHERE A.EST_PRODUCTO='A'");
$nr = funDevuelveArregloRecordset($recordset, $results);
for ($varI = 0; $varI < $nr; $varI++) {
    print "\t\t<option value=\"" . $results["COD_PRODUCTO"][$varI] . "\">" . trim($results["NOM_PRODUCTO"][$varI]);
}
funLiberaRecordset($recordset);
?>
				
				</select>
			</td>
		</tr>
		<tr>
			<td class="label" align="right">Cantidad : &nbsp;</td>
			<td><input type="text" name="txtCantInve"  maxlength="60" style="width:80px;" class="textbox"></td>
		</tr>
        
コード例 #20
0
ファイル: exe_cont.php プロジェクト: boris1690/arcimed
     if ($varTipoSubs3 == "L" || $varTipoSubs3 == "H") {
         print "\t<td width=\"100%\" style=\"color:#004080;padding-left:60px;\" class=\"texttabl\"><a href=\"./frm_cont.php?txtCodiInfo={$varCodiSubs3}\" target=\"form\" style=\"color:#004080\" class=\"linktabl\">{$varNombSubs3}</a> {$varIconEsta}</td>";
     } else {
         print "\t<td width=\"100%\" style=\"color:#004080;padding-left:60px;\" class=\"texttabl\">{$varNombSubs3} {$varIconEsta}</td>";
     }
     print "</tr>";
 } elseif ($varNiveSubs3 == "5") {
     print "<tr>";
     if ($varTipoSubs3 == "L" || $varTipoSubs3 == "H") {
         print "\t<td width=\"100%\" style=\"color:#004080;padding-left:80px;\" class=\"texttabl\"><a href=\"./frm_cont.php?txtCodiInfo={$varCodiSubs3}\" target=\"form\" style=\"color:#004080\" class=\"linktabl\">{$varNombSubs3}</a> {$varIconEsta}</td>";
     } else {
         print "\t<td width=\"100%\" style=\"color:#004080;padding-left:80px;\" class=\"texttabl\">{$varNombSubs3} {$varIconEsta}</td>";
     }
     print "</tr>";
 }
 $recordsubs4 = funEjecutaQuerySelect("select * from " . $aplPrefClie . "_dat_infoseccion where COD_SECCIONPADRE='{$varCodiSubs3}' and COD_SECCION<>COD_SECCIONPADRE order by ORD_SECCION");
 $ns4 = funDevuelveArregloRecordset($recordsubs4, $resultsubs4);
 for ($varO = 0; $varO < $ns4; $varO++) {
     // guardo los datos en variables
     $varCodiSubs4 = trim($resultsubs4["COD_SECCION"][$varO]);
     $varNombSubs4 = trim($resultsubs4["NOM_SECCION"][$varO]);
     $varNiveSubs4 = trim($resultsubs4["NIV_SECCION"][$varO]);
     $varTipoSubs4 = trim($resultsubs4["TIP_SECCION"][$varO]);
     $varEstaSubs4 = trim($resultsubs4["EST_SECCION"][$varO]);
     // seteo el icono de estado
     if ($varEstaSubs4 == "A") {
         $varIconEsta = "";
     } else {
         $varIconEsta = "<img src=\"../graficos/ic_x3.gif\" width=\"12\" height=\"11\">";
     }
     if ($varNiveSubs4 == "1") {
コード例 #21
0
</head>

<body>
<div id="respuesta"></div>
 
<?php 
$varCodiCate = !empty($_GET['txtCodiCate']) ? $_GET['txtCodiCate'] : '';
$varCodiProd = !empty($_GET['txtCodiProd']) ? $_GET['txtCodiProd'] : '';
$varQuery = "";
if (!empty($varCodiCate)) {
    $varQuery = " AND A.COD_CATEGORIA=" . $varCodiCate;
}
// Se conecta al Servidor y la Base de Datos
funConnectToDataBase($aplServer, $aplUser, $aplPassword, $aplDataBase);
// Selecciona los registros
$recordset = funEjecutaQuerySelect("select *,(select IFNULL(SUM(num_inventario),0) from arcimed_ref_inventario where cod_producto=A.COD_PRODUCTO) as num_inventario from arcimed_ref_producto A where A.EST_PRODUCTO='A' {$varQuery}");
$nr = funDevuelveArregloRecordset($recordset, $results);
if ($nr > 0) {
    print '<div style="position:absolute;top:500px;left:700px;width:1500px;height:800px;overflow:scroll">';
    // imprime los regsitros
    for ($varI = 0; $varI < $nr; $varI++) {
        // guardo los datos en variables
        $varCodiProd = trim($results["COD_PRODUCTO"][$varI]);
        $varNombProd = trim($results["NOM_PRODUCTO"][$varI]);
        $varImagProd = trim($results["IMG_PRODUCTO"][$varI]);
        $varPrecProd = trim($results["PRE_PRODUCTO"][$varI]);
        $varDescProd = trim($results["DES_PRODUCTO"][$varI]);
        $varNumeInve = trim($results["num_inventario"][$varI]);
        print '<div style="float:left;padding:20px;">';
        print '<table border=1>';
        print '<tr>';
コード例 #22
0
ファイル: sistema_frame.php プロジェクト: boris1690/arcimed
funLiberaRecordset($recordset);
?>
			</table>
		</td>
	</tr>
	</table>
</div>

<!-- Menu Consultas -->
<div id="ModuCons" style="POSITION:absolute; Z-INDEX:0; LEFT:1205; TOP:88; VISIBILITY:hidden;" onMouseOver="show('ModuCons');" onMouseOut="hide('ModuCons');">
	<table border="0" cellpadding="2" cellspacing="1" bgcolor="#c9c9c9" width="120">
	<tr>
		<td bgcolor="#f3f3f3">
			<table cellpadding="0" cellspacing="3" border="0" width="120">
			<?php 
$recordset = funEjecutaQuerySelect("SELECT A.cod_opcionsistema, B.nom_opcionsistema, B.url_opcionsistema, B.tip_opcionsistema FROM " . $aplPrefClie . "_rel_perfilopcionsistema A, " . $aplPrefClie . "_sis_opcionsistema B WHERE A.cod_perfil=" . $_SESSION['Perf_User'] . " AND A.cod_opcionsistema=B.cod_opcionsistema AND B.tip_opcionsistema='R' ORDER BY B.tip_opcionsistema, B.ord_opcionsistema");
$nr = funDevuelveArregloRecordset($recordset, $results);
if ($nr > 0) {
    // inicializo la seccion del menu
    $varTipoOpciSistAuxi = trim($results["tip_opcionsistema"][0]);
    // opciones
    for ($varI = 0; $varI < $nr; $varI++) {
        // despliego la opcion
        print "<tr>";
        print "\t<td class=\"submenu1\" style=\"text-align:right;padding-right:4px;\"><a href=\"" . trim($results["url_opcionsistema"][$varI]) . "\" target=\"sist\" class=\"submenu1\">" . trim($results["nom_opcionsistema"][$varI]) . "</a></td>";
        print "</tr>";
        if ($varI != $nr - 1) {
            print "<tr>";
            print "\t<td bgcolor=\"#ffffff\"><img src=\"../images/blank.gif\" width=\"2\" height=\"1\" border=0 alt=\"\"></td>";
            print "</tr>";
        }
コード例 #23
0
ファイル: exe_prom.php プロジェクト: boris1690/arcimed
        if ($nr > 0) {
            $varCodiCons = $results["COD_CONSULTA"][0] + 1;
        } else {
            $varCodiCons = 1;
        }
        funLiberaRecordset($recordset);
        // ingresa los valores en la tabla de auditoria
        $varFechCons = date("Y-m-d H:i:s");
        $varUserUsua = $_SESSION['User_User'];
        funEjecutaQueryEdit("insert into " . $aplPrefClie . "_ref_consulta values ('{$varUserUsua}',{$varCodiCons},'{$varFechCons}','Eliminacion Promocion','{$varNombProm}')");
        // mensaje de exito
        funLevantaAlert('El registro fue ELIMINADO exitosamente');
    }
}
// Selecciona los registros
$recordset = funEjecutaQuerySelect("select * from " . $aplPrefClie . "_dat_promocion order by NOM_PROMOCION");
$nr = funDevuelveArregloRecordset($recordset, $results);
if ($nr > 0) {
    // crea la tabla
    print "\n<table id=\"tabDatos\" width=\"100%\" cellpadding=\"2\" cellspacing=\"2\" border=\"0\">";
    // imprime los regsitros
    for ($varI = 0; $varI < $nr; $varI++) {
        // guardo los datos en variables
        $varCodiProm = trim($results["COD_PROMOCION"][$varI]);
        $varNombProm = trim($results["NOM_PROMOCION"][$varI]);
        $varEstaProm = trim($results["EST_PROMOCION"][$varI]);
        if ($varEstaProm == "A") {
            $varEstaPromNomb = "(Activo)";
        } elseif ($varEstaProm == "I") {
            $varEstaPromNomb = "(Inactivo)";
        }
コード例 #24
0
ファイル: frm_bann.php プロジェクト: boris1690/arcimed
<center>

<?php 
// Se conecta al Servidor y la Base de Datos
funConnectToDataBase($aplServer, $aplUser, $aplPassword, $aplDataBase);
// Inicializa las $variables
$varCodiBann = trim($_GET["txtCodiBann"]);
$varNombBann = "";
$varFotoBann = "";
$varAltfBann = "";
$varUrl_Bann = "";
$varEstaBann = "";
// Hace la consulta si es necesario
if ($varCodiBann != "") {
    // Datos del Registro
    $recordset = funEjecutaQuerySelect("select * from " . $aplPrefClie . "_dat_banner where COD_BANNER={$varCodiBann}");
    $nr = funDevuelveArregloRecordset($recordset, $results);
    if ($nr > 0) {
        $varNombBann = trim($results["NOM_BANNER"][0]);
        $varFotoBann = trim($results["FOT_BANNER"][0]);
        $varAltfBann = trim($results["ALT_BANNER"][0]);
        $varUrl_Bann = trim($results["URL_BANNER"][0]);
        $varEstaBann = trim($results["EST_BANNER"][0]);
    }
    funLiberaRecordset($recordset);
    // valido estado
    if ($varEstaBann == "A") {
        $varEstaBannSeleNada = "";
        $varEstaBannSeleActi = "selected";
        $varEstaBannSeleInac = "";
    } elseif ($varEstaBann == "I") {
コード例 #25
0
ファイル: _exe_cate.php プロジェクト: boris1690/arcimed
 // crea la tabla
 print "\n<table id=\"tabDatos\" width=\"100%\" cellpadding=\"2\" cellspacing=\"2\" border=\"0\">";
 // imprime los regsitros
 for ($varI = 0; $varI < $nr; $varI++) {
     // guardo los datos en variables
     $varCodiCate = trim($results["COD_CATEGORIA"][$varI]);
     $varNombCate = trim($results["NOM_CATEGORIA"][$varI]);
     $varEstaCate = trim($results["EST_CATEGORIA"][$varI]);
     $varCiudCate = trim($results["COD_CIUDAD"][$varI]);
     if ($varEstaCate == "A") {
         $varEstaCateNomb = "(Activo)";
     } elseif ($varEstaCate == "I") {
         $varEstaCateNomb = "(Inactivo)";
     }
     if ($varJ != $varCiudCate) {
         $recordset1 = funEjecutaQuerySelect("select * from " . $aplPrefClie . "_ref_ciudad where COD_CIUDAD={$varCiudCate}");
         $nr1 = funDevuelveArregloRecordset($recordset1, $results1);
         if ($nr1 > 0) {
             print "<tr>";
             print "\t<td colspan=\"2\" class=\"texttabl\" bgcolor=\"{$aplTigraBackColorOver}\"><font style=\"color:#ca6500\">" . $results1['NOM_CIUDAD'][0] . "</font></td>";
             print "<tr>";
         }
         $varJ = $varCiudCate;
     }
     // despliego los datos
     print "<tr>";
     print "\t<td width=\"97%\" class=\"texttabl\" style=\"padding-left:15px;\"><a href=\"./frm_cate.php?txtCodiCate={$varCodiCate}\" target=\"form\" class=\"linktabl\">{$varNombCate}</a>&nbsp;<font style=\"color:#666666\"><i>{$varEstaCateNomb}</i></font></td>";
     print "\t<td width=\"3%\" class=\"texttabl\" align=\"center\"><a href=\"./exe_cate.php?txtCodiCate={$varCodiCate}&cmdComando=Eliminar\" onClick=\"return confirm('Esta seguro que desea eliminar la Categoria?');\" class=\"linktabl\"><img src=\"./../images/btnx.gif\" width=\"12\" height=\"12\" border=0></a></td>";
     print "</tr>";
 }
 // cierra la tabla
コード例 #26
0
ファイル: productos.php プロジェクト: boris1690/arcimed
	z-index: 2;
}
            </style>        
</head>

<body>
<div id="apDivproductos">
<p class="Categorias"><em><u>CATEGORIAS</u></em>
</p>

<ul id="MenuBar1" class="MenuBarVertical">
<?php 
// Se conecta al Servidor y la Base de Datos
funConnectToDataBase($aplServer, $aplUser, $aplPassword, $aplDataBase);
// Selecciona los registros
$recordset = funEjecutaQuerySelect("select * from " . $aplPrefClie . "_dat_categoria WHERE EST_CATEGORIA='A' order by ORD_CATEGORIA");
$nr = funDevuelveArregloRecordset($recordset, $results);
if ($nr > 0) {
    // imprime los regsitros
    for ($varI = 0; $varI < $nr; $varI++) {
        // guardo los datos en variables
        $varCodiCate = trim($results["COD_CATEGORIA"][$varI]);
        $varNombCate = trim($results["NOM_CATEGORIA"][$varI]);
        $varEstaCate = trim($results["EST_CATEGORIA"][$varI]);
        print '<li><a class="MenuBarItemSubmenu" href="detalleproductos.php?txtCodiCate=' . $varCodiCate . '">' . $varNombCate . ' </a></li>';
    }
}
funLiberaRecordset($recordset);
// Cierro la conexión
funCloseConectionToDataBase();
?>
コード例 #27
0
ファイル: lst_arch.php プロジェクト: boris1690/arcimed
</head>
<body bgcolor="#ffffff" topmargin="0" marginheight="0" leftmargin="0" marginwidth="0">

<center>

<?php 
// Se conecta al Servidor y la Base de Datos
funConnectToDataBase($aplServer, $aplUser, $aplPassword, $aplDataBase);
// Recupero el Usuario
$varUserUser = $_SESSION['User_User'];
// Selecciona los registros
if ($varUserUser == "administrador") {
    $recordset = funEjecutaQuerySelect("select * from " . $aplPrefClie . "_dat_archivo");
} else {
    $recordset = funEjecutaQuerySelect("select * from " . $aplPrefClie . "_dat_archivo where USR_USUARIO='{$varUserUser}'");
}
$nr = funDevuelveArregloRecordset($recordset, $results);
if ($nr > 0) {
    // crea la tabla
    print "\n<table id=\"tabDatos\" width=\"100%\" cellpadding=\"2\" cellspacing=\"2\" border=\"0\">";
    // imprime los regsitros
    for ($varI = 0; $varI < $nr; $varI++) {
        // guardo los datos en variables
        $varCodiArch = trim($results["COD_ARCHIVO"][$varI]);
        $varNombArch = trim($results["NOM_ARCHIVO"][$varI]);
        $varFileArch = trim($results["FIL_ARCHIVO"][$varI]);
        // despliego los datos
        print "<tr>";
        print "\t<td width=\"100%\" class=\"texttabl\"><a href=\"#\" onClick=\"escribeImagen('../../_upload/{$varFileArch}'); return false;\" class=\"linktabl\">{$varNombArch}</a><br><font style=\"color:#ca6500\">./_upload/{$varFileArch}</font></td>";
        print "</tr>";
コード例 #28
0
ファイル: frm_chiky.php プロジェクト: boris1690/arcimed
// Inicializa las $variables
$varCodiProm = trim($_GET["txtCodiProm"]);
$varNombProm = "";
$varFotoPequ = "";
$varFotoNorm = "";
$varFotoGran = "";
$varTextProm = "";
$varEstaProm = "";
$varAltfPequ = "";
$varAltfNorm = "";
$varAltfGran = "";
$varLinkProm = "";
// Hace la consulta si es necesario
if ($varCodiProm != "") {
    // Datos del Registro
    $recordset = funEjecutaQuerySelect("select * from " . $aplPrefClie . "_dat_chiky where COD_JUEGO={$varCodiProm}");
    $nr = funDevuelveArregloRecordset($recordset, $results);
    if ($nr > 0) {
        $varNombProm = trim($results["NOM_JUEGO"][0]);
        $varFotoPequ = trim($results["FOT_PEQUJUEGO"][0]);
        //$varFotoNorm = trim($results["FOT_NORMJUEGO"][0]);
        $varFotoGran = trim($results["FOT_GRANJUEGO"][0]);
        $varTextProm = trim($results["TEX_JUEGO"][0]);
        $varEstaProm = trim($results["EST_JUEGO"][0]);
        $varAltfPequ = trim($results["ALT_PEQUJUEGO"][0]);
        //$varAltfNorm = trim($results["ALT_NORMJUEGO"][0]);
        $varAltfGran = trim($results["ALT_GRANJUEGO"][0]);
        $varLinkProm = trim($results["LIN_JUEGO"][0]);
    }
    funLiberaRecordset($recordset);
    // valido estado
コード例 #29
0
ファイル: exe_arch.php プロジェクト: boris1690/arcimed
    $varRegiInic = 1;
    $varRegiFina = $aplNumeRegiPagi;
    $recordset = funEjecutaQuerySelect("select COD_ARCHIVO from " . $aplPrefClie . "_dat_archivo");
    $nr = funDevuelveArregloRecordset($recordset, $results);
    if ($nr > 0) {
        if ($nr < $aplNumeRegiPagi) {
            $varRegiFina = $nr;
        }
    } else {
        $varRegiInic = 0;
        $varRegiFina = 0;
    }
    funLiberaRecordset($recordset);
}
// Selecciona los registros
$recordset = funEjecutaQuerySelect("select * from " . $aplPrefClie . "_dat_archivo order by NOM_ARCHIVO");
$nr = funDevuelveArregloRecordset($recordset, $results);
if ($nr > 0) {
    // crea la tabla
    print "\n<table id=\"tabDatos\" width=\"100%\" cellpadding=\"2\" cellspacing=\"2\" border=\"0\">";
    // imprime los regsitros
    for ($varI = 0; $varI < $nr; $varI++) {
        // guardo los datos en variables
        $varCodiArch = trim($results["COD_ARCHIVO"][$varI]);
        $varNombArch = trim($results["NOM_ARCHIVO"][$varI]);
        $varFileArch = trim($results["FIL_ARCHIVO"][$varI]);
        // control de paginacion
        if ($varI + 1 >= $varRegiInic && $varI + 1 <= $varRegiFina) {
            // despliego los datos
            print "<tr>";
            print "\t<td width=\"97%\" class=\"texttabl\"><a href=\"./frm_arch.php?txtCodiArch={$varCodiArch}\" target=\"form\" class=\"linktabl\">{$varNombArch}</a><br><font style=\"color:#ca6500\">../../_upload/{$varFileArch}</font></td>";
コード例 #30
0
ファイル: frm_subc.php プロジェクト: boris1690/arcimed
<table width="95%" border="0" cellpadding="10" cellspacing="0" bgcolor="<?php 
echo $aplFormTableBackColor;
?>
" style="border: 1px solid rgb(<?php 
echo $aplFormTableBorderColor;
?>
)">
<tr>
	<td align="center">
		<table cellpadding="1" cellspacing="1" border="0">
		<tr>
			<td class="label" align="right" nowrap>Categoria : &nbsp;</td>
			<td>
				<select id="cboCodiCate" name="cboCodiCate" style="width:320px" class="textbox">
				<?php 
$recordset = funEjecutaQuerySelect("SELECT * from " . $aplPrefClie . "_dat_categoria A WHERE A.EST_CATEGORIA='A'");
$nr = funDevuelveArregloRecordset($recordset, $results);
for ($varI = 0; $varI < $nr; $varI++) {
    if ($varCodiCate == $results["COD_CATEGORIA"][$varI]) {
        print "\t\t<option value=\"" . $results["COD_CATEGORIA"][$varI] . "\" selected>" . trim($results["NOM_CATEGORIA"][$varI]);
    } else {
        print "\t\t<option value=\"" . $results["COD_CATEGORIA"][$varI] . "\">" . trim($results["NOM_CATEGORIA"][$varI]);
    }
}
funLiberaRecordset($recordset);
?>
				
				</select>
			</td>
		</tr>
		<tr>