| ");
echo(" | ");
$sql = "
SELECT
a.attname as campo,
t.typname as tipo,
a.atttypmod-4 as largo,
pg_catalog.col_description(a.attrelid, a.attnum) as comentario,
Attnotnull as no_nulo
FROM
pg_catalog.pg_attribute a LEFT JOIN pg_catalog.pg_attrdef adef
ON a.attrelid=adef.adrelid
AND a.attnum=adef.adnum
LEFT JOIN pg_catalog.pg_type t ON a.atttypid=t.oid
WHERE
a.attrelid = (SELECT oid FROM pg_catalog.pg_class WHERE relname='".$_GET["var_tabla"]."'
AND relnamespace = (SELECT oid FROM pg_catalog.pg_namespace WHERE
nspname = 'public'))
AND a.attnum > 0 AND NOT a.attisdropped
ORDER BY a.attnum;
";
$result=sql_query("$sql");
if (isset($_POST["var_lenguaje"]) && $_POST["var_lenguaje"]!='soap' && $_POST["var_lenguaje"]!='crud') {
$fun1cion=$var_crear."function ".$_GET["var_tabla"]."_agregar (";
$numero_filas = sql_num_rows($result);
$numero_columnas = sql_num_cols($result);
$parametros="";
for($i = 0; $i < $numero_filas; $i++) {
$valor_tipo = sql_fetch_result($result, $i,"tipo");
$valor_tipo=datphp2datsql($valor_tipo);
$valor_campo = sql_fetch_result($result, $i,"campo");
$valor_nulo = sql_fetch_result($result, $i,"No_nulo");
$valor_comentario = sql_fetch_result($result, $i,"comentario");
if ($i>0) {
$fun1cion.=",";
}
//-->Declaracion de variables segun lenguaje
if ($_POST["var_lenguaje"]=='php') {
if ($valor_campo=='id_emp' || $valor_campo=='id_suc' || $valor_campo=='id_dep' || $valor_campo=='id_sec' || $valor_campo=='id_usu') {
$fun1cion.='$var_'."$valor_campo=0";
if (!isset($fun1cion_parte)) {
$fun1cion_parte="\n";
}
if ($valor_campo=='id_emp') {
$fun1cion_parte.="\t".'$var_'.$valor_campo.'=($var_'.$valor_campo.'==0 || $var_'.$valor_campo.'=="")? usuario_empresa():$var_'.$valor_campo.";\n";
}
if ($valor_campo=='id_suc') {
$fun1cion_parte.="\t".'$var_'.$valor_campo.'=($var_'.$valor_campo.'==0 || $var_'.$valor_campo.'=="")? usuario_sucursal():$var_'.$valor_campo.";\n";
}
if ($valor_campo=='id_dep') {
$fun1cion_parte.="\t".'$var_'.$valor_campo.'=($var_'.$valor_campo.'==0 || $var_'.$valor_campo.'=="")? usuario_departamento():$var_'.$valor_campo.";\n";
}
if ($valor_campo=='id_sec') {
$fun1cion_parte.="\t".'$var_'.$valor_campo.'=($var_'.$valor_campo.'==0 || $var_'.$valor_campo.'=="")? usuario_seccion():$var_'.$valor_campo.";\n";
}
if ($valor_campo=='id_usu') {
$fun1cion_parte.="\t".'$var_'.$valor_campo.'=($var_'.$valor_campo.'==0 || $var_'.$valor_campo.'=="")? usuario_id():$var_'.$valor_campo.";\n";
}
} else {
$fun1cion.='$var_'."$valor_campo";
}
$parametros.= str_pad("* @param ".$valor_tipo." \$".$valor_campo,40," ",STR_PAD_RIGHT).$valor_comentario."\n";
}
}
if ($_POST["var_lenguaje"]=='php') {
$fun1cion.=") {\n";
}
if ($_POST["var_lenguaje"]=='php') { //soporte phpDocumentor
$fun1cion.="/**\n";
$fun1cion.="* Funcion ".$_POST["var_lenguaje"].": permite agregar un registro en la tabla ".$_GET["var_tabla"]."\n";
$fun1cion.="*\n";
$fun1cion.="* Fecha: $var_fecha\n";
$fun1cion.="* @author $var_autor\n";
$fun1cion.="* @copyright Copyright (c), ".SISTEMA_EMPRESA." \n";
$fun1cion.="*\n";
$fun1cion.=$parametros;
$fun1cion.="*\n";
$fun1cion.="* @return true si la operacion es correcta, false si ocurre algun error\n";
$fun1cion.="* \t\t \n";
$fun1cion.="* \t\t \n";
$fun1cion.="*/\n";
}
if ($_POST["var_lenguaje"]=='php') {
if (isset($fun1cion_parte)) {
$fun1cion.=$fun1cion_parte;
}
}
if ($_POST["var_lenguaje"]=='php') {
$fun1cion.="\t".'$sql = "INSERT INTO '.$_GET["var_tabla"].' ('."\n";
}
if ($_POST["var_lenguaje"]=='php') {
for($i = 0; $i < $numero_filas; $i++) {
$valor_tipo = sql_fetch_result($result, $i,"tipo");
$valor_tipo=datphp2datsql($valor_tipo);
$valor_campo = sql_fetch_result($result, $i,"campo");
$valor_nulo = sql_fetch_result($result, $i,"No_nulo");
$valor_comentario = sql_fetch_result($result, $i,"comentario");
if ($i>0) {
$fun1cion.=",\n";
}
$fun1cion.="\t\t$valor_campo";
}
$fun1cion.="\n\t".') VALUES ('."\n";
}
for($i = 0; $i < $numero_filas; $i++) {
$valor_tipo = sql_fetch_result($result, $i,"tipo");
$valor_tipo=datphp2datsql($valor_tipo);
$valor_campo = sql_fetch_result($result, $i,"campo");
$valor_nulo = sql_fetch_result($result, $i,"No_nulo");
$valor_comentario = sql_fetch_result($result, $i,"comentario");
if ($i>0) {
$fun1cion.=",\n";
}
if ($_POST["var_lenguaje"]=='php') {
if ($valor_tipo=='int8' || $valor_tipo=='int4' || $valor_tipo=='int2' || $valor_tipo=='integer') {
if ($valor_nulo=='t') {
//$fun1cion.="\t\t".'".'.'$var_'."$valor_campo".'."';
$fun1cion.="\t\t".'$var_'."$valor_campo";
} else {
$fun1cion.="\t\t".'".sql_escape_integer('.'$var_'."$valor_campo".',true)."';
}
}
if ($valor_tipo=='numeric') {
if ($valor_nulo=='t') {
$fun1cion.="\t\t".'$var_'."$valor_campo";
} else {
$fun1cion.="\t\t".'".sql_escape_decimal('.'$var_'."$valor_campo".',true)."';
}
}
if ($valor_tipo=='varchar' || $valor_tipo=='text') {
if ($valor_nulo=='t') {
$fun1cion.="\t\t".'".sql_escape('.'$var_'."$valor_campo".')."';
} else {
$fun1cion.="\t\t".'".sql_escape('.'$var_'."$valor_campo".',true)."';
}
}
if ($valor_tipo=='date') {
if ($valor_nulo=='t') {
$fun1cion.="\t\t".'".sql_escape_date('.'$var_'."$valor_campo".')."';
} else {
$fun1cion.="\t\t".'".sql_escape_date('.'$var_'."$valor_campo".',true)."';
}
}
if ($valor_tipo=='boolean') {
if ($valor_nulo=='t') {
$fun1cion.="\t\t".'".sql_escape_boolean('.'$var_'."$valor_campo".')."';
} else {
$fun1cion.="\t\t".'".sql_escape_boolean('.'$var_'."$valor_campo".',true)."';
}
}
if ($valor_tipo=='time') {
if ($valor_nulo=='t') {
$fun1cion.="\t\t".'$var_'."$valor_campo";
} else {
$fun1cion.="\t\t".'$var_'."$valor_campo";
}
}
}
}
if ($_POST["var_lenguaje"]=='php') {
$fun1cion.="\n\t".')";'."\n";
$fun1cion.="\t".'if (sql_query($sql)) {'."\n";
$fun1cion.="\t\treturn true;\n";
$fun1cion.="\t}\n";
$fun1cion.="\treturn false;\n";
$fun1cion.="}\n";
}
$fun2cion=$var_crear."function ".$_GET["var_tabla"]."_modificar (";
$numero_filas = sql_num_rows($result);
$numero_columnas = sql_num_cols($result);
$parametros="";
for($i = 0; $i < $numero_filas; $i++) {
$valor_tipo = sql_fetch_result($result, $i,"tipo");
$valor_tipo=datphp2datsql($valor_tipo);
$valor_campo = sql_fetch_result($result, $i,"campo");
$valor_nulo = sql_fetch_result($result, $i,"No_nulo");
$valor_comentario = sql_fetch_result($result, $i,"comentario");
if ($i>0) {
$fun2cion.=",";
}
if ($_POST["var_lenguaje"]=='php') {
if ($valor_campo=='id_emp' || $valor_campo=='id_suc' || $valor_campo=='id_dep' || $valor_campo=='id_sec' || $valor_campo=='id_usu') {
$fun2cion.='$var_'."$valor_campo=0";
if (!isset($fun2cion_parte)) {
$fun2cion_parte="\n";
}
if ($valor_campo=='id_emp') {
$fun2cion_parte.="\t".'$var_'.$valor_campo.'=($var_'.$valor_campo.'==0 || $var_'.$valor_campo.'=="")? usuario_empresa():$var_'.$valor_campo.";\n";
}
if ($valor_campo=='id_suc') {
$fun2cion_parte.="\t".'$var_'.$valor_campo.'=($var_'.$valor_campo.'==0 || $var_'.$valor_campo.'=="")? usuario_sucursal():$var_'.$valor_campo.";\n";
}
if ($valor_campo=='id_dep') {
$fun2cion_parte.="\t".'$var_'.$valor_campo.'=($var_'.$valor_campo.'==0 || $var_'.$valor_campo.'=="")? usuario_departamento():$var_'.$valor_campo.";\n";
}
if ($valor_campo=='id_sec') {
$fun2cion_parte.="\t".'$var_'.$valor_campo.'=($var_'.$valor_campo.'==0 || $var_'.$valor_campo.'=="")? usuario_seccion():$var_'.$valor_campo.";\n";
}
if ($valor_campo=='id_usu') {
$fun2cion_parte.="\t".'$var_'.$valor_campo.'=($var_'.$valor_campo.'==0 || $var_'.$valor_campo.'=="")? usuario_id():$var_'.$valor_campo.";\n";
}
} else {
$fun2cion.='$var_'."$valor_campo";
}
$parametros.= str_pad("* @param ".$valor_tipo." \$".$valor_campo,40," ",STR_PAD_RIGHT).$valor_comentario."\n";
}
}
if ($_POST["var_lenguaje"]=='php') {
$fun2cion.=") {\n";
}
if ($_POST["var_lenguaje"]=='php') { //soporte phpDocumentor
$fun2cion.="/**\n";
$fun2cion.="* Funcion ".$_POST["var_lenguaje"].": permite modificar un registro en la tabla ".$_GET["var_tabla"]."\n";
$fun2cion.="*\n";
$fun2cion.="* Fecha: $var_fecha\n";
$fun2cion.="* @author $var_autor\n";
$fun2cion.="* @copyright Copyright (c), ".SISTEMA_EMPRESA." \n";
$fun2cion.="*\n";
$fun2cion.=$parametros;
$fun2cion.="*\n";
$fun2cion.="* @return true si la operacion es correcta, false si ocurre algun error\n";
$fun2cion.="* \t\t \n";
$fun2cion.="* \t\t \n";
$fun2cion.="*/\n";
}
if ($_POST["var_lenguaje"]=='php') {
if (isset($fun2cion_parte)) {
$fun2cion.=$fun2cion_parte;
}
}
if ($_POST["var_lenguaje"]=='php') {
$fun2cion.="\t".'$sql = "UPDATE '.$_GET["var_tabla"].' SET '."\n";
}
for($i = 0; $i < $numero_filas; $i++) {
$valor_tipo = sql_fetch_result($result, $i,"tipo");
$valor_tipo=datphp2datsql($valor_tipo);
$valor_campo = sql_fetch_result($result, $i,"campo");
$valor_nulo = sql_fetch_result($result, $i,"No_nulo");
$valor_comentario = sql_fetch_result($result, $i,"comentario");
if ($i>0) {
$fun2cion.=",\n";
}
if ($_POST["var_lenguaje"]=='php') {
if ($valor_tipo=='int8' || $valor_tipo=='int4' || $valor_tipo=='int2' || $valor_tipo=='integer') {
if ($valor_nulo=='t') {
$fun2cion.="\t\t$valor_campo=".'$var_'."$valor_campo";
} else {
$fun2cion.="\t\t$valor_campo=".'".sql_escape_integer('.'$var_'."$valor_campo".',true)."';
}
}
if ($valor_tipo=='numeric') {
if ($valor_nulo=='t') {
$fun2cion.="\t\t$valor_campo=".'$var_'."$valor_campo";
} else {
$fun2cion.="\t\t$valor_campo=".'".sql_escape_decimal('.'$var_'."$valor_campo".',true)."';
}
}
if ($valor_tipo=='varchar' || $valor_tipo=='text') {
if ($valor_nulo=='t') {
$fun2cion.="\t\t$valor_campo=".'".sql_escape('.'$var_'."$valor_campo".')."';
} else {
$fun2cion.="\t\t$valor_campo=".'".sql_escape('.'$var_'."$valor_campo".',true)."';
}
}
if ($valor_tipo=='date') {
if ($valor_nulo=='t') {
$fun2cion.="\t\t$valor_campo=".'".sql_escape_date('.'$var_'."$valor_campo".')."';
} else {
$fun2cion.="\t\t$valor_campo=".'".sql_escape_date('.'$var_'."$valor_campo".',true)."';
}
}
if ($valor_tipo=='boolean') {
if ($valor_nulo=='t') {
$fun2cion.="\t\t$valor_campo=".'".sql_escape_boolean('.'$var_'."$valor_campo".')."';
} else {
$fun2cion.="\t\t$valor_campo=".'".sql_escape_boolean('.'$var_'."$valor_campo".',true)."';
}
}
if ($valor_tipo=='time') {
if ($valor_nulo=='t') {
$fun2cion.="\t\t$valor_campo=".'$var_'."$valor_campo";
} else {
$fun2cion.="\t\t$valor_campo=".'$var_'."$valor_campo";
}
}
}
}
if ($_POST["var_lenguaje"]=='php') {
$fun2cion.="\n\t".'WHERE'."\n";
list($var_relfilenode) = sql_fetch_row(sql_query("SELECT relfilenode FROM pg_class WHERE relname='".$_GET["var_tabla"]."'"));
list($var_conkey) = sql_fetch_row(sql_query("SELECT conkey FROM pg_constraint WHERE conrelid='".$var_relfilenode."' AND contype='p'"));
$var_conkey=str_replace("{","",$var_conkey);
$var_conkey=str_replace("}","",$var_conkey);
$var_total=trozo($var_conkey,-1,",");
for($i = 0; $i <= $var_total; $i++) {
$t=trozo($var_conkey,$i,",")-1;
$valor_tipo = sql_fetch_result($result,$t,"tipo");
$valor_tipo=datphp2datsql($valor_tipo);
$valor_campo = sql_fetch_result($result,$t,"campo");
$valor_nulo = sql_fetch_result($result, $t,"No_nulo");
$valor_comentario = sql_fetch_result($result, $t,"comentario");
if ($i>0) {
$fun2cion.=" AND \n";
}
if ($_POST["var_lenguaje"]=='php') {
//$fun2cion.="\t\t$valor_campo='".'$var_'."$valor_campo'";
if ($valor_tipo=='int8' || $valor_tipo=='integer' || $valor_tipo=='numeric') {
$fun2cion.="\t\t$valor_campo=".'$var_'."$valor_campo";
} else {
$fun2cion.="\t\t$valor_campo='".'$var_'."$valor_campo'";
}
}
}
}
if ($_POST["var_lenguaje"]=='php') {
$fun2cion.="\n\t".'";'."\n";
$fun2cion.="\t".'if (sql_query($sql)) {'."\n";
$fun2cion.="\t\treturn true;\n";
$fun2cion.="\t}\n";
$fun2cion.="\treturn false;\n";
$fun2cion.="}\n";
}
$fun3cion=$var_crear."function ".$_GET["var_tabla"]."_existe (";
list($var_relfilenode) = sql_fetch_row(sql_query("SELECT relfilenode FROM pg_class WHERE relname='".$_GET["var_tabla"]."'"));
list($var_conkey) = sql_fetch_row(sql_query("SELECT conkey FROM pg_constraint WHERE conrelid='".$var_relfilenode."' AND contype='p'"));
$var_conkey=str_replace("{","",$var_conkey);
$var_conkey=str_replace("}","",$var_conkey);
$var_total=trozo($var_conkey,-1,",");
$parametros="";
for($i = 0; $i <= $var_total; $i++) {
$t=trozo($var_conkey,$i,",")-1;
$valor_tipo = sql_fetch_result($result,$t,"tipo");
$valor_tipo=datphp2datsql($valor_tipo);
$valor_campo = sql_fetch_result($result,$t,"campo");
$valor_nulo = sql_fetch_result($result, $t,"No_nulo");
$valor_comentario = sql_fetch_result($result, $t,"comentario");
if ($i>0) {
$fun3cion.=",";
}
if ($_POST["var_lenguaje"]=='php') {
$fun3cion.='$var_'."$valor_campo";
$parametros.= str_pad("* @param ".$valor_tipo." \$".$valor_campo,40," ",STR_PAD_RIGHT).$valor_comentario."\n";
}
}
if ($_POST["var_lenguaje"]=='php') {
$fun3cion.=") {\n";
}
$fun3cion.="/**\n";
$fun3cion.="* Funcion ".$_POST["var_lenguaje"].": permite verificar si existe el registro señalado en la tabla ".$_GET["var_tabla"]."\n";
$fun3cion.="*\n";
$fun3cion.="* Fecha: $var_fecha\n";
$fun3cion.="* @author $var_autor\n";
$fun3cion.="* @copyright Copyright (c), ".SISTEMA_EMPRESA." \n";
$fun3cion.="*\n";
$fun3cion.=$parametros;
$fun3cion.="*\n";
$fun3cion.="* @return true si la operacion es correcta, false si ocurre algun error\n";
$fun3cion.="* \t\t \n";
$fun3cion.="* \t\t \n";
$fun3cion.="*/\n";
if ($_POST["var_lenguaje"]=='php') {
$fun3cion.="\t".'$sql = "SELECT count(*) FROM '.$_GET["var_tabla"].' WHERE '."\n";
}
for($i = 0; $i <= $var_total; $i++) {
$t=trozo($var_conkey,$i,",")-1;
$valor_tipo = sql_fetch_result($result,$t,"tipo");
$valor_tipo=datphp2datsql($valor_tipo);
$valor_campo = sql_fetch_result($result,$t,"campo");
$valor_nulo = sql_fetch_result($result, $t,"No_nulo");
$valor_comentario = sql_fetch_result($result, $t,"comentario");
if ($i>0) {
if ($_POST["var_lenguaje"]=='php') {
$fun3cion.=" AND \n";
} elseif ($_POST["var_lenguaje"]=='phpplpgsql') {
$fun3cion.=",\n";
}
}
if ($_POST["var_lenguaje"]=='php') {
if ($valor_tipo=='int8' || $valor_tipo=='integer' || $valor_tipo=='numeric') {
$fun3cion.="\t\t$valor_campo=".'$var_'."$valor_campo";
} else {
$fun3cion.="\t\t$valor_campo='".'$var_'."$valor_campo'";
}
}
}
if ($_POST["var_lenguaje"]=='php') {
$fun3cion.="\n\t".'";'."\n";
$fun3cion.="\t".'if ($rs=sql_query($sql)) {'."\n";
$fun3cion.="\t\t".'list($total) = sql_fetch_row( $rs );'."\n";
$fun3cion.="\t\t".'if ($total>0) {'."\n";
$fun3cion.="\t\t\treturn true;\n";
$fun3cion.="\t\t}\n";
$fun3cion.="\t}\n";
$fun3cion.="\treturn false;\n";
$fun3cion.="}\n";
}
$fun4cion=$var_crear."function ".$_GET["var_tabla"]."_modificar_oid (";
$numero_filas = sql_num_rows($result);
$numero_columnas = sql_num_cols($result);
$parametros="";
for($i = 0; $i < $numero_filas; $i++) {
$valor_tipo = sql_fetch_result($result, $i,"tipo");
$valor_tipo=datphp2datsql($valor_tipo);
$valor_campo = sql_fetch_result($result, $i,"campo");
$valor_nulo = sql_fetch_result($result, $i,"No_nulo");
$valor_comentario = sql_fetch_result($result, $i,"comentario");
if ($i>0) {
$fun4cion.=",";
}
if ($_POST["var_lenguaje"]=='php') {
$fun4cion.='$var_'."$valor_campo";
$parametros.= str_pad("* @param ".$valor_tipo." \$".$valor_campo,40," ",STR_PAD_RIGHT).$valor_comentario."\n";
}
}
if ($_POST["var_lenguaje"]=='php') {
$fun4cion.=',$var_oid';
$fun4cion.=") {\n";
}
if ($_POST["var_lenguaje"]=='php') {
$fun4cion.="/**\n";
$fun4cion.="* Funcion ".$_POST["var_lenguaje"].": permite modificar un registro en la tabla ".$_GET["var_tabla"]."\n";
$fun4cion.="*\n";
$fun4cion.="* Fecha: $var_fecha\n";
$fun4cion.="* @author $var_autor\n";
$fun4cion.="* @copyright Copyright (c), ".SISTEMA_EMPRESA." \n";
$fun4cion.="*\n";
$fun4cion.=$parametros;
$fun4cion.="*\n";
$fun4cion.="* @return true si la operacion es correcta, false si ocurre algun error\n";
$fun4cion.="* \t\t \n";
$fun4cion.="* \t\t \n";
$fun4cion.="*/\n";
}
if ($_POST["var_lenguaje"]=='php') {
$fun4cion.="\t".'$sql = "UPDATE '.$_GET["var_tabla"].' SET '."\n";
}
for($i = 0; $i < $numero_filas; $i++) {
$valor_tipo = sql_fetch_result($result, $i,"tipo");
$valor_tipo=datphp2datsql($valor_tipo);
$valor_campo = sql_fetch_result($result, $i,"campo");
$valor_nulo = sql_fetch_result($result, $i,"No_nulo");
$valor_comentario = sql_fetch_result($result, $i,"comentario");
if ($i>0) {
$fun4cion.=",\n";
}
if ($_POST["var_lenguaje"]=='php') {
if ($valor_tipo=='int8' || $valor_tipo=='integer' || $valor_tipo=='numeric') {
$fun4cion.="\t\t$valor_campo=".'$var_'."$valor_campo";
} else {
$fun4cion.="\t\t$valor_campo='".'$var_'."$valor_campo'";
}
}
}
if ($_POST["var_lenguaje"]=='php') {
$fun4cion.="\n\t".'WHERE'."\n";
}
if ($_POST["var_lenguaje"]=='php') {
$fun4cion.="\t\toid=".'$var_oid'."";
}
if ($_POST["var_lenguaje"]=='php') {
$fun4cion.="\n\t".'";'."\n";
$fun4cion.="\t".'if (sql_query($sql)) {'."\n";
$fun4cion.="\t\treturn true;\n";
$fun4cion.="\t}\n";
$fun4cion.="\treturn false;\n";
$fun4cion.="}\n";
}
$fun5cion=$var_crear."function ".$_GET["var_tabla"]."_eliminar_oid (";
$numero_filas = sql_num_rows($result);
$numero_columnas = sql_num_cols($result);
if ($_POST["var_lenguaje"]=='php') {
$fun5cion.='$var_oid';
$fun5cion.=") {\n";
}
$fun5cion.="$__ ***********************************************************************************\n";
$fun5cion.="$__ * Funcion ".$_POST["var_lenguaje"].": permite borrar un registro en la tabla ".$_GET["var_tabla"]."\n";
$fun5cion.="$__ * Creada por: $var_autor\n";
$fun5cion.="$__ * Fecha: $var_fecha\n";
$fun5cion.="$__ * Datos de salida:\n";
$fun5cion.="$__ * \t\t true si la operacion es correcta\n";
$fun5cion.="$__ * \t\t false si ocurre algun error\n";
$fun5cion.="$__ ***********************************************************************************\n";
if ($_POST["var_lenguaje"]=='php') {
$fun5cion.="\t".'$sql = "DELETE FROM '.$_GET["var_tabla"]."\n";
}
if ($_POST["var_lenguaje"]=='php') {
$fun5cion.="\t".'WHERE'."\n";
}
if ($_POST["var_lenguaje"]=='php') {
$fun5cion.="\t\toid=".'$var_oid'."";
}
if ($_POST["var_lenguaje"]=='php') {
$fun5cion.="\n\t".'";'."\n";
$fun5cion.="\t".'if (sql_query($sql)) {'."\n";
$fun5cion.="\t\treturn true;\n";
$fun5cion.="\t}\n";
$fun5cion.="\treturn false;\n";
$fun5cion.="}\n";
}
$fun6cion=$var_crear."function ".$_GET["var_tabla"]."_eliminar (";
list($var_relfilenode) = sql_fetch_row(sql_query("SELECT relfilenode FROM pg_class WHERE relname='".$_GET["var_tabla"]."'"));
list($var_conkey) = sql_fetch_row(sql_query("SELECT conkey FROM pg_constraint WHERE conrelid='".$var_relfilenode."' AND contype='p'"));
$var_conkey=str_replace("{","",$var_conkey);
$var_conkey=str_replace("}","",$var_conkey);
$var_total=trozo($var_conkey,-1,",");
$parametros="";
for($i = 0; $i <= $var_total; $i++) {
$t=trozo($var_conkey,$i,",")-1;
$valor_tipo = sql_fetch_result($result,$t,"tipo");
$valor_tipo=datphp2datsql($valor_tipo);
$valor_campo = sql_fetch_result($result,$t,"campo");
$valor_nulo = sql_fetch_result($result, $t,"No_nulo");
$valor_comentario = sql_fetch_result($result, $t,"comentario");
if ($i>0) {
$fun6cion.=",";
}
if ($_POST["var_lenguaje"]=='php') {
$fun6cion.='$var_'."$valor_campo";
$parametros.= str_pad("* @param ".$valor_tipo." \$".$valor_campo,40," ",STR_PAD_RIGHT).$valor_comentario."\n";
}
}
$fun6cion.=") {\n";
if ($_POST["var_lenguaje"]=='php') {
$fun6cion.="/**\n";
$fun6cion.="* Funcion ".$_POST["var_lenguaje"].": permite eliminar un registro en la tabla ".$_GET["var_tabla"]."\n";
$fun6cion.="*\n";
$fun6cion.="* Fecha: $var_fecha\n";
$fun6cion.="* @author $var_autor\n";
$fun6cion.="* @copyright Copyright (c), ".SISTEMA_EMPRESA." \n";
$fun6cion.="*\n";
$fun6cion.=$parametros;
$fun6cion.="*\n";
$fun6cion.="* @return true si la operacion es correcta, false si ocurre algun error\n";
$fun6cion.="* \t\t \n";
$fun6cion.="* \t\t \n";
$fun6cion.="*/\n";
}
if ($_POST["var_lenguaje"]=='php') {
$fun6cion.="\t".'$sql = "DELETE FROM '.$_GET["var_tabla"]."\n";
}
if ($_POST["var_lenguaje"]=='php') {
$fun6cion.="\t".'WHERE'."\n";
}
for($i = 0; $i <= $var_total; $i++) {
$t=trozo($var_conkey,$i,",")-1;
$valor_tipo = sql_fetch_result($result,$t,"tipo");
$valor_tipo=datphp2datsql($valor_tipo);
$valor_campo = sql_fetch_result($result,$t,"campo");
$valor_nulo = sql_fetch_result($result, $t,"No_nulo");
$valor_comentario = sql_fetch_result($result, $t,"comentario");
if ($i>0) {
$fun6cion.=" AND \n";
}
if ($_POST["var_lenguaje"]=='php') {
if ($valor_tipo=='int8' || $valor_tipo=='integer' || $valor_tipo=='numeric') {
$fun6cion.="\t\t$valor_campo=".'$var_'."$valor_campo";
} else {
$fun6cion.="\t\t$valor_campo='".'$var_'."$valor_campo'";
}
}
}
if ($_POST["var_lenguaje"]=='php') {
$fun6cion.="\n\t".'";'."\n";
$fun6cion.="\t".'if (sql_query($sql)) {'."\n";
$fun6cion.="\t\treturn true;\n";
$fun6cion.="\t}\n";
$fun6cion.="\treturn false;\n";
$fun6cion.="}\n";
}
$fun7cion="";
$fun7cion.=$var_crear."function ".$_GET["var_tabla"]."_datos (";
list($var_relfilenode) = sql_fetch_row(sql_query("SELECT relfilenode FROM pg_class WHERE relname='".$_GET["var_tabla"]."'"));
list($var_conkey) = sql_fetch_row(sql_query("SELECT conkey FROM pg_constraint WHERE conrelid='".$var_relfilenode."' AND contype='p'"));
$var_conkey=str_replace("{","",$var_conkey);
$var_conkey=str_replace("}","",$var_conkey);
$var_total=trozo($var_conkey,-1,",");
$parametros="";
for($i = 0; $i <= $var_total; $i++) {
$t=trozo($var_conkey,$i,",")-1;
$valor_tipo = sql_fetch_result($result,$t,"tipo");
$valor_tipo=datphp2datsql($valor_tipo);
$valor_campo = sql_fetch_result($result,$t,"campo");
$valor_nulo = sql_fetch_result($result, $t,"No_nulo");
$valor_comentario = sql_fetch_result($result, $t,"comentario");
if ($i>0) {
$fun7cion.=",";
}
if ($_POST["var_lenguaje"]=='php') {
$fun7cion.='$var_'."$valor_campo";
$parametros.= str_pad("* @param ".$valor_tipo." \$".$valor_campo,40," ",STR_PAD_RIGHT).$valor_comentario."\n";
}
}
$fun7cion.=") {\n";
if ($_POST["var_lenguaje"]=='php') {
$fun7cion.="/**\n";
$fun7cion.="* Funcion ".$_POST["var_lenguaje"].": permite obtener los datos de un registro de la tabla ".$_GET["var_tabla"]."\n";
$fun7cion.="* \n";
$fun7cion.="* Fecha: $var_fecha\n";
$fun7cion.="* @author $var_autor\n";
$fun7cion.="* @copyright Copyright (c), ".SISTEMA_EMPRESA." \n";
$fun7cion.="* \n";
$fun7cion.=$parametros;
$fun7cion.="* \n";
$fun7cion.="* @return $".$_GET["var_tabla"]." Arreglo de una dimensión\n";
$fun7cion.="* \t\t \n";
$fun7cion.="* \t\t \n";
$fun7cion.="*/\n";
}
$fun7cion.="\t".'$'.$_GET["var_tabla"].' = array();'."\n";
$fun7cion.="\t".'$sql = "SELECT ';
for($i = 0; $i < $numero_filas; $i++) {
$valor_tipo = sql_fetch_result($result, $i,"tipo");
$valor_tipo=datphp2datsql($valor_tipo);
$valor_campo = sql_fetch_result($result, $i,"campo");
$valor_nulo = sql_fetch_result($result, $i,"No_nulo");
$valor_comentario = sql_fetch_result($result, $i,"comentario");
if ($i>0) {
$fun7cion.=",";
}
$fun7cion.="$valor_campo";
}
$fun7cion.=' FROM '."\n\t\t".$_GET["var_tabla"]."\n";
$fun7cion.="\t".'WHERE'."\n";
for($i = 0; $i <= $var_total; $i++) {
$t=trozo($var_conkey,$i,",")-1;
$valor_tipo = sql_fetch_result($result,$t,"tipo");
$valor_tipo=datphp2datsql($valor_tipo);
$valor_campo = sql_fetch_result($result,$t,"campo");
$valor_nulo = sql_fetch_result($result, $t,"No_nulo");
$valor_comentario = sql_fetch_result($result, $t,"comentario");
if ($i>0) {
$fun7cion.=" AND \n";
}
if ($_POST["var_lenguaje"]=='php') {
if ($valor_tipo=='int8' || $valor_tipo=='integer' || $valor_tipo=='numeric') {
$fun7cion.="\t\t$valor_campo=".'$var_'."$valor_campo";
} else {
$fun7cion.="\t\t$valor_campo='".'$var_'."$valor_campo'";
}
}
}
if ($_POST["var_lenguaje"]=='php') {
$fun7cion.="\n\t".'";'."\n";
}
$fun7cion.="\t".'if ($datos=sql_fetch_array(sql_query($sql))) {'."\n";
for($i = 0; $i < $numero_filas; $i++) {
$valor_tipo = sql_fetch_result($result, $i,"tipo");
$valor_tipo=datphp2datsql($valor_tipo);
$valor_campo = sql_fetch_result($result, $i,"campo");
$valor_nulo = sql_fetch_result($result, $i,"No_nulo");
$valor_comentario = sql_fetch_result($result, $i,"comentario");
if ($valor_tipo=='boolean') {
$fun7cion.="\t\t".'$'.$_GET["var_tabla"].'['."'$valor_campo'".'] = ($datos['."'$valor_campo'".']'."=='t')? 1:0;\n";
} else {
$fun7cion.="\t\t".'$'.$_GET["var_tabla"].'['."'$valor_campo'".'] = $datos['."'$valor_campo'".'];'."\n";
}
}
$fun7cion.="\t}\n";
$fun7cion.="\t".'return $'.$_GET["var_tabla"].';'."\n";
$fun7cion.="}\n";
$fun8cion=$var_crear."function ".$_GET["var_tabla"]."_lista () {\n";
if ($_POST["var_lenguaje"]=='php') {
$fun8cion.="/**\n";
$fun8cion.="* Funcion ".$_POST["var_lenguaje"].": permite obtener una lista de los registros de la tabla ".$_GET["var_tabla"]."\n";
$fun8cion.="*\n";
$fun8cion.="* Fecha: $var_fecha\n";
$fun8cion.="* @author $var_autor\n";
$fun8cion.="* @copyright Copyright (c), ".SISTEMA_EMPRESA." \n";
$fun8cion.="*\n";
$fun8cion.="* @return $".$_GET["var_tabla"]." Arreglo de dos dimensiones\n";
$fun8cion.="* \t\t \n";
$fun8cion.="* \t\t \n";
$fun8cion.="*/\n";
}
$fun8cion.="\t".'$'.$_GET["var_tabla"].' = array();'."\n";
$fun8cion.="\t".'$sql = "SELECT ';
for($i = 0; $i < $numero_filas; $i++) {
$valor_tipo = sql_fetch_result($result, $i,"tipo");
$valor_tipo=datphp2datsql($valor_tipo);
$valor_campo = sql_fetch_result($result, $i,"campo");
$valor_nulo = sql_fetch_result($result, $i,"No_nulo");
$valor_comentario = sql_fetch_result($result, $i,"comentario");
if ($i>0) {
$fun8cion.=",";
}
$fun8cion.="$valor_campo";
}
$fun8cion.=' FROM '."\n\t\t".$_GET["var_tabla"]."\n";
for($i = 0; $i <= $var_total; $i++) {
$t=trozo($var_conkey,$i,",")-1;
$valor_tipo = sql_fetch_result($result,$t,"tipo");
$valor_tipo=datphp2datsql($valor_tipo);
$valor_campo = sql_fetch_result($result,$t,"campo");
$valor_nulo = sql_fetch_result($result, $t,"No_nulo");
$valor_comentario = sql_fetch_result($result, $t,"comentario");
if ($i>0) {
$fun8cion.=", \n";
} else {
$fun8cion.="\tORDER BY \n";
}
$fun8cion.="\t\t$valor_campo";
}
$fun8cion.="\n\t".'";'."\n";
$fun8cion.="\t".'if ($rs=sql_query($sql)) {'."\n";
$fun8cion.="\t\t".'$i=0;'."\n";
$fun8cion.="\t\t".'while ($datos=sql_fetch_array($rs)) {'."\n";
for($i = 0; $i < $numero_filas; $i++) {
$valor_tipo = sql_fetch_result($result, $i,"tipo");
$valor_tipo=datphp2datsql($valor_tipo);
$valor_campo = sql_fetch_result($result, $i,"campo");
$valor_nulo = sql_fetch_result($result, $i,"No_nulo");
$valor_comentario = sql_fetch_result($result, $i,"comentario");
//if ($i>0) {
// $fun8cion.=",\n";
//}
if ($valor_tipo=='boolean') {
$fun8cion.="\t\t\t".'$'.$_GET["var_tabla"].'[$i]['."'$valor_campo'".'] = ($datos['."'$valor_campo'".']'."=='t')? 1:0;\n";
} else {
$fun8cion.="\t\t\t".'$'.$_GET["var_tabla"].'[$i]['."'$valor_campo'".'] = $datos['."'$valor_campo'".'];'."\n";
}
}
$fun8cion.="\t\t\t".'$i++;'."\n";
$fun8cion.="\t\t}\n";
$fun8cion.="\t}\n";
$fun8cion.="\t".'return $'.$_GET["var_tabla"].';'."\n";
$fun8cion.="}\n";
//---------xml refresh-----------
$fun9cion='if ( eregi("xml_'.$_GET["var_tabla"].'.php", $_SERVER["PHP_SELF"]) )'."\n";
$fun9cion.='{'."\n";
$fun9cion.="\t".'Header("Location: ../../index.php");'."\n";
$fun9cion.="\t".'exit();'."\n";
$fun9cion.='}'."\n";
$fun9cion.='switch ( $_POST['."'".'op'."'".'] )'."\n";
$fun9cion.='{'."\n";
$fun9cion.="\t".'case '."'".$_GET["var_tabla"]."_id': \n";
$fun9cion.="\t\t".'if ( ';
for($i = 0; $i <= $var_total; $i++) {
$t=trozo($var_conkey,$i,",")-1;
$r=$t+1;
$valor_tipo = sql_fetch_result($result,$t,"tipo");
$valor_tipo=datphp2datsql($valor_tipo);
$valor_campo = sql_fetch_result($result,$t,"campo");
$valor_nulo = sql_fetch_result($result, $t,"No_nulo");
$valor_comentario = sql_fetch_result($result, $t,"comentario");
if ($i>0) {
$fun9cion.=" && ";
}
$fun9cion.='isset($_POST['."'$valor_campo'".'])';
}
$fun9cion.=' ) {'."\n";
$fun9cion.="\t\t\t".'$'.$_GET["var_tabla"].'='.$_GET["var_tabla"].'_lista();'."\n";
$fun9cion.="\t\t\t".'for( $i=0; $i < count($'.$_GET["var_tabla"].'); $i++ ) {'."\n";
$fun9cion.="\t\t\t\t".'echo "\n";'."\n";
for($i = 0; $i < $numero_filas; $i++) {
$valor_tipo = sql_fetch_result($result, $i,"tipo");
$valor_tipo=datphp2datsql($valor_tipo);
$valor_campo = sql_fetch_result($result, $i,"campo");
$valor_nulo = sql_fetch_result($result, $i,"No_nulo");
$valor_comentario = sql_fetch_result($result, $i,"comentario");
$fun9cion.="\t\t\t\t".'echo "<'.$valor_campo.'>"'.".$".$_GET["var_tabla"]."".'[$i]'."['$valor_campo']".'."\n";'."\n";
//".$ciudades[$i]['id_ciu']."
}
$fun9cion.="\t\t\t\t".'echo "\n";'."\n";
$fun9cion.="\t\t\t".'}'."\n";
$fun9cion.="\t\t".'} break;'."\n";
$fun9cion.="".'}'."\n";
//---------modifi-----------
$fun10cion="";
$numero_filas = sql_num_rows($result);
$numero_columnas = sql_num_cols($result);
for($i = 0; $i < $numero_filas; $i++) {
$valor_tipo = sql_fetch_result($result, $i,"tipo");
$valor_tipo=datphp2datsql($valor_tipo);
$valor_campo = sql_fetch_result($result, $i,"campo");
$valor_nulo = sql_fetch_result($result, $i,"No_nulo");
$valor_comentario = sql_fetch_result($result, $i,"comentario");
}
$fun10cion.="include \"../../config.php\";\n";
$fun10cion.='$sistemaOpciones'."['modulo_titulo'] = \"Titulo\";\n";
$fun10cion.='$sistemaOpciones'."['modulo_imagen'] = \"\";\n";
$fun10cion.='$sistemaOpciones'."['modulo_descripcion'] = \"
\";\n";
$fun10cion.='$sistemaOpciones'."['modulo_ayuda'] = \"\";\n";
$fun10cion.="include SISTEMA_PATH.'/encabezado.php';\n";
$fun10cion.='echo "'."".'".$sistemaOpciones['."'modulo_titulo']".'."'."".'";'."\n";
$fun10cion.='pestana_abrir_grupo("Grupo");'."\n";
$fun10cion.='pestana_abrir("Grupo","Busqueda","Busqueda");'."\n";
$fun10cion.="\n";
$fun10cion.="\n";
$fun10cion.="\n";
$fun10cion.='pestana_cerrar();'."\n";
$fun10cion.='pestana_abrir("Grupo","Resultado","Resultado");'."\n";
$fun10cion.="\n";
//-->Estructura con registro segun lenguaje
$fun10cion.='$sql = "'."\t".'SELECT '."\n";
//<--Estructura con registro segun lenguaje
$r=0;
for($i = 0; $i < $numero_filas; $i++) {
$valor_tipo = sql_fetch_result($result, $i,"tipo");
$valor_tipo=datphp2datsql($valor_tipo);
$valor_campo = sql_fetch_result($result, $i,"campo");
$valor_nulo = sql_fetch_result($result, $i,"No_nulo");
$valor_comentario = sql_fetch_result($result, $i,"comentario");
if ($r>0) {
$fun10cion.=",\n";
}
$fun10cion.="\t\t$valor_campo";
$fun10cion.=' AS '.$valor_campo;
$r++;
}
$fun10cion.=" FROM ".$_GET["var_tabla"]." ";
$fun10cion.="\n\t".'WHERE'."\n";
list($var_relfilenode) = sql_fetch_row(sql_query("SELECT relfilenode FROM pg_class WHERE relname='".$_GET["var_tabla"]."'"));
list($var_conkey) = sql_fetch_row(sql_query("SELECT conkey FROM pg_constraint WHERE conrelid='".$var_relfilenode."' AND contype='p'"));
$var_conkey=str_replace("{","",$var_conkey);
$var_conkey=str_replace("}","",$var_conkey);
$var_total=trozo($var_conkey,-1,",");
for($i = 0; $i <= $var_total; $i++) {
$t=trozo($var_conkey,$i,",")-1;
$valor_tipo = sql_fetch_result($result,$t,"tipo");
$valor_tipo=datphp2datsql($valor_tipo);
$valor_campo = sql_fetch_result($result,$t,"campo");
$valor_nulo = sql_fetch_result($result, $t,"No_nulo");
$valor_comentario = sql_fetch_result($result, $t,"comentario");
if ($i>0) {
$fun10cion.=" AND \n";
}
//-->Declaracion de variables segun lenguaje
$fun10cion.="\t\t$valor_campo='".'".$_GET["var_'."$valor_campo\"]".'."'."'";
//<--Declaracion de variables segun lenguaje
}
//-->Fin estructura segun lenguaje
$fun10cion.="\n".'";'."\n";
$fun10cion.="".'$resultado=sql_query($sql);'."\n";
$fun10cion.='echo "'."".'";'."\n";
$fun10cion.='grilla("grilla_'.$_GET["var_tabla"].'",$resultado,1,"","orden2",1,"Examinador de ","",1);'."\n";
$fun10cion.='echo(" ");'."\n";
$fun10cion.="\n";
$fun10cion.='pestana_cerrar();'."\n";
$fun10cion.='pestana_cerrar_grupo();'."\n";
$fun10cion.="\n";
$fun10cion.='barra($sql);'."\n";
$fun10cion.="\n";
//$fun10cion.="include SISTEMA_PATH.'/cierre.php';\n";
//////////////-------------------------------------------------->>
$texto="";
if ($_POST["var_lenguaje"]=='php') {
if ($_POST["var_lenguaje"]=='php') {
$texto.="/**\n";
$texto.="* APIS generada para mantener la tabla ".$_GET["var_tabla"]."\n";
$texto.="*\n";
$texto.="* Fecha de creacion en general $var_fecha\n";
$texto.="* @author $var_autor\n";
$texto.="* @copyright Copyright (c), ".SISTEMA_EMPRESA." \n";
$texto.="*\n";
$texto.="*/\n";
}
}
if ($_POST["var_lenguaje"]=='php') {
if ($fun1cion) {
$texto.="\n\n\n";
$texto=$texto."$fun1cion"."\n";
$fun1cion=str_replace("\n","
",$fun1cion);
$fun1cion=str_replace("\t"," ",$fun1cion);
echo("$fun1cion");
}
if ($fun2cion) {
$texto.="\n\n\n";
$texto=$texto."$fun2cion"."\n";
$fun2cion=str_replace("\n","
",$fun2cion);
$fun2cion=str_replace("\t"," ",$fun2cion);
echo("$fun2cion");
}
if ($fun3cion) {
$texto.="\n\n\n";
$texto=$texto."$fun3cion"."\n";
$fun3cion=str_replace("\n","
",$fun3cion);
$fun3cion=str_replace("\t"," ",$fun3cion);
echo("$fun3cion");
}
if ($fun6cion) {
$texto.="\n\n\n";
$texto=$texto."$fun6cion"."\n";
$fun6cion=str_replace("\n","
",$fun6cion);
$fun6cion=str_replace("\t"," ",$fun6cion);
echo("$fun6cion");
}
}
if ($fun7cion) {
$texto.="\n\n\n";
$texto=$texto."$fun7cion"."\n";
$fun7cion=str_replace("\n","
",$fun7cion);
$fun7cion=str_replace("\t"," ",$fun7cion);
echo("$fun7cion");
}
if ($_POST["var_lenguaje"]=='php') {
if ($fun8cion) {
$texto.="\n\n\n";
$texto=$texto."$fun8cion"."\n";
$fun8cion=str_replace("\n","
",$fun8cion);
$fun8cion=str_replace("\t"," ",$fun8cion);
echo("$fun8cion");
}
}
$fp = fopen (SISTEMA_PATH."/".$ver_directorio."/".$var_archivo, "w+");
if ($_POST["var_lenguaje"]=='php') {
$texto=str_replace("var_",'',$texto);
fputs ($fp,"");
}
fclose ($fp);
$salida = shell_exec('echo "print" | sudo -S -k /bin/chmod 777 '.SISTEMA_PATH.'/'.$ver_directorio.'/'.$var_archivo);
} else {
if (isset($_POST["var_lenguaje"]) && $_POST["var_lenguaje"]=='soap') {
$ws1="";
$ws1.="\n".'ini_set(\'display_errors\',\'On\');';
$ws1.="\n".'error_reporting(E_PARSE);';
$ws1.="\n";
$ws1.="\n".'include \'config.php\';';
$ws1.="\n".'require_once SISTEMA_PATH.\'/includes/database/db.php\';';
$ws1.="\n".'require_once SISTEMA_PATH.\'/includes/date.php\';';
$ws1.="\n".'require_once SISTEMA_PATH.\'/apis/nucleo/generales/sistema_tabla_auditada.php\';';
$ws1.="\n".'require_once SISTEMA_PATH.\'/includes/usuario.php\';';
$ws1.="\n".'require_once SISTEMA_PATH.\'/apis/nucleo/persona.php\';';
$ws1.="\n\n".'include \'nusoap.php\';';
$ws1.="\n".'$server = new soap_server;';
$ws1.="\n".'$ns="http://localhost/webservices/";';
$ws1.="\n".'$server->configurewsdl("ws_'.$_GET["var_tabla"].'",$ns);';
$ws1.="\n".'$server->wsdl->schematargetnamespace=$ns;';
$ws1.="\n".'$server->soap_defencoding = \'UTF-8\';';
$ws1.="\n".'$server->decode_utf8 = false;';
//AGREGAR
$ws1.="\n\n".'$server->register(';
$ws1.="\n".' \''.$_GET["var_tabla"].'_agregar\',';
$parametros1="";
$sql = "
SELECT
a.attname as campo,
t.typname as tipo,
a.atttypmod-4 as largo,
pg_catalog.col_description(a.attrelid, a.attnum) as comentario,
Attnotnull as no_nulo,
CASE WHEN (SELECT alias_cam FROM alias_campos where campo_cam=a.attname) IS NOT NULL THEN
''
ELSE
''
END as alias
FROM
pg_catalog.pg_attribute a LEFT JOIN pg_catalog.pg_attrdef adef
ON a.attrelid=adef.adrelid
AND a.attnum=adef.adnum
LEFT JOIN pg_catalog.pg_type t ON a.atttypid=t.oid
WHERE
a.attrelid = (SELECT oid FROM pg_catalog.pg_class WHERE relname='".$_GET["var_tabla"]."'
AND relnamespace = (SELECT oid FROM pg_catalog.pg_namespace WHERE
nspname = 'public'))
AND a.attnum > 0 AND NOT a.attisdropped
ORDER BY a.attnum;
";
$numero_filas = sql_num_rows($result);
$numero_columnas = sql_num_cols($result);
$var_total=sql_num_rows($result);
for($i = 0; $i < $var_total; $i++) {
$valor_tipo = sql_fetch_result($result, $i,"tipo");
$valor_tipo=datphp2datsql($valor_tipo);
$valor_campo = sql_fetch_result($result, $i,"campo");
$valor_nulo = sql_fetch_result($result, $i,"No_nulo");
$valor_comentario = sql_fetch_result($result, $i,"comentario");
$parametros1.="'$valor_campo' => 'xsd:";
if ($valor_tipo=='int8' || $valor_tipo=='int4' || $valor_tipo=='int2' || $valor_tipo=='integer') {
$parametros1.='int';
}
if ($valor_tipo=='numeric') {
$parametros1.='float';
}
if ($valor_tipo=='varchar' || $valor_tipo=='text') {
$parametros1.='string';
}
if ($valor_tipo=='date') {
$parametros1.='string';
}
if ($valor_tipo=='boolean') {
$parametros1.='boolean';
}
if ($valor_tipo=='time') {
$parametros1.='string';
}
$parametros1.='\'';
if ($i+1!=$var_total) {
$parametros1.=",";
}
}
$ws1.="\n".' array('.$parametros1.'),';
$ws1.="\n".' array(\'return\'=>\'xsd:boolean\'),';
$ws1.="\n".' $ns' ;
$ws1.=', // Nombre del workspace';
$ws1.="\n".' \'\', //Acción soap';
$ws1.="\n".' \'rpc\', //Estilo';
$ws1.="\n".' \'encoded\', //uso';
$ws1.="\n".' \'agrega registro a '.$_GET["var_tabla"].'\' //Documentación';
$ws1.="\n".' );';
//MODIFICAR
$ws1.="\n\n".'$server->register(';
$ws1.="\n".' \''.$_GET["var_tabla"].'_modificar\',';
$parametros1="";
$sql = "
SELECT
a.attname as campo,
t.typname as tipo,
a.atttypmod-4 as largo,
pg_catalog.col_description(a.attrelid, a.attnum) as comentario,
Attnotnull as no_nulo,
CASE WHEN (SELECT alias_cam FROM alias_campos where campo_cam=a.attname) IS NOT NULL THEN
''
ELSE
''
END as alias
FROM
pg_catalog.pg_attribute a LEFT JOIN pg_catalog.pg_attrdef adef
ON a.attrelid=adef.adrelid
AND a.attnum=adef.adnum
LEFT JOIN pg_catalog.pg_type t ON a.atttypid=t.oid
WHERE
a.attrelid = (SELECT oid FROM pg_catalog.pg_class WHERE relname='".$_GET["var_tabla"]."'
AND relnamespace = (SELECT oid FROM pg_catalog.pg_namespace WHERE
nspname = 'public'))
AND a.attnum > 0 AND NOT a.attisdropped
ORDER BY a.attnum;
";
$numero_filas = sql_num_rows($result);
$numero_columnas = sql_num_cols($result);
$var_total=sql_num_rows($result);
for($i = 0; $i < $var_total; $i++) {
$valor_tipo = sql_fetch_result($result, $i,"tipo");
$valor_tipo=datphp2datsql($valor_tipo);
$valor_campo = sql_fetch_result($result, $i,"campo");
$valor_nulo = sql_fetch_result($result, $i,"No_nulo");
$valor_comentario = sql_fetch_result($result, $i,"comentario");
$parametros1.="'$valor_campo' => 'xsd:";
if ($valor_tipo=='int8' || $valor_tipo=='int4' || $valor_tipo=='int2' || $valor_tipo=='integer') {
$parametros1.='int';
}
if ($valor_tipo=='numeric') {
$parametros1.='float';
}
if ($valor_tipo=='varchar' || $valor_tipo=='text') {
$parametros1.='string';
}
if ($valor_tipo=='date') {
$parametros1.='string';
}
if ($valor_tipo=='boolean') {
$parametros1.='boolean';
}
if ($valor_tipo=='time') {
$parametros1.='string';
}
$parametros1.='\'';
if ($i+1!=$var_total) {
$parametros1.=",";
}
}
$ws1.="\n".' array('.$parametros1.'),';
$ws1.="\n".' array(\'return\'=>\'xsd:boolean\'),';
$ws1.="\n".' $ns';
$ws1.=', // Nombre del workspace';
$ws1.="\n".' \'\', //Acción soap';
$ws1.="\n".' \'rpc\', //Estilo';
$ws1.="\n".' \'encoded\', //uso';
$ws1.="\n".' \'modifica registro a '.$_GET["var_tabla"].'\' //Documentación';
$ws1.="\n".' );';
//EXISTE
$ws1.="\n\n".'$server->register(';
$ws1.="\n".' \''.$_GET["var_tabla"].'_existe\',';
$parametros1="";
list($var_relfilenode) = sql_fetch_row(sql_query("SELECT relfilenode FROM pg_class WHERE relname='".$_GET["var_tabla"]."'"));
list($var_conkey) = sql_fetch_row(sql_query("SELECT conkey FROM pg_constraint WHERE conrelid='".$var_relfilenode."' AND contype='p'"));
$var_conkey=str_replace("{","",$var_conkey);
$var_conkey=str_replace("}","",$var_conkey);
$var_total=trozo($var_conkey,-1,",");
for($i = 0; $i <= $var_total; $i++) {
$t=trozo($var_conkey,$i,",")-1;
$valor_tipo = sql_fetch_result($result,$t,"tipo");
$valor_tipo=datphp2datsql($valor_tipo);
$valor_campo = sql_fetch_result($result,$t,"campo");
$valor_nulo = sql_fetch_result($result, $t,"No_nulo");
$valor_comentario = sql_fetch_result($result, $t,"comentario");
$parametros1.="'$valor_campo' => 'xsd:";
if ($valor_tipo=='int8' || $valor_tipo=='int4' || $valor_tipo=='int2' || $valor_tipo=='integer') {
$parametros1.='int';
}
if ($valor_tipo=='numeric') {
$parametros1.='float';
}
if ($valor_tipo=='varchar' || $valor_tipo=='text') {
$parametros1.='string';
}
if ($valor_tipo=='date') {
$parametros1.='string';
}
if ($valor_tipo=='boolean') {
$parametros1.='boolean';
}
if ($valor_tipo=='time') {
$parametros1.='string';
}
$parametros1.='\'';
if ($i!=$var_total) {
$parametros1.=",";
}
}
$ws1.="\n".' array('.$parametros1.'),';
$ws1.="\n".' array(\'return\'=>\'xsd:boolean\'),';
$ws1.="\n".' $ns';
$ws1.="\n".' );';
//ELIMINAR
$ws1.="\n\n".'$server->register(';
$ws1.="\n".' \''.$_GET["var_tabla"].'_eliminar\',';
$parametros1="";
list($var_relfilenode) = sql_fetch_row(sql_query("SELECT relfilenode FROM pg_class WHERE relname='".$_GET["var_tabla"]."'"));
list($var_conkey) = sql_fetch_row(sql_query("SELECT conkey FROM pg_constraint WHERE conrelid='".$var_relfilenode."' AND contype='p'"));
$var_conkey=str_replace("{","",$var_conkey);
$var_conkey=str_replace("}","",$var_conkey);
$var_total=trozo($var_conkey,-1,",");
for($i = 0; $i <= $var_total; $i++) {
$t=trozo($var_conkey,$i,",")-1;
$valor_tipo = sql_fetch_result($result,$t,"tipo");
$valor_tipo=datphp2datsql($valor_tipo);
$valor_campo = sql_fetch_result($result,$t,"campo");
$valor_nulo = sql_fetch_result($result, $t,"No_nulo");
$valor_comentario = sql_fetch_result($result, $t,"comentario");
$parametros1.="'$valor_campo' => 'xsd:";
if ($valor_tipo=='int8' || $valor_tipo=='int4' || $valor_tipo=='int2' || $valor_tipo=='integer') {
$parametros1.='int';
}
if ($valor_tipo=='numeric') {
$parametros1.='float';
}
if ($valor_tipo=='varchar' || $valor_tipo=='text') {
$parametros1.='string';
}
if ($valor_tipo=='date') {
$parametros1.='string';
}
if ($valor_tipo=='boolean') {
$parametros1.='boolean';
}
if ($valor_tipo=='time') {
$parametros1.='string';
}
$parametros1.='\'';
if ($i!=$var_total) {
$parametros1.=",";
}
}
$ws1.="\n".' array('.$parametros1.'),';
$ws1.="\n".' array(\'return\'=>\'xsd:boolean\'),';
$ws1.="\n".' $ns';
$ws1.=', // Nombre del workspace';
$ws1.="\n".' \'\', //Acción soap';
$ws1.="\n".' \'rpc\', //Estilo';
$ws1.="\n".' \'encoded\', //uso';
$ws1.="\n".' \'elimina registro a '.$_GET["var_tabla"].'\' //Documentación';
$ws1.="\n".' );';
/*
$server->wsdl->addComplexType(
'array_pais_datos',
'complexType',
'array',
'',
'SOAP-ENC:Array',
array(),
array(
array('ref' => 'SOAP-ENC:arrayType','wsdl:arrayType' => 'xsd:string[]')
),
'xsd:string');
$server->register(
"pais_datos",
array('id_pss' => 'xsd:int'),
array('return' => 'xsd:Array'),
$ns,
'');
*/
//DATOS
$ws1.="\n\n".'$server->wsdl->addComplexType(';
$ws1.="\n".' \'array_'.$_GET["var_tabla"].'_datos\',';
$ws1.="\n".' \'complexType\',';
$ws1.="\n".' \'array\',';
$ws1.="\n".' \'\',';
$ws1.="\n".' \'SOAP-ENC:Array\',';
$ws1.="\n".' array(),';
$ws1.="\n".' array(';
$ws1.="\n".' array(\'ref\' => \'SOAP-ENC:arrayType\',\'wsdl:arrayType\' => \'xsd:string[]\')';
$ws1.="\n".' ),';
$ws1.="\n".' \'xsd:string\'';
$ws1.="\n".' );';
$ws1.="\n".'$server->register(';
$ws1.="\n".' \''.$_GET["var_tabla"].'_datos\',';
$parametros1="";
list($var_relfilenode) = sql_fetch_row(sql_query("SELECT relfilenode FROM pg_class WHERE relname='".$_GET["var_tabla"]."'"));
list($var_conkey) = sql_fetch_row(sql_query("SELECT conkey FROM pg_constraint WHERE conrelid='".$var_relfilenode."' AND contype='p'"));
$var_conkey=str_replace("{","",$var_conkey);
$var_conkey=str_replace("}","",$var_conkey);
$var_total=trozo($var_conkey,-1,",");
for($i = 0; $i <= $var_total; $i++) {
$t=trozo($var_conkey,$i,",")-1;
$valor_tipo = sql_fetch_result($result,$t,"tipo");
$valor_tipo=datphp2datsql($valor_tipo);
$valor_campo = sql_fetch_result($result,$t,"campo");
$valor_nulo = sql_fetch_result($result, $t,"No_nulo");
$valor_comentario = sql_fetch_result($result, $t,"comentario");
$parametros1.="'$valor_campo' => 'xsd:";
if ($valor_tipo=='int8' || $valor_tipo=='int4' || $valor_tipo=='int2' || $valor_tipo=='integer') {
$parametros1.='int';
}
if ($valor_tipo=='numeric') {
$parametros1.='float';
}
if ($valor_tipo=='varchar' || $valor_tipo=='text') {
$parametros1.='string';
}
if ($valor_tipo=='date') {
$parametros1.='string';
}
if ($valor_tipo=='boolean') {
$parametros1.='boolean';
}
if ($valor_tipo=='time') {
$parametros1.='string';
}
$parametros1.='\'';
if ($i!=$var_total) {
$parametros1.=",";
}
}
$ws1.="\n".' array('.$parametros1.'),';
$ws1.="\n".' array(\'return\'=>\'xsd:Array\'),';
$ws1.="\n".' $ns';
$ws1.=', // Nombre del workspace';
$ws1.="\n".' \'\', //Acción soap';
$ws1.="\n".' \'rpc\', //Estilo';
$ws1.="\n".' \'encoded\', //uso';
$ws1.="\n".' \'retorna arreglo unidimensional sobre '.$_GET["var_tabla"].'\' //Documentación';
$ws1.="\n".' );';
//LISTA
$ws1.="\n\n".'$server->wsdl->addComplexType(';
$ws1.="\n".' \'array_'.$_GET["var_tabla"].'_lista\',';
$ws1.="\n".' \'complexType\',';
$ws1.="\n".' \'array\',';
$ws1.="\n".' \'\',';
$ws1.="\n".' \'SOAP-ENC:Array\',';
$ws1.="\n".' array(),';
$ws1.="\n".' array(';
$ws1.="\n".' array(\'ref\' => \'SOAP-ENC:arrayType\',\'wsdl:arrayType\' => \'tns:tns_'.$_GET["var_tabla"].'_lista[]\')';
$ws1.="\n".' ),';
$ws1.="\n".' \'tns:tns_'.$_GET["var_tabla"].'_lista\'';
$ws1.="\n".' );';
$ws1.="\n".'$server->wsdl->addComplexType(\'tns_'.$_GET["var_tabla"].'_lista\',\'complexType\',\'struct\',\'all\',\'\',';
$ws1.="\n".' array(';
$numero_filas = sql_num_rows($result);
$numero_columnas = sql_num_cols($result);
for($i = 0; $i < $numero_filas; $i++) {
$valor_tipo = sql_fetch_result($result, $i,"tipo");
$valor_tipo=datphp2datsql($valor_tipo);
$valor_campo = sql_fetch_result($result, $i,"campo");
$valor_nulo = sql_fetch_result($result, $i,"No_nulo");
$valor_comentario = sql_fetch_result($result, $i,"comentario");
$ws1.="\n\t\t".'\''.$valor_campo.'\'=> array(\'name\' => \''.$valor_campo.'\',\'type\'=>\'xsd:';
if ($valor_tipo=='int8' || $valor_tipo=='int4' || $valor_tipo=='int2' || $valor_tipo=='integer') {
$ws1.='int';
}
if ($valor_tipo=='numeric') {
$ws1.='float';
}
if ($valor_tipo=='varchar' || $valor_tipo=='text') {
$ws1.='string';
}
if ($valor_tipo=='date') {
$ws1.='string';
}
if ($valor_tipo=='boolean') {
$ws1.='boolean';
}
if ($valor_tipo=='time') {
$ws1.='string';
}
$ws1.='\')';
if ($i+1!=$numero_filas) {
$ws1.=",";
}
}
$ws1.="\n".' )';
$ws1.="\n".' );';
$ws1.="\n".'$server->register(';
$ws1.="\n".' \''.$_GET["var_tabla"].'_lista\',';
$parametros1="";
list($var_relfilenode) = sql_fetch_row(sql_query("SELECT relfilenode FROM pg_class WHERE relname='".$_GET["var_tabla"]."'"));
list($var_conkey) = sql_fetch_row(sql_query("SELECT conkey FROM pg_constraint WHERE conrelid='".$var_relfilenode."' AND contype='p'"));
$var_conkey=str_replace("{","",$var_conkey);
$var_conkey=str_replace("}","",$var_conkey);
$var_total=trozo($var_conkey,-1,",");
for($i = 0; $i <= $var_total; $i++) {
$t=trozo($var_conkey,$i,",")-1;
$valor_tipo = sql_fetch_result($result,$t,"tipo");
$valor_tipo=datphp2datsql($valor_tipo);
$valor_campo = sql_fetch_result($result,$t,"campo");
$valor_nulo = sql_fetch_result($result, $t,"No_nulo");
$valor_comentario = sql_fetch_result($result, $t,"comentario");
$parametros1.="'$valor_campo' => 'xsd:";
if ($valor_tipo=='int8' || $valor_tipo=='int4' || $valor_tipo=='int2' || $valor_tipo=='integer') {
$parametros1.='int';
}
if ($valor_tipo=='numeric') {
$parametros1.='float';
}
if ($valor_tipo=='varchar' || $valor_tipo=='text') {
$parametros1.='string';
}
if ($valor_tipo=='date') {
$parametros1.='string';
}
if ($valor_tipo=='boolean') {
$parametros1.='boolean';
}
if ($valor_tipo=='time') {
$parametros1.='string';
}
$parametros1.='\'';
if ($i!=$var_total) {
$parametros1.=",";
}
}
$ws1.="\n".' array('.$parametros1.'),';
$ws1.="\n".' array(\'return\'=>\'tns:array_'.$_GET["var_tabla"].'_lista\'),';
$ws1.="\n".' $ns';
$ws1.=', // Nombre del workspace';
$ws1.="\n".' \'\', //Acción soap';
$ws1.="\n".' \'rpc\', //Estilo';
$ws1.="\n".' \'encoded\', //uso';
$ws1.="\n".' \'retorna arreglo multidimensional sobre '.$_GET["var_tabla"].'\' //Documentación';
$ws1.="\n".' );';
$ws1.="\n".'$input=(isset($HTTP_RAW_POST_DATA)) ? $HTTP_RAW_POST_DATA : implode("\r\n",file(\'php://input\'));';
$ws1.="\n".'$server->service($input);';
$ws1.="\n".'exit;';
$ws1.="\n".'?>';
echo "".$ws1." ";
} else {
$numero_filas = sql_num_rows($result);
$numero_columnas = sql_num_cols($result);
$crud="";
$crud.="\nnewPacket();
switch (\$_POST['op']) {
case 'buscar_".$_GET["var_tabla"]."':
\$".$_GET["var_tabla"]."_datos=".$_GET["var_tabla"]."_datos(";
list($var_relfilenode) = sql_fetch_row(sql_query("SELECT relfilenode FROM pg_class WHERE relname='".$_GET["var_tabla"]."'"));
list($var_conkey) = sql_fetch_row(sql_query("SELECT conkey FROM pg_constraint WHERE conrelid='".$var_relfilenode."' AND contype='p'"));
$var_conkey=str_replace("{","",$var_conkey);
$var_conkey=str_replace("}","",$var_conkey);
$var_total=trozo($var_conkey,-1,",");
for($i = 0; $i <= $var_total; $i++) {
$t=trozo($var_conkey,$i,",")-1;
$valor_tipo = sql_fetch_result($result,$t,"tipo");
$valor_tipo=datphp2datsql($valor_tipo);
$valor_campo = sql_fetch_result($result,$t,"campo");
$valor_nulo = sql_fetch_result($result, $t,"No_nulo");
$valor_comentario = sql_fetch_result($result, $t,"comentario");
$crud.=($i==0)?"\$_POST['".$valor_campo."']":",\$_POST['".$valor_campo."']";
}
$crud.=");
\$serializador->addVars(\$varSer,\"".$_GET["var_tabla"]."_datos\",\$".$_GET["var_tabla"]."_datos);
break;
case 'buscar_".$_GET["var_tabla"]."_lista':
\$".$_GET["var_tabla"]."_lista=".$_GET["var_tabla"]."_lista(";
list($var_relfilenode) = sql_fetch_row(sql_query("SELECT relfilenode FROM pg_class WHERE relname='".$_GET["var_tabla"]."'"));
list($var_conkey) = sql_fetch_row(sql_query("SELECT conkey FROM pg_constraint WHERE conrelid='".$var_relfilenode."' AND contype='p'"));
$var_conkey=str_replace("{","",$var_conkey);
$var_conkey=str_replace("}","",$var_conkey);
$var_total=trozo($var_conkey,-1,",");
for($i = 0; $i <= $var_total; $i++) {
$t=trozo($var_conkey,$i,",")-1;
$valor_tipo = sql_fetch_result($result,$t,"tipo");
$valor_tipo=datphp2datsql($valor_tipo);
$valor_campo = sql_fetch_result($result,$t,"campo");
$valor_nulo = sql_fetch_result($result, $t,"No_nulo");
$valor_comentario = sql_fetch_result($result, $t,"comentario");
$crud.=($i==0)?"\$_POST['".$valor_campo."']":",\$_POST['".$valor_campo."']";
}
$crud.=");
\$serializador->addVars(\$varSer,\"".$_GET["var_tabla"]."_lista\",\$".$_GET["var_tabla"]."_lista);
break;
case 'eliminar_".$_GET["var_tabla"]."':
\$mensaje=\$error=\$error_sql=\"\";
\$mensaje=\"".$_GET["var_tabla"]." Eliminado con éxito...\";
\$".$_GET["var_tabla"]."_eliminar=".$_GET["var_tabla"]."_eliminar(";
list($var_relfilenode) = sql_fetch_row(sql_query("SELECT relfilenode FROM pg_class WHERE relname='".$_GET["var_tabla"]."'"));
list($var_conkey) = sql_fetch_row(sql_query("SELECT conkey FROM pg_constraint WHERE conrelid='".$var_relfilenode."' AND contype='p'"));
$var_conkey=str_replace("{","",$var_conkey);
$var_conkey=str_replace("}","",$var_conkey);
$var_total=trozo($var_conkey,-1,",");
for($i = 0; $i <= $var_total; $i++) {
$t=trozo($var_conkey,$i,",")-1;
$valor_tipo = sql_fetch_result($result,$t,"tipo");
$valor_tipo=datphp2datsql($valor_tipo);
$valor_campo = sql_fetch_result($result,$t,"campo");
$valor_nulo = sql_fetch_result($result, $t,"No_nulo");
$valor_comentario = sql_fetch_result($result, $t,"comentario");
$crud.=($i==0)?"\$_POST['".$valor_campo."']":",\$_POST['".$valor_campo."']";
}
$crud.=");
if (!\$".$_GET["var_tabla"]."_eliminar) {
\$error.=\"No se pudo eliminar ".$_GET["var_tabla"]."\";
}
\$serializador->addVars(\$varSer,\"".$_GET["var_tabla"]."_eliminar\",\$".$_GET["var_tabla"]."_eliminar);
\$error_sql=sql_error_conection(1);
\$serializador->addVars(\$varSer,\"mensaje\",\$mensaje,'error',\$error,'error_sql',\$error_sql);
break;
case 'guardar_".$_GET["var_tabla"]."':
\$mensaje=\$error=\$error_sql=\"\";
\$mensaje=\"".$_GET["var_tabla"]." Guardado con éxito...\";
if (!".$_GET["var_tabla"]."_existe(";
list($var_relfilenode) = sql_fetch_row(sql_query("SELECT relfilenode FROM pg_class WHERE relname='".$_GET["var_tabla"]."'"));
list($var_conkey) = sql_fetch_row(sql_query("SELECT conkey FROM pg_constraint WHERE conrelid='".$var_relfilenode."' AND contype='p'"));
$var_conkey=str_replace("{","",$var_conkey);
$var_conkey=str_replace("}","",$var_conkey);
$var_total=trozo($var_conkey,-1,",");
for($i = 0; $i <= $var_total; $i++) {
$t=trozo($var_conkey,$i,",")-1;
$valor_tipo = sql_fetch_result($result,$t,"tipo");
$valor_tipo=datphp2datsql($valor_tipo);
$valor_campo = sql_fetch_result($result,$t,"campo");
$valor_nulo = sql_fetch_result($result, $t,"No_nulo");
$valor_comentario = sql_fetch_result($result, $t,"comentario");
$crud.=($i==0)?"\$_POST['".$valor_campo."']":",\$_POST['".$valor_campo."']";
}
$crud.=")) {
\$".$_GET["var_tabla"]."_agregar=".$_GET["var_tabla"]."_agregar(";
for($i = 0; $i < $numero_filas; $i++) {
$valor_tipo = sql_fetch_result($result, $i,"tipo");
$valor_tipo=datphp2datsql($valor_tipo);
$valor_campo = sql_fetch_result($result, $i,"campo");
$valor_nulo = sql_fetch_result($result, $i,"No_nulo");
$valor_comentario = sql_fetch_result($result, $i,"comentario");
$crud.=($i==0)?"\$_POST['".$valor_campo."']":",\$_POST['".$valor_campo."']";
}
$crud.=");
if (!\$".$_GET["var_tabla"]."_agregar) {
\$error.=\"No se pudo agregar ".$_GET["var_tabla"]."\";
}
\$serializador->addVars(\$varSer,\"".$_GET["var_tabla"]."_agregar\",\$".$_GET["var_tabla"]."_agregar);
} else {
\$".$_GET["var_tabla"]."_modificar=".$_GET["var_tabla"]."_modificar(";
for($i = 0; $i < $numero_filas; $i++) {
$valor_tipo = sql_fetch_result($result, $i,"tipo");
$valor_tipo=datphp2datsql($valor_tipo);
$valor_campo = sql_fetch_result($result, $i,"campo");
$valor_nulo = sql_fetch_result($result, $i,"No_nulo");
$valor_comentario = sql_fetch_result($result, $i,"comentario");
$crud.=($i==0)?"\$_POST['".$valor_campo."']":",\$_POST['".$valor_campo."']";
}
$crud.=");
if (!\$".$_GET["var_tabla"]."_modificar) {
\$error.=\"No se pudo modificar ".$_GET["var_tabla"]."\";
}
\$serializador->addVars(\$varSer,\"".$_GET["var_tabla"]."_modificar\",\$".$_GET["var_tabla"]."_modificar);
}
\$error_sql=sql_error_conection(1);
\$serializador->addVars(\$varSer,\"mensaje\",\$mensaje,'error',\$error,'error_sql',\$error_sql);
break;
}
echo \$serializador->endPacket(\$varSer);
exit();
}
if (isset(\$_GET['op'])) {
header('Content-Type: text/plain; charset=UTF-8');
switch (\$_GET['op']) {
case 'imprimir_".$_GET["var_tabla"]."':
\$pdf = new TCPDF(\"P\", \"pt\", \"LETTER\", true);
\$pdf->SetTitle('Titulo');
\$pdf->SetAuthor(usuario_name());
\$pdf->SetSubject('Titulo');
\$pdf->SetCreator('Departamento de Sistemas');
\$pdf->SetMargins(\"30\", \"30\", \"30\");
\$pdf->AddPage();
\$pdf->SetFont(\"veramo\", \"i\", 10);
\$pdf->Image(SISTEMA_PATH.\"/\".SISTEMA_LOGO_MINI,26,26,80);
\$pdf->addtext(460,30,8,\"Fecha Emisión:\");
\$pdf->addtext(530,30,8,date(\"d/m/Y\",time()));
\$pdf->addtext(160,\$pdf->GetY()+10,15,\"Titulo\");
\$pdf->SetY(\$pdf->GetY()+100);
\$pdf->addtext(30,\$pdf->GetY(),10,\"url = \".\$_GET['url']);
\$pdf->Output();
break;
}
exit();
}
?>
";
if (!isset($_POST['columnas_crud'])) {
$columnas=3;
} else {
$columnas=$_POST['columnas_crud'];
}
$num_clase=(12-$columnas)/$columnas;
/*
$crud.="
";
*/
$crud.="
";
$seleccionar="![](\"imagenes/agregar.png\")
";
echo $seleccionar;
echo highlight_string($crud,true);
}
}
echo(" |