}
if($ls_operacion=="GUARDAR")
{
$ls_codemp=$la_emp["codemp"];
$ls_existe="C";
$ls_comprobante=$_POST["txtcomprobante"];
$ld_fecha=$_POST["txtfecha"];
$ls_procedencia=$_POST["txtproccomp"];
$ls_descripcion=$_POST["txtdesccomp"];
$ls_tipo="-";
$int_int->is_tipo=$ls_tipo;
$int_int->is_cod_prov="----------";
$int_int->is_ced_ben="----------";
$int_int->ib_procesando_cmp=false;
$int_int->is_fecha=$fun->uf_convertirdatetobd($ld_fecha);
$ls_codban = "---";
$ls_ctaban = "-------------------------";
$ls_codemp=$la_emp["codemp"];
$ls_fuefin = $_POST["cmbfuefin"];
$ls_coduniadm = $_POST["txtuniadm"];
$ls_denuniadm = $_POST["txtdenuni"];
$ls_contipo= $_POST["tipomod"];
$ls_codtipo= $_POST["codtipomod"];
$lb_valido=$int_fec->uf_valida_fecha_periodo($ld_fecha,$ls_codemp);
if(!($lb_valido))
{
$msg->message($int_fec->is_msg_error);
$lb_valido=$io_obra->uf_select_obra($ls_codobr,$la_data);
if($lb_valido)
{
$ls_desobr=$la_data["desobr"][1];
$ls_estobr=$la_data["desest"][1];
$ls_munobr=$la_data["denmun"][1];
$ls_comobr=$la_data["nomcom"][1];
$ls_parobr=$la_data["denpar"][1];
$ls_dirobr=$la_data["dirobr"][1];
}
}
}
elseif($ls_operacion=="ue_guardar")
{
$ls_fecact=$io_function->uf_convertirdatetobd($ls_fecact);
$ls_feciniact=$io_function->uf_convertirdatetobd($ls_feciniact);
$ls_fecfinact=$io_function->uf_convertirdatetobd($ls_fecfinact);
$li_numero=0;
$lb_existe=$io_acta->uf_select_acta($ls_codcon,$ls_codact,1,&$aa_data);
if(!$lb_existe)
{
$lb_valido=$io_acta->uf_guardar_acta($ls_codcon,$ls_codact,1,$ls_fecact,$ls_feciniact,$ls_fecfinact,"",$li_numero,"001","","",$ls_cedinsact,$ls_cedresact,"","",$ls_obsact);
if ($lb_valido)
{
$lb_valido=$io_contrato->uf_update_ultimoacta($ls_codcon,1);
if($lb_valido)
{
$io_mensaje->incluir();
$ls_datoscontrato="OCULTAR";
$ls_datosobra="OCULTAR";
$ls_denact = $_POST["txtdenact"];
$ls_ideact = $_POST["txtideact"];
$li_monact = $_POST["txtmontot"];
$ls_status = $_POST["hidstatus"];
$ls_desmov = "";
$li_monactaux = str_replace(".", "", $li_monact);
$li_monactaux = str_replace(",", ".", $li_monactaux);
$ld_date = date("Y-m-d");
$lb_valido = $io_fec->uf_valida_fecha_mes($ls_codemp, $ld_date);
if ($lb_valido) {
if ($ls_cmpmov != "" && $ls_codcau != "" && $ls_codact != "" && $li_totrows > 1 && !empty($ls_numcmp)) {
$ls_estpromov = "0";
$ls_codpro = "----------";
$ls_cedbene = "----------";
$ls_codtipdoc = "";
$ld_feccmpbd = $io_fun->uf_convertirdatetobd($ld_feccmp);
$lb_existe = $io_saf->uf_saf_select_movimiento($ls_codemp, $ls_cmpmov, $ls_codcau, $ld_feccmpbd);
if ($lb_existe) {
uf_pintardetalle($lo_object, $li_totrows, $li_montot);
uf_pintardetallescg($lo_objectscg, $li_totrowsscg, $li_totdeb, $li_tothab);
uf_agregarlineablancascg($lo_objectscg, $li_totrowsscg);
$io_msg->message("El numero de comprobante ya existe");
$lb_valido = false;
} else {
$ls_codrespri = "";
$ls_codresuso = "";
$ls_coduniadm = "";
$ls_ubigeo = "";
$ls_tiprespri = "";
$ls_tipresuso = "";
$ls_fecent = "1900-01-01";
/*Cuando la operacion es UE_NUEVO*/
if($ls_operacion=="ue_buscar")
{
if($io_funsob->uf_convertir_cadenanumero($ls_moncon)==0)
$ls_moncon="";
$la_parametro[1][1]="con.codcon";
$la_parametro[1][2]=$ls_codcon;
$la_parametro[1][3]=" like ";
$la_parametro[1][4]=3;
$la_parametro[2][1]="o.desobr";
$la_parametro[2][2]=$ls_desobr;
$la_parametro[2][3]=" like ";
$la_parametro[2][4]=3;
$la_parametro[3][1]="con.fecfincon";
$la_parametro[3][2]=$io_funcion->uf_convertirdatetobd($ls_fecfincon);
$la_parametro[3][3]=$ls_cmbfecfincon;
$la_parametro[3][4]=3;
$la_parametro[4][1]="con.fecinicon";
$la_parametro[4][2]=$io_funcion->uf_convertirdatetobd($ls_fecinicon);
$la_parametro[4][3]=$ls_cmbfecinicon;
$la_parametro[4][4]=3;
$la_parametro[5][1]="con.monto";
$la_parametro[5][2]=$ls_moncon;
$la_parametro[5][3]=$ls_cmbmoncon;
$la_parametro[5][4]=3;
$la_parametro[6][1]="val.codval";
$la_parametro[6][2]=$ls_codval;
$la_parametro[6][3]=" like ";
$la_parametro[6][4]=4;
$la_parametro[7][1]="val.fecinival";
print "<td>Nro de Recepción</td>";
print "<td>Proveedor</td>";
print "<td>Fecha de Registro</td>";
print "<td>Estatus</td>";
print "<td>Monto</td>";
print "</tr>";
if ($ls_operacion == "BUSCAR") {
$ls_fecemi = $_POST["txtfecdes"];
$ls_fechat = $_POST["txtfechas"];
if (empty($ls_fecemi) && !empty($ls_fechat) || empty($ls_fechat) && !empty($ls_fecemi)) {
$io_msg->message('Tipee la Fecha Faltante !!!');
} else {
$ls_numrec = "%" . $_POST["txtnumrec"] . "%";
if (!empty($ls_fecemi) && !empty($ls_fecemi)) {
$ls_fecemi = $_POST["txtfecdes"];
$ls_fecdes = $io_fun->uf_convertirdatetobd($ls_fecemi);
$ls_fechat = $_POST["txtfechas"];
$ls_fechas = $io_fun->uf_convertirdatetobd($ls_fechat);
} else {
$ls_fecdes = "";
$ls_fechas = "";
}
$ls_concepto = "%" . $_POST["cmbconcepto"] . "%";
if ($ls_concepto == "%T%") {
$ls_concepto = "%%";
}
$ls_nombre = "%" . $_POST["txtnombre"] . "%";
$ls_status = "%" . $_POST["cmbestatus"] . "%";
if ($ls_status == "%T%") {
$ls_estatus = "%%";
} else {
$la_objectcargos[$li_filascargos][3]="<input name=txtmoncar".$li_filascargos." type=text id=txtmoncar".$li_filascargos." class=sin-borde style= text-align:center size=20 readonly>";
$la_objectcargos[$li_filascargos][4]="<input name=txtvacio type=text id=txtvacio class=sin-borde style= text-align:center size=5 readonly>";
$ld_subtotal=$ld_subtotpar-$ld_basimpval;
$ld_resultado=$ld_basimpval+$ld_subtot+$ld_subtotal;
$ls_subtot=$io_funcsob->uf_convertir_numerocadena($ld_resultado);
$ls_montotval=$io_funcsob->uf_convertir_numerocadena($ld_resultado);
}
/***************************************************************************************************************************************************************************/
/*******************************************INSERCION DE REGISTRO EN BD*******************************************************************************************************************************/
elseif($ls_operacion=="ue_guardar")
{
$ld_fecha=$io_function->uf_convertirdatetobd($ls_fecha);
$ld_fecinival=$io_function->uf_convertirdatetobd($ls_fecinival);
$ld_fecfinval=$io_function->uf_convertirdatetobd($ls_fecfinval);
$io_valuacion->io_sql->begin_transaction();
$ls_codvalaux=$ls_codval;
$lb_valido=$io_valuacion->uf_guardar_valuacion($ls_codval,$ls_codcon,$ld_fecha,$ld_fecinival,$ld_fecfinval,$ls_obsval,$ls_amoactual,$ls_amoobs,$ls_amoant,
$ls_amotot,$ls_amores,$ls_basimpval,$ls_montotval,$ls_subtotpar,$ls_totreten,$ls_subtot,$la_seguridad,$ls_chk);
if($lb_valido)
{
/************************************PARTIDAS*******************************************/
$li_partidas=1;
$la_partidas["codpar"][1]="";
$la_partidas["canteje"][1]="";
$la_partidas["cant"][1]="";
$la_partidas["preref"][1]="";
$la_partidas["preval"][1]="";
$ls_gestor = $_SESSION["ls_gestor"];
require_once "sigesp_saf_c_activo.php";
$io_saf = new sigesp_saf_c_activo();
if (array_key_exists("operacion", $_POST)) {
$ls_operacion = $_POST["operacion"];
$ls_cmpmov = "%" . $_POST["txtcmpmov"] . "%";
$ls_codcau = "%" . $_POST["txtcodcau"] . "%";
$ld_fecdes = "%" . $_POST["txtdesde"] . "%";
$ld_fechas = "%" . $_POST["txthasta"] . "%";
if ($ld_fecdes == "%%" || $ld_fechas == "%%") {
$ld_fecdes = "";
$ld_fechas = "";
} else {
$ld_fecdes = substr($ld_fecdes, 1, 10);
$ld_fechas = substr($ld_fechas, 1, 10);
$ld_fecdes = $io_fun->uf_convertirdatetobd($ld_fecdes);
$ld_fechas = $io_fun->uf_convertirdatetobd($ld_fechas);
}
} else {
$ls_operacion = "";
}
print "<table width=500 border=0 cellpadding=1 cellspacing=1 class=fondo-tabla align=center>";
print "<tr class=titulo-celda>";
print "<td width='50'>Comprobante </td>";
print "<td width='150'>Causa</td>";
print "<td width='65'>Fecha</td>";
print "</tr>";
if ($ls_operacion == "BUSCAR") {
if ($ld_fecdes != "" && $ld_fechas != "") {
$ls_sqlint = " AND saf_movimiento.feccmp >= '" . $ld_fecdes . "'" . " AND saf_movimiento.feccmp <= '" . $ld_fechas . "' ";
} else {
function uf_print($ad_fecfer, $as_nomfer)
{
//////////////////////////////////////////////////////////////////////////////
// Function: uf_print
// Access: public
// Arguments: ad_fecfer // Fecha del Feriado
// as_nomfer // Descripción del Feriado
// Description: Función que obtiene e imprime los resultados de la busqueda
// Creado Por: Ing. Yesenia Moreno
// Fecha Creación: 01/01/2006 Fecha Última Modificación :
//////////////////////////////////////////////////////////////////////////////
require_once("../shared/class_folder/sigesp_include.php");
$io_include=new sigesp_include();
$io_conexion=$io_include->uf_conectar();
require_once("../shared/class_folder/class_sql.php");
$io_sql=new class_sql($io_conexion);
require_once("../shared/class_folder/class_mensajes.php");
$io_mensajes=new class_mensajes();
require_once("../shared/class_folder/class_funciones.php");
$io_funciones=new class_funciones();
$ls_codemp=$_SESSION["la_empresa"]["codemp"];
print "<table width=500 border=0 cellpadding=1 cellspacing=1 class=fondo-tabla align=center>";
print "<tr class=titulo-celda>";
print "<td width=60>Fecha</td>";
print "<td width=440>Nombre</td>";
print "</tr>";
$ls_sql="SELECT fecfer, nomfer ".
" FROM sno_diaferiado ".
" WHERE codemp='".$ls_codemp."'".
" AND nomfer like '".$as_nomfer."'";
if($ad_fecfer!="")
{
$ad_fecfer = $io_funciones->uf_convertirdatetobd($ad_fecfer);
$ls_sql=$ls_sql." AND fecfer='".$ad_fecfer."'";
}
$ls_sql=$ls_sql." ORDER BY fecfer ";
$rs_data=$io_sql->select($ls_sql);
if($rs_data===false)
{
$io_mensajes->message("ERROR->".$io_funciones->uf_convertirmsg($io_sql->message));
}
else
{
while($row=$io_sql->fetch_row($rs_data))
{
$ld_fecfer=$io_funciones->uf_formatovalidofecha($row["fecfer"]);
$ld_fecfer=$io_funciones->uf_convertirfecmostrar($ld_fecfer);
$ls_nomfer=$row["nomfer"];
print "<tr class=celdas-blancas>";
print "<td><a href=\"javascript: aceptar('$ld_fecfer','$ls_nomfer');\">".$ld_fecfer."</a></td>";
print "<td>".$ls_nomfer."</td>";
print "</tr>";
}
$io_sql->free_result($rs_data);
}
print "</table>";
unset($io_include);
unset($io_conexion);
unset($io_sql);
unset($io_mensajes);
unset($io_funciones);
unset($ls_codemp);
}
break;
case "GUARDAR":
uf_limpiarvariables();
$lb_descomp=true;
$ls_numorddes = $io_fun_inventario->uf_obtenervalor("txtnumorddes","");
$ls_numsol = $io_fun_inventario->uf_obtenervalor("txtnumsol","");
$ls_coduniadm = $io_fun_inventario->uf_obtenervalor("txtcoduniadm","");
$ls_denuniadm = $io_fun_inventario->uf_obtenervalor("txtdenuniadm","");
$ld_fecdes = $io_fun_inventario->uf_obtenervalor("txtfecdes","");
$ls_obsdes = $io_fun_inventario->uf_obtenervalor("txtobsdes","");
$ls_estsol = $io_fun_inventario->uf_obtenervalor("txtestsol","");
$ls_codunides = $io_fun_inventario->uf_obtenervalor("txtcodunides","");
$ls_denunides = $io_fun_inventario->uf_obtenervalor("txtdenunides","");
$li_estint = $io_fun_inventario->uf_obtenervalor("hidestint","");
$ls_ctascgint = $io_fun_inventario->uf_obtenervalor("hidctascgint","");
$ld_fecdesaux = $io_func->uf_convertirdatetobd($ld_fecdes);
$ls_estrevdes = "1";
$ls_estdes = "1";
$ls_estrec= $io_fun_inventario->uf_obtenervalor("rdtipodespacho","");
if($ls_estrec==0)
{
$ls_checkedparc="checked";
$ls_checkedcomp="";
}
else
{
$ls_checkedparc="";
$ls_checkedcomp="checked";
}
$lb_valido=$io_fec->uf_valida_fecha_mes($ls_codemp,$ld_fecdes);
//$lb_valido=$io_fec->uf_valida_fecha_periodo($ld_fecdes,$ls_codemp);
function uf_print_comprobante()
{
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_print_comprobante
// Access: private
// Arguments:
// Description: Función que obtiene e imprime los resultados de la busqueda de Comprobantes Contables
// Creado Por: Ing. Yesenia Moreno
// Fecha Creación: 28/06/2007 Fecha Última Modificación :
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
require_once("../../shared/class_folder/sigesp_include.php");
$io_include=new sigesp_include();
$io_conexion=$io_include->uf_conectar();
require_once("../../shared/class_folder/class_sql.php");
$io_sql=new class_sql($io_conexion);
require_once("../../shared/class_folder/class_mensajes.php");
$io_mensajes=new class_mensajes();
require_once("../../shared/class_folder/class_funciones.php");
$io_funciones=new class_funciones();
$ls_codemp=$_SESSION["la_empresa"]["codemp"];
$ls_comprobante="%".$_POST['comprobante']."%";
$ls_procede="%".$_POST['procede']."%";
$ls_tipdes="%".$_POST['tipdes']."%";
$ls_codigo="%".$_POST['codigo']."%";
$ls_codpro="";
$ls_cedbene="";
switch($ls_tipdes)
{
case "P":
$ls_codpro=$ls_codigo;
$ls_cedbene="----------";
break;
case "B":
$ls_codpro="----------";
$ls_cedbene=$ls_codigo;
break;
}
$ls_fecdes=$io_funciones->uf_convertirdatetobd($_POST['fecdes']);
$ls_fechas=$io_funciones->uf_convertirdatetobd($_POST['fechas']);;
$ls_orden=$_POST['orden'];
$ls_campoorden=$_POST['campoorden'];
$ls_tipo=$_POST['tipo'];
$ls_sql="SELECT sigesp_cmp.procede, sigesp_cmp.comprobante, sigesp_cmp.fecha, sigesp_cmp.descripcion, sigesp_cmp.tipo_destino, ".
" sigesp_cmp.cod_pro, sigesp_cmp.ced_bene, sigesp_cmp.codban, sigesp_cmp.ctaban, rpc_beneficiario.nombene, ".
" rpc_beneficiario.apebene, rpc_proveedor.nompro ".
" FROM sigesp_cmp, rpc_beneficiario, rpc_proveedor ".
" WHERE sigesp_cmp.codemp='".$ls_codemp."' ".
" AND sigesp_cmp.tipo_comp=1 ".
" AND sigesp_cmp.comprobante like '".$ls_comprobante."' ".
" AND sigesp_cmp.procede like '".$ls_procede."' ".
" AND sigesp_cmp.tipo_destino like '".$ls_tipdes."' ".
" AND sigesp_cmp.cod_pro like '%".$ls_codpro."%' ".
" AND sigesp_cmp.ced_bene like '%".$ls_cedbene."%' ".
" AND sigesp_cmp.fecha>='".$ls_fecdes."' ".
" AND sigesp_cmp.fecha<='".$ls_fechas."' ".
" AND sigesp_cmp.codemp IN (SELECT scg_dt_cmp.codemp FROM scg_dt_cmp ".
" WHERE scg_dt_cmp.codemp = sigesp_cmp.codemp ".
" AND scg_dt_cmp.procede = sigesp_cmp.procede ".
" AND scg_dt_cmp.comprobante = sigesp_cmp.comprobante ".
" AND scg_dt_cmp.fecha = sigesp_cmp.fecha ".
" AND scg_dt_cmp.codban = sigesp_cmp.codban ".
" AND scg_dt_cmp.ctaban = sigesp_cmp.ctaban) ".
" AND sigesp_cmp.codemp = rpc_beneficiario.codemp ".
" AND sigesp_cmp.ced_bene = rpc_beneficiario.ced_bene ".
" AND sigesp_cmp.codemp = rpc_proveedor.codemp ".
" AND sigesp_cmp.cod_pro = rpc_proveedor.cod_pro ".
" ORDER BY ".$ls_campoorden." ".$ls_orden."";
$rs_data=$io_sql->select($ls_sql);
if($rs_data===false)
{
$io_mensajes->uf_mensajes_ajax("Error al cargar Beneficiarios","ERROR->".$io_funciones->uf_convertirmsg($io_sql->message),false,"");
}
else
{
print "<table width=600 border=0 cellpadding=1 cellspacing=1 class=fondo-tabla align=center>";
print "<tr class=titulo-celda>";
print "<td width=60 style='cursor:pointer' title='Ordenar por Comprobante' align='center' onClick=ue_orden('sigesp_cmp.comprobante')>Comprobante</td>";
print "<td width=60 style='cursor:pointer' title='Ordenar por Procede' align='center' onClick=ue_orden('sigesp_cmp.procede')>Procede</td>";
print "<td width=60 style='cursor:pointer' title='Ordenar por Fecha' align='center' onClick=ue_orden('sigesp_cmp.fecha')>Fecha</td>";
print "<td width=60 style='cursor:pointer' title='Ordenar por Proveedor' align='center' onClick=ue_orden('sigesp_cmp.cod_pro')>Proveedor</td>";
print "<td width=60 style='cursor:pointer' title='Ordenar por Beneficiario' align='center' onClick=ue_orden('sigesp_cmp.ced_bene')>Beneficiario</td>";
print "<td width=300>Descripción</td>";
print "</tr>";
$li_i=0;
while($row=$io_sql->fetch_row($rs_data))
{
$li_i++;
$ls_comprobante=$row["comprobante"];
$ls_procede=$row["procede"];
$ls_tipdes=$row["tipo_destino"];
switch($ls_tipdes)
{
case "P":
$ls_codigo=$row["cod_pro"];
$ls_nombre=$row["nompro"];
break;
case "B":
$ls_codigo=$row["ced_bene"];
$ls_nombre=$row["apebene"].", ".$row["nombene"];
break;
default:
$ls_codigo="";
$ls_nombre="";
}
$ls_descripcion=$row["descripcion"];
$ld_fecha=$io_funciones->uf_convertirfecmostrar($row["fecha"]);
$ls_codpro=$row["cod_pro"];
$ls_cedbene=$row["ced_bene"];
$ls_codban=$row["codban"];
$ls_ctaban=$row["ctaban"];
switch ($ls_tipo)
{
case "":
print "<tr class=celdas-blancas>";
print "<td><a href=\"javascript: ue_aceptar('$ls_comprobante','$ls_procede','$ld_fecha','$ls_tipdes',".
"'$ls_codigo','$ls_nombre','$ls_codban','$ls_ctaban','$li_i','$ls_codpro','$ls_cedbene');\">".$ls_comprobante."</a></td>";
print "<td>".$ls_procede."</td>";
print "<td>".$ld_fecha."</td>";
print "<td>".$ls_codpro."</td>";
print "<td>".$ls_cedbene."</td>";
print "<td><input name='txtdescripcion".$li_i."' type='hidden' id='txtdescripcion".$li_i."' value='".$ls_descripcion."'> ".$ls_descripcion."</td>";
print "</tr>";
break;
case "REPDES":
print "<tr class=celdas-blancas>";
print "<td><a href=\"javascript: ue_aceptarrepdes('$ls_comprobante');\">".$ls_comprobante."</a></td>";
print "<td>".$ls_procede."</td>";
print "<td>".$ld_fecha."</td>";
print "<td>".$ls_codpro."</td>";
print "<td>".$ls_cedbene."</td>";
print "<td><input name='txtdescripcion".$li_i."' type='hidden' id='txtdescripcion".$li_i."' value='".$ls_descripcion."'> ".$ls_descripcion."</td>";
print "</tr>";
break;
case "REPHAS":
print "<tr class=celdas-blancas>";
print "<td><a href=\"javascript: ue_aceptarrephas('$ls_comprobante');\">".$ls_comprobante."</a></td>";
print "<td>".$ls_procede."</td>";
print "<td>".$ld_fecha."</td>";
print "<td>".$ls_codpro."</td>";
print "<td>".$ls_cedbene."</td>";
print "<td><input name='txtdescripcion".$li_i."' type='hidden' id='txtdescripcion".$li_i."' value='".$ls_descripcion."'> ".$ls_descripcion."</td>";
print "</tr>";
break;
}
}
$io_sql->free_result($rs_data);
print "</table>";
}
unset($io_include);
unset($io_conexion);
unset($io_sql);
unset($io_mensajes);
unset($io_funciones);
unset($ls_codemp);
}// end function uf_print_comprobante
$ls_codnomhas=$io_fun_nomina->uf_obtenervalor_get("codnomhas","");
$ls_codperdes=$io_fun_nomina->uf_obtenervalor_get("codperdes","");
$ls_codperhas=$io_fun_nomina->uf_obtenervalor_get("codperhas","");
$ls_activo=$io_fun_nomina->uf_obtenervalor_get("activo","");
$ls_egresado=$io_fun_nomina->uf_obtenervalor_get("egresado","");
$ls_causaegreso=$io_fun_nomina->uf_obtenervalor_get("causaegreso","");
$ls_orden=$io_fun_nomina->uf_obtenervalor_get("orden","1");
$ls_activono=$io_fun_nomina->uf_obtenervalor_get("activono","");
$ls_vacacionesno=$io_fun_nomina->uf_obtenervalor_get("vacacionesno","");
$ls_suspendidono=$io_fun_nomina->uf_obtenervalor_get("suspendidono","");
$ls_egresadono=$io_fun_nomina->uf_obtenervalor_get("egresadono","");
$ls_masculino=$io_fun_nomina->uf_obtenervalor_get("masculino","");
$ls_femenino=$io_fun_nomina->uf_obtenervalor_get("femenino","");
$ld_fecculcontrdes=$io_fun_nomina->uf_obtenervalor_get("fecculcontrdes","");
$ld_fecculcontrhas=$io_fun_nomina->uf_obtenervalor_get("fecculcontrhas","");
$ld_fecculcontrdes=$io_funciones->uf_convertirdatetobd($ld_fecculcontrdes);
$ld_fecculcontrhas=$io_funciones->uf_convertirdatetobd($ld_fecculcontrhas);
//--------------------------------------------------------------------------------------------------------------------------------
$lb_valido=uf_insert_seguridad($ls_titulo); // Seguridad de Reporte
if($lb_valido)
{
$lb_valido=$io_report->uf_listadopersonalcontratado_personal($ls_codnomdes,$ls_codnomhas,$ls_codperdes,$ls_codperhas,
$ls_activo,$ls_egresado,$ls_causaegreso,$ls_activono,
$ls_vacacionesno,$ls_suspendidono,$ls_egresadono,$ls_masculino,
$ls_femenino,$ld_fecculcontrdes,$ld_fecculcontrhas,$ls_orden); // Obtenemos el detalle del reporte
}
if($lb_valido==false) // Existe algún error ó no hay registros
{
print("<script language=JavaScript>");
print(" alert('No hay nada que Reportar');");
//print(" close();");
function uf_cargar_docs(&$object,&$li_row,$ls_mes,$ls_agno)
{
//////////////////////////////////////////////////////////////////////////////
// Metodo: uf_cargar_bancos
// Access: public
// Returns: $object= Arreglo con las cabeceras de los comprobantes de pago
//
// Description: Función que se encarga de seleccionar los bancos y retornarlos en un arreglo de object
//
//////////////////////////////////////////////////////////////////////////////
$ls_codemp=$_SESSION["la_empresa"]["codemp"];
$li_row=0;
global $con,$io_fecha;
require_once("../shared/class_folder/class_sql.php");
require_once("../shared/class_folder/class_funciones.php");
$io_sql=new class_sql($con);
$io_fun=new class_funciones();
$ls_fechainicio = "$ls_agno-$ls_mes-01";
$ls_fechafin = $io_fun->uf_convertirdatetobd($io_fecha->uf_last_day($ls_mes,$ls_agno));
$ls_sql="SELECT numcom, codsujret, nomsujret, dirsujret, rif
FROM scb_cmp_ret
WHERE fecrep BETWEEN '$ls_fechainicio' AND '$ls_fechafin'
AND codret='0000000003'
ORDER BY numcom";
$rs_data=$io_sql->select($ls_sql);
if (($rs_data===false))
{
$lb_valido=false;
}
else
{
while($row=$io_sql->fetch_row($rs_data))
{
$li_row = $li_row+1;
$ls_numcom = $row["numcom"];
$ls_codigo = $row["codsujret"];
$ls_nombre = $row["nomsujret"];
$ls_direccion = $row["dirsujret"];
$ls_rif = $row["rif"];
$object[$li_row][1]="<div align=center><input type=checkbox name=chksel".$li_row." id=chksel".$li_row." value=1 style=width:15px;height:15px></div>";
$object[$li_row][2]="<div align=center><input type=text name=txtnumcom".$li_row." value='".$ls_numcom."' class=sin-borde readonly style=text-align:center size=15 maxlength=15></div>";
$object[$li_row][3]="<div align=center><input type=text name=txtcodigo".$li_row." value='".$ls_codigo."' class=sin-borde readonly style=text-align:center size=10 maxlength=10></div>";
$object[$li_row][4]="<div align=left><input type=text name=txtnombre".$li_row." value='".$ls_nombre."' class=sin-borde readonly style=text-align:left size=30 maxlength=80></div>";
$object[$li_row][5]="<div align=left><input type=text name=txtdireccion".$li_row." value='".$ls_direccion."' class=sin-borde readonly style=text-align:left size=40 maxlength=200></div>";
$object[$li_row][6]="<div align=center><input type=text name=txtrif".$li_row." value='".$ls_rif."' class=sin-borde readonly style=text-align:center size=15 maxlength=15></div>";
}
if($li_row==0)
{
$li_row=1;
$ls_numcom="";
$ls_codigo="";
$ls_nombre="";
$ls_direccion="";
$ls_rif="";
$object[$li_row][1]="<div align=center><input type=checkbox name=chksel".$li_row." id=chksel".$li_row." value=1 style=width:15px;height:15px></div>";
$object[$li_row][2]="<div align=center><input type=text name=txtnumcom".$li_row." value='".$ls_numcom."' class=sin-borde readonly style=text-align:center size=15 maxlength=15></div>";
$object[$li_row][3]="<div align=center><input type=text name=txtcodigo".$li_row." value='".$ls_codigo."' class=sin-borde readonly style=text-align:center size=10 maxlength=10></div>";
$object[$li_row][4]="<div align=left><input type=text name=txtnombre".$li_row." value='".$ls_nombre."' class=sin-borde readonly style=text-align:left size=30 maxlength=80></div>";
$object[$li_row][5]="<div align=left><input type=text name=txtdireccion".$li_row." value='".$ls_direccion."' class=sin-borde readonly style=text-align:left size=40 maxlength=200></div>";
$object[$li_row][6]="<div align=center><input type=text name=txtrif".$li_row." value='".$ls_rif."' class=sin-borde readonly style=text-align:center size=15 maxlength=15></div>";
}
$io_sql->free_result($rs_data);
}
}//fin de uf_cargar_bancos
if($ls_codfuefin=="")
{
$ls_codfuefin="--";
}
$ls_estcla=$io_fun_viaticos->uf_obtenervalor("hidestcla","");
$ls_ctaspg= $io_fun_viaticos->uf_obtenervalor("txtctaspg","");
$ls_denctaspg= $io_fun_viaticos->uf_obtenervalor("txtdenctaspg","");
$ls_obssolvia= $io_fun_viaticos->uf_obtenervalor("txtobssolvia","");
$ld_fecsal= $io_fun_viaticos->uf_obtenervalor("txtfecsal","");
$ld_fecreg= $io_fun_viaticos->uf_obtenervalor("txtfecreg","");
$li_numdia= $io_fun_viaticos->uf_obtenervalor("txtnumdia","");
$ls_estatus= $io_fun_viaticos->uf_obtenervalor("hidestatus","");
$ls_estsolvia= $io_fun_viaticos->uf_obtenervalor("hidestsolvia","");
$li_solviaext= $io_fun_viaticos->uf_obtenervalor("chksolviaext",0);
$lb_fechaok= $io_fun_viaticos->uf_obtenervalor("fechaok",0);
$ld_fecsalvia= $io_fun->uf_convertirdatetobd($ld_fecsal);
$ld_fecregvia= $io_fun->uf_convertirdatetobd($ld_fecreg);
$ld_fecsolaux= $io_fun->uf_convertirdatetobd($ld_fecsolvia);
$li_numdiaaux= str_replace(".","",$li_numdia);
$li_numdiaaux= str_replace(",",".",$li_numdiaaux);
if($li_solviaext==1)
{
$ls_checked="checked";
}
switch ($ls_operacion)
{
case "NUEVO":
$ls_estsolvia="R";
if($lb_cierre!=false)
{
uf_limpiarvariables();
$io_obra=new sigesp_sob_class_obra();
$ls_codemp=$la_datemp["codemp"];
if(array_key_exists("operacion",$_POST))
{
$ls_opener=$_POST["hidopener"];
$ls_operacion=$_POST["operacion"];
$ls_codobr="%".$_POST["txtcodobr"]."%";
$ls_desobr="%".$_POST["txtdesobr"]."%";
if($ls_opener=="")
{
$ls_estcon=$_POST["cmbestado"];
}
$ls_codcon="%".$_POST["txtcodcon"]."%";
$ls_codasi="%".$_POST["txtcodasi"]."%";
$ld_feccrecon=$io_funcion->uf_convertirdatetobd($_POST["txtfeccrecon"]);
$ld_fecinicon=$io_funcion->uf_convertirdatetobd($_POST["txtfecinicon"]);
//$ls_estado2=$_POST["hidestado2"];
$ls_codigoobr=$_POST["txtcodobr"];
$ls_descripcionobr=$_POST["txtdesobr"];
if($ls_opener=="")
$ls_estadocon=$_POST["cmbestado"];
else
$ls_estadocon="";
if(array_key_exists("cmbestado",$_POST))
$ls_estcon="%".$_POST["cmbestado"]."%";
else
$ls_estcon="%%";
$ls_codigocon=$_POST["txtcodcon"];
$ls_codigoasi=$_POST["txtcodasi"];
$ld_fechacrecon=$_POST["txtfeccrecon"];
print "<table width=550 border=0 cellpadding=1 cellspacing=1 class=fondo-tabla align=center>";
print "<tr class=titulo-celda>";
print "<td width='50'>Codigo </td>";
print "<td width='270'>Denominacion</td>";
print "<td width='60'>Marca</td>";
print "<td width='60'>Modelo</td>";
print "<td>Registro</td>";
print "</tr>";
if ($ls_operacion == "BUSCAR") {
if (array_key_exists("txtdesde", $_POST)) {
$ls_desde = $_POST["txtdesde"];
if (array_key_exists("txthasta", $_POST)) {
$ls_hasta = $_POST["txthasta"];
$lb_fechavalida = $io_fec->uf_comparar_fecha($ls_desde, $ls_hasta);
if ($lb_fechavalida) {
$ls_desde = $io_fun->uf_convertirdatetobd($ls_desde);
$ls_hasta = $io_fun->uf_convertirdatetobd($ls_hasta);
//$ls_cadena=" AND saf_activo.fecregact >= '".$ls_desde."' AND saf_activo.fecregact <= '".$ls_hasta."' ";
$ls_sql = "SELECT saf_activo.*, " . " \t\t(SELECT denfuefin FROM sigesp_fuentefinanciamiento " . " WHERE sigesp_fuentefinanciamiento.codfuefin = saf_activo.codfuefin) as denfuefin, " . " \t\t(SELECT fecordcom FROM soc_ordencompra " . " WHERE soc_ordencompra.numordcom = saf_activo.numordcom " . " AND (estcondat='B' OR estcondat='-')) as fecordcom, " . " \t\t(SELECT densitcon FROM saf_situacioncontable " . " WHERE saf_situacioncontable.codsitcon = saf_activo.codsitcon) as densitcon, " . " \t\t(SELECT denconcom FROM saf_condicioncompra " . " WHERE saf_condicioncompra.codconcom = saf_activo.codconcom) as denconcom, " . " \t\t(SELECT denconbie FROM saf_conservacionbien " . " WHERE saf_conservacionbien.codconbie = saf_activo.codconbie) as denconbie, " . " \t\t(SELECT dencat FROM saf_catalogo " . " WHERE saf_catalogo.catalogo = saf_activo.catalogo) as dencat, " . " \t\t(SELECT despai FROM sigesp_pais " . " WHERE sigesp_pais.codpai = saf_activo.codpai) as despai, " . " \t\t(SELECT desest FROM sigesp_estados " . " WHERE sigesp_estados.codest = saf_activo.codest " . " AND sigesp_estados.codpai = saf_activo.codpai) as desest, " . " \t\t(SELECT denmun FROM sigesp_municipio " . " WHERE sigesp_municipio.codmun = saf_activo.codmun " . " AND sigesp_municipio.codest = saf_activo.codest " . " AND sigesp_municipio.codpai = saf_activo.codpai) as desmun, " . " \t\t(SELECT fecemisol FROM cxp_solicitudes" . " WHERE cxp_solicitudes.numsol = saf_activo.numsolpag) as fecemisol , " . " (SELECT dengru " . "\t\t FROM saf_grupo " . "\t\t WHERE saf_grupo.codgru=saf_activo.codgru) as dengru, " . "\t\t (SELECT densubgru " . "\t\t FROM saf_subgrupo " . "\t\t WHERE saf_subgrupo.codgru=saf_activo.codgru AND " . "\t\t\t\t saf_subgrupo.codsubgru=saf_activo.codsubgru) as densubgru, " . "\t\t (SELECT densec " . " \t\t FROM saf_seccion " . "\t\t WHERE saf_seccion.codgru=saf_activo.codgru AND " . "\t\t\t\t saf_seccion.codsubgru=saf_activo.codsubgru AND " . "\t\t\t\t saf_seccion.codsec=saf_activo.codsec) as densec, " . "\t\t (SELECT denite " . " \t\t FROM saf_item " . "\t\t WHERE saf_item.codgru=saf_activo.codgru AND " . "\t\t\t\t saf_item.codsubgru=saf_activo.codsubgru AND " . "\t\t\t\t saf_item.codsec=saf_activo.codsec AND " . " saf_item.codite=saf_activo.codite ) as denite, " . " (SELECT max(denominacion) " . " FROM spg_cuentas " . "\t\t WHERE spg_cuentas.spg_cuenta = saf_activo.spg_cuenta_act) as denspg " . " FROM saf_activo" . " WHERE saf_activo.codemp= '" . $ls_codemp . "'" . " AND saf_activo.codact like '" . $ls_codact . "'" . " AND saf_activo.denact like '" . $ls_denact . "'" . " AND saf_activo.maract like '" . $ls_maract . "'" . " AND saf_activo.modact like '" . $ls_modact . "'" . " AND saf_activo.fecregact >= '" . $ls_desde . "' " . " AND saf_activo.fecregact <= '" . $ls_hasta . "'" . " ORDER BY codact";
$rs_cta = $io_sql->select($ls_sql);
} else {
$ls_sql = "SELECT saf_activo.*, " . " (SELECT denfuefin FROM sigesp_fuentefinanciamiento " . " \t\t WHERE sigesp_fuentefinanciamiento.codfuefin = saf_activo.codfuefin) as denfuefin, " . " (SELECT fecordcom FROM soc_ordencompra " . " WHERE soc_ordencompra.numordcom = saf_activo.numordcom " . " AND (estcondat='B' OR estcondat='-')) as fecordcom, " . " \t\t(SELECT densitcon FROM saf_situacioncontable " . " WHERE saf_situacioncontable.codsitcon = saf_activo.codsitcon) as densitcon, " . " \t\t(SELECT denconcom FROM saf_condicioncompra " . " WHERE saf_condicioncompra.codconcom = saf_activo.codconcom) as denconcom, " . " \t\t(SELECT denconbie FROM saf_conservacionbien " . " WHERE saf_conservacionbien.codconbie = saf_activo.codconbie) as denconbie, " . " \t\t(SELECT spg_cuenta FROM saf_catalogo " . " WHERE saf_catalogo.catalogo = saf_activo.catalogo) as ctaspg, " . " \t\t(SELECT dencat FROM saf_catalogo " . " WHERE saf_catalogo.catalogo = saf_activo.catalogo) as dencat, " . " \t\t(SELECT despai FROM sigesp_pais " . " WHERE sigesp_pais.codpai = saf_activo.codpai) as despai, " . " \t\t(SELECT desest FROM sigesp_estados " . " WHERE sigesp_estados.codest = saf_activo.codest " . " \t AND sigesp_estados.codpai = saf_activo.codpai) as desest, " . " \t\t(SELECT denmun FROM sigesp_municipio " . " WHERE sigesp_municipio.codmun = saf_activo.codmun " . " \t AND sigesp_municipio.codest = saf_activo.codest " . " \t AND sigesp_municipio.codpai = saf_activo.codpai) as desmun, " . " \t\t(SELECT fecemisol FROM cxp_solicitudes " . " WHERE cxp_solicitudes.numsol = saf_activo.numsolpag) as fecemisol, " . " (SELECT dengru " . "\t\t FROM saf_grupo " . "\t\t WHERE saf_grupo.codgru=saf_activo.codgru) as dengru, " . "\t\t (SELECT densubgru " . "\t\t FROM saf_subgrupo " . "\t\t WHERE saf_subgrupo.codgru=saf_activo.codgru AND " . "\t\t\t\t saf_subgrupo.codsubgru=saf_activo.codsubgru) as densubgru, " . "\t\t (SELECT densec " . " \t\t FROM saf_seccion " . "\t\t WHERE saf_seccion.codgru=saf_activo.codgru AND " . "\t\t\t\t saf_seccion.codsubgru=saf_activo.codsubgru AND " . "\t\t\t\t saf_seccion.codsec=saf_activo.codsec) as densec, " . "\t\t (SELECT denite " . " \t\t FROM saf_item " . "\t\t WHERE saf_item.codgru=saf_activo.codgru AND " . "\t\t\t\t saf_item.codsubgru=saf_activo.codsubgru AND " . "\t\t\t\t saf_item.codsec=saf_activo.codsec AND " . " saf_item.codite=saf_activo.codite ) as denite, " . " (SELECT max(denominacion) " . " FROM spg_cuentas " . "\t\t WHERE spg_cuentas.spg_cuenta = saf_activo.spg_cuenta_act) as denspg " . " FROM saf_activo " . " WHERE saf_activo.codemp= '" . $ls_codemp . "' " . " AND saf_activo.codact like '" . $ls_codact . "' " . " AND saf_activo.denact like '" . $ls_denact . "' " . " AND saf_activo.maract like '" . $ls_maract . "' " . " AND saf_activo.modact like '" . $ls_modact . "' " . " ORDER BY codact";
$rs_cta = $io_sql->select($ls_sql);
}
}
}
$li_numrows = $io_sql->num_rows($rs_cta);
if ($li_numrows > 0) {
while ($row = $io_sql->fetch_row($rs_cta)) {
print "<tr class=celdas-blancas>";
$ls_codact = $row["codact"];
$li_preartd= str_replace(",",".",$li_preartd);
$li_pesart= str_replace(".","",$li_pesart);
$li_pesart= str_replace(",",".",$li_pesart);
$li_altart= str_replace(".","",$li_altart);
$li_altart= str_replace(",",".",$li_altart);
$li_ancart= str_replace(".","",$li_ancart);
$li_ancart= str_replace(",",".",$li_ancart);
$li_proart= str_replace(".","",$li_proart);
$li_proart= str_replace(",",".",$li_proart);
$li_reoart= str_replace(".","",$li_reoart);
$li_reoart= str_replace(",",".",$li_reoart);
/////////////////////////////////////////////////////////////////
$ld_feccreart=$io_func-> uf_formatovalidofecha($ld_feccreart);
$ld_fecvenart=$io_func-> uf_formatovalidofecha($ld_fecvenart);
/////////////////////////////////////////////////////////////////
$ld_feccreart=$io_func->uf_convertirdatetobd($ld_feccreart);
$ld_fecvenart=$io_func->uf_convertirdatetobd($ld_fecvenart);
if ($ls_status=="C")
{
$lb_valido=$io_siv->uf_siv_update_articulo($ls_codemp, $ls_codart, $ls_denart, $ls_codtipart, $ls_codunimed,
$ld_feccreart, $ls_obsart, $li_exiart, $li_exiiniart, $li_eximinart,
$li_eximaxart, $li_prearta, $li_preartb, $li_preartc, $li_preartd,
$ld_fecvenart, $ls_spg_cuenta, $li_pesart, $li_altart, $li_ancart,
$li_proart, $ls_nomfot, $ls_codcatsig, $ls_sccuenta, $la_seguridad,
$ls_codprod,$ls_serart,$ls_fabart,$ls_ubiart,$ls_docart,$li_reoart);
if($lb_valido)
{
$lb_valido=$io_siv->uf_upload($ls_nomfot,$ls_tipfot,$ls_tamfot,$ls_nomtemfot);
}
if($lb_valido)
</table>
<span class="titulo-celdanew">
</span> </div></td>
</tr>
<tr>
<td height="18">
<?php
$lb_fecha=true;
if($ls_operacion=="BUSCAR")
{
if((($ld_desde!="")&&($ld_hasta!=""))&&(($ld_datedesde=="")&&($ld_datehasta=="")))
{
$lb_valido=uf_validar_fecha($ld_desde,$ld_hasta);
if($lb_valido)
{
$ld_datedesde=$io_fun->uf_convertirdatetobd($ld_desde);
$ld_datehasta=$io_fun->uf_convertirdatetobd($ld_hasta);
}
else
{
$ld_datedesde="";
$ld_datehasta="";
$lb_fecha=false;
}
}
// else
// {
// $ld_datedesde="";
// $ld_datehasta="";
// }
if($lb_fecha)
}
$la_objectcargos[$li_filascargos][1]="<input name=txtcodcar".$li_filascargos." type=text id=txtcodcar".$li_filascargos." class=sin-borde style= text-align:center size=5 readonly><input name=prog".$li_filascargos." type=hidden id=prog".$li_filascargos."><input name=spgcuenta".$li_filascargos." type=hidden id=spgcuenta".$li_filascargos.">";
$la_objectcargos[$li_filascargos][2]="<input name=txtnomcar".$li_filascargos." type=text id=txtnomcar".$li_filascargos." class=sin-borde style= text-align:left size=50 readonly>";
$la_objectcargos[$li_filascargos][3]="<input name=txtmoncar".$li_filascargos." type=text id=txtmoncar".$li_filascargos." class=sin-borde size=20 style= text-align:center readonly><input name=formula".$li_filascargos." type=hidden id=formula".$li_filascargos.">";
$la_objectcargos[$li_filascargos][4]="<input name=txtvacio".$li_filascargos." type=text id=txtvacio class=sin-borde style= text-align:center size=5 readonly>";
$ld_subtotal=$ld_montopar-$ld_baseimpo;
$ld_resultado=$ld_baseimpo+$ld_montotasi+$ld_subtotal;
$ls_montotasi=$io_funcsob->uf_convertir_numerocadena($ld_resultado);
}
/***************************************************************************************************************************************************************************/
/*******************************************INSERCION DE REGISTRO EN BD*******************************************************************************************************************************/
elseif($ls_operacion=="ue_guardar")
{
$ld_date=$io_function->uf_convertirdatetobd($ls_fecasi);
$ls_chk=$_POST["hidstatus"];
$io_asignacion->io_sql->begin_transaction();
$ls_codasiaux=$ls_codasi;
$lb_valido=$io_asignacion->uf_guardar_asignacion($ls_codasi,$ls_codobrasi,$ls_codproasi,$ls_codinsasi,$ls_ptocueasi,$ld_date,$ls_obsasi,$ls_monparasi,$ls_basimpasi,$ls_montotasi,$la_seguridad,$ls_chk);
if($lb_valido)
{
/************ GUARDANDO PARTIDAS ***********/
$li_partidas=1;
$la_partidas["codpar"][1]="";
$la_partidas["canteje"][1]="";
$la_partidas["cant"][1]="";
$la_partidas["preref"][1]="";
$la_partidas["pre"][1]="";
for ($li_i=1;$li_i<$li_filaspartidas;$li_i++)
$ld_fecincact = uf_obtenervalor("txtfecincact", "");
$ld_feccmpact = uf_obtenervalor("txtfeccmpact", "");
$ld_fecmod = uf_obtenervalor("txtfecmod", "");
$li_cosact = $io_fac->uf_convertirformatonumerico($li_cosact);
$li_cossal = $io_fac->uf_convertirformatonumerico($li_cossal);
$li_viduti = $io_fac->uf_convertirformatonumerico($li_viduti);
$li_mondep = $io_fac->uf_convertirformatonumerico($li_mondep);
$li_depmen = $io_fac->uf_convertirformatonumerico($li_depmen);
$li_depanu = $io_fac->uf_convertirformatonumerico($li_depanu);
$io_sql->begin_transaction();
for ($li_i = 1; $li_i <= $li_totrows; $li_i++) {
$ld_fecdep = $_POST["txtfecdep" . $li_i];
$li_mondepmen = $_POST["txtdepmen" . $li_i];
$li_mondepanu = $_POST["txtdepanu" . $li_i];
$li_mondepacu = $_POST["txtdepacu" . $li_i];
$ld_fecdepaux = $io_fun->uf_convertirdatetobd($ld_fecdep);
$li_mondepmen = $io_fac->uf_convertirformatonumerico($li_mondepmen);
$li_mondepanu = $io_fac->uf_convertirformatonumerico($li_mondepanu);
$li_mondepacu = $io_fac->uf_convertirformatonumerico($li_mondepacu);
if ($ld_fecmod == "") {
$lb_existe = $io_saf->uf_saf_select_depreciacion($ls_codemp, $ls_codact, $ls_ideact, $ld_fecdepaux);
if (!$lb_existe) {
$lb_valido = $io_saf->uf_saf_insert_depreciacion($ls_codemp, $ls_codact, $ls_ideact, $ld_fecdepaux, $li_mondepmen, $li_mondepanu, $li_mondepacu, $la_seguridad);
} else {
$io_msg->message("Ya existe una depreciación para este activo");
$lb_valido = false;
}
if (!$lb_valido) {
break;
}
} else {
$ls_cedbene="----------";
}
else
{
$ls_codpro="----------";
$ls_cedbene=$ls_provbene;
}
require_once("sigesp_scb_c_movbanco.php");
$in_classmovbanco=new sigesp_scb_c_movbanco($la_seguridad);
$ls_estretiva = $_SESSION["la_empresa"]["estretiva"];//Indica si las Retenciones IVA se aplican por Cuentas por Pagar o Banco.
$li_totfilsel = $_POST["hidtotfilsel"];
$li_totalRows = $_POST["totalrows"];
$arr_movbco["codban"] = $ls_codban;
$arr_movbco["ctaban"] = $ls_ctaban;
$arr_movbco["mov_document"] = $ls_numdoc;
$ld_fecdb = $io_funcion->uf_convertirdatetobd($ld_fecha);
$arr_movbco["codope"] = $ls_mov_operacion;
$arr_movbco["fecha"] = $ld_fecha;
$arr_movbco["codpro"] = $ls_codpro;
$arr_movbco["cedbene"] = $ls_cedbene;
$arr_movbco["monto_mov"] = $ldec_montomov;
$arr_movbco["objret"] = $ldec_monobjret;
$arr_movbco["retenido"] = $ldec_montoret;
$arr_movbco["estmov"] = $ls_estmov;
$ls_codfuefin = $_POST["txtcodfuefin1"];
$ls_codemp = $_SESSION["la_empresa"]["codemp"];
$ls_modageret = $_SESSION["la_empresa"]["modageret"];
$lb_valido = $in_classmovbanco->uf_guardar_automatico($ls_codban,$ls_ctaban,$ls_numdoc,$ls_mov_operacion,$ld_fecha,$ls_desmov,$ls_codconmov,$ls_codpro,$ls_cedbene,$ls_desproben,$ldec_montomov,$ldec_monobjret,$ldec_montoret,$ls_chevau,$ls_estmov,0,1,$ls_tipproben,'SCBBCH','',$ls_estdoc,$ls_tipproben,$ls_codfuefin,$ls_numordpagmin,$ls_codtipfon);
if ($lb_valido)
{
$lb_valido = $io_emiche->uf_actualizar_estatus_ch($ls_codban,$ls_ctaban,$ls_numdoc,$ls_numchequera);
function uf_print_retencioniva()
{
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_print_retencionesiva
// Access: private
// Arguments:
// Description: Función que obtiene e imprime los resultados de la busqueda de retenciones de iva
// Creado Por: Ing. Yesenia Moreno/ Ing. Luis Lang
// Fecha Creación: 12/07/2007 Fecha Última Modificación :
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
global $io_grid;
require_once("../../shared/class_folder/sigesp_include.php");
$io_include=new sigesp_include();
$io_conexion=$io_include->uf_conectar();
require_once("../../shared/class_folder/class_sql.php");
$io_sql=new class_sql($io_conexion);
require_once("../../shared/class_folder/class_mensajes.php");
$io_mensajes=new class_mensajes();
require_once("../../shared/class_folder/class_funciones.php");
$io_funciones=new class_funciones();
$ls_codemp=$_SESSION["la_empresa"]["codemp"];
$ls_tipproben=$_POST['tipproben'];
$ld_fecdes=$_POST['fecdes'];
$ld_fechas=$_POST['fechas'];
$ls_mes=$_POST['mes'];
$ls_anio=$_POST['anio'];
$ls_tipo=$_POST['tipo'];
$ls_numsol=$_POST['numsol'];
$ls_codprobendes=$_POST['codprobendes'];
$ls_codprobenhas=$_POST['codprobenhas'];
$ld_fecdes=$io_funciones->uf_convertirdatetobd($ld_fecdes);
$ld_fechas=$io_funciones->uf_convertirdatetobd($ld_fechas);
$ls_cedbendes="";
$ls_cedbenhas="";
$ls_codprodes="";
$ls_codprohas="";
$ls_criterio="";
$ls_criterio2="";
switch($ls_tipproben)
{
case "P":
$ls_codprodes=$ls_codprobendes;
$ls_codprohas=$ls_codprobenhas;
break;
case "B":
$ls_cedbendes=$ls_codprobendes;
$ls_cedbenhas=$ls_codprobenhas;
break;
}
if($ld_fecdes!="")
{
$ls_criterio=$ls_criterio." AND scb_cmp_ret.fecrep >= '".$ld_fecdes."'";
}
if($ld_fechas!="")
{
$ls_criterio=$ls_criterio." AND scb_cmp_ret.fecrep <= '".$ld_fechas."'";
}
if($ls_codprobendes!="")
{
$ls_criterio=$ls_criterio." AND scb_cmp_ret.codsujret >= '".$ls_codprobendes."'";
}
if($ls_codprobendes!="")
{
$ls_criterio=$ls_criterio." AND scb_cmp_ret.codsujret <= '".$ls_codprobendes."'";
}
/* if($ls_cedbendes!="")
{
$ls_criterio=$ls_criterio." AND sob_solicitudes.ced_bene >= '".$ls_cedbendes."'";
}
if($ls_cedbenhas!="")
{
$ls_criterio=$ls_criterio." AND sob_solicitudes.ced_bene <= '".$ls_cedbenhas."'";
}*/
$ls_periodofiscal = $ls_anio.$ls_mes;
$ls_where="";
if($ls_numsol!="")
{
$ls_where=" AND scb_dt_cmp_ret.numsop='".$ls_numsol."'";
}
$ls_sql="SELECT DISTINCT scb_cmp_ret.numcom, scb_cmp_ret.fecrep, scb_cmp_ret.perfiscal,scb_cmp_ret.codsujret,".
" scb_cmp_ret.nomsujret, scb_cmp_ret.dirsujret, scb_cmp_ret.rif,scb_dt_cmp_ret.codret,scb_cmp_ret.estcmpret ".
" FROM scb_cmp_ret, scb_dt_cmp_ret ".
" WHERE scb_cmp_ret.codemp = '".$ls_codemp."' ".
" AND scb_cmp_ret.codret = '".$ls_tipo."' ".
" AND scb_cmp_ret.perfiscal = '".$ls_periodofiscal."' ".
$ls_where.
" AND scb_cmp_ret.codemp = scb_dt_cmp_ret.codemp ".
" AND scb_cmp_ret.codret = scb_dt_cmp_ret.codret ".
" AND scb_cmp_ret.numcom = scb_dt_cmp_ret.numcom ".
// " AND scb_dt_cmp_ret.numsop = sob_solicitudes.numsol ".
$ls_criterio.
" ORDER BY scb_cmp_ret.numcom ";
$rs_data=$io_sql->select($ls_sql);
if($rs_data===false)
{
$io_mensajes->uf_mensajes_ajax("Error al cargar Retenciones IVA ","ERROR->".$io_funciones->uf_convertirmsg($io_sql->message),false,"");
}
else
{
print "<table width=600 border=0 cellpadding=1 cellspacing=1 class=fondo-tabla align=center>";
print "<tr class=titulo-celda>";
print "<td style=text-align:center width=100>Codigo</td>";
print "<td style=text-align:center width=50>Fecha</td>";
print "<td style=text-align:center width=450>Nombre</td>";
print "</tr>";
while($row=$io_sql->fetch_row($rs_data))
{
$ls_numcom=$row["numcom"];
$ls_perfiscal=$row["perfiscal"];
$ls_anofiscal=substr($ls_perfiscal,0,4);
$ls_mesfiscal=substr($ls_perfiscal,4,6);
$ls_codsujret=$row["codsujret"];
$ls_nomsujret=$row["nomsujret"];
$ls_dirsujret=$row["dirsujret"];
$ls_rifsujret=$row["rif"];
$ls_codret=$row["codret"];
$ld_fecrep=$io_funciones->uf_convertirfecmostrar($row["fecrep"]);
$ls_estcmpret=$row["estcmpret"];
print "<tr class=celdas-blancas>";
print "<td style=text-align:center width=100><a href=\"javascript:ue_aceptar('$ls_numcom','$ls_anofiscal','$ls_mesfiscal','$ls_codsujret','$ls_nomsujret','$ls_dirsujret','$ls_rifsujret','$ls_codret','$ls_estcmpret');\">".$ls_numcom."</a></td>";
print "<td style=text-align:center width=50>".$ld_fecrep."</td>";
print "<td style=text-align:left width=450>".$ls_nomsujret."</td>";
print "</tr>";
}
$io_sql->free_result($rs_data);
}
unset($io_include);
unset($io_conexion);
unset($io_sql);
unset($io_mensajes);
unset($io_funciones);
unset($ls_codemp);
}// end function uf_print_retencionesiva
$io_msg= new class_mensajes();
$arre=$_SESSION["la_empresa"];
$ls_gestor= $_SESSION["ls_gestor"];
$ls_codemp=$arre["codemp"];
if(array_key_exists("operacion",$_POST))
{
$ls_operacion=$_POST["operacion"];
$ls_numtra="%".$_POST["txtnumtra"]."%";
$ld_fecemi="%".$_POST["txtfecemi"]."%";
if ($ld_fecemi!="%%")
{
$porc="%";
$ld_fecemi=str_replace($porc,"",$ld_fecemi);
$ld_fecemi=$io_func->uf_convertirdatetobd($ld_fecemi);
}
$ls_status="%".$_POST["hidstatus"]."%";
}
else
{
$ls_operacion="";
}
print "<table width=500 border=0 cellpadding=1 cellspacing=1 class=fondo-tabla align=center>";
print "<tr class=titulo-celda>";
print "<td width=50>Número</td>";
print "<td width=50>Fecha</td>";
print "<td width=140>Origen</td>";
print "<td width=140>Destino</td>";
$ls_cedbene="----------";
}
else
{
$ls_cedbene=$ls_provbene;
$ls_codpro ="----------";
}
$ls_nomproben=$_POST["txtnomproben"];
$in_classmovbanco->io_sql->begin_transaction();
$lb_valido=$in_classmovbanco->uf_guardar_automatico($ls_codban,$ls_ctaban,$ls_mov_document,$ls_codope,$ld_fecha,$ls_mov_descripcion,$ls_codconmov,$ls_codpro,$ls_cedbene,$ls_nomproben,$ldec_monto_mov,$ldec_objret,$ldec_totret,$ls_chevau,$ls_estmov,$li_estint,$li_cobrapaga,$ls_estbpd,$ls_mov_procede,$ls_estreglib,$ls_estdoc,$ls_tipo,$ls_codfuefin,$ls_numordpagmin,$ls_codtipfon);
$arr_movbco["codban"]=$ls_codban;
$arr_movbco["ctaban"]=$ls_ctaban;
$arr_movbco["mov_document"]=$ls_mov_document;
$ld_fecdb=$fun->uf_convertirdatetobd($ld_fecha);
$arr_movbco["codope"]=$ls_codope;
$arr_movbco["fecha"]=$ld_fecha;
$arr_movbco["codpro"]=$ls_codpro;
$arr_movbco["cedbene"]=$ls_cedbene;
$arr_movbco["estmov"]=$ls_estmov;
$arr_movbco["monto_mov"]=$ldec_monto_mov;
$arr_movbco["objret"] =$ldec_objret;
$arr_movbco["retenido"] =$ldec_totret;
$ls_codded="00000";
if($lb_valido)
{
if(($ls_codope=="ND")||($ls_codope=="RE")||($ls_codope=="CH"))
{
break;
}
require_once("../../shared/class_folder/class_fecha.php");
$io_fecha=new class_fecha();
require_once("../class_funciones_scg.php");
$io_fun_scg=new class_funciones_scg();
$ia_niveles_scg[0]="";
uf_init_niveles();
$li_total=count($ia_niveles_scg)-1;
//---------------------------------------------------------------------------------------------------------------------------
//Parámetros para Filtar el Reporte
$ls_cmbmes=$_GET["cmbmes"];
$ls_cmbagno=$_GET["cmbagno"];
$ls_last_day=$io_fecha->uf_last_day($ls_cmbmes,$ls_cmbagno);
$fechas=$ls_last_day;
$ldt_fechas=$io_funciones->uf_convertirdatetobd($ls_last_day)." 00:00:00";
$li_nivel=$_GET["cmbnivel"];
//---------------------------------------------------------------------------------------------------------------------------
//Parámetros del encabezado
$ldt_periodo=$_SESSION["la_empresa"]["periodo"];
$ls_nombre=$_SESSION["la_empresa"]["nombre"];
$li_ano=substr($ldt_periodo,0,4);
$ld_fechas=$io_funciones->uf_convertirfecmostrar($fechas);
$ls_titulo="BALANCE GENERAL";
$ls_titulo1=" ".$ls_nombre." ";
$ls_titulo2=" al ".$ld_fechas."";
$ls_titulo3="(Expresado en ".$ls_bolivares.")";
//---------------------------------------------------------------------------------------------------------------------------
//Busqueda de la data
$lb_valido=uf_insert_seguridad("<b>Balance General en Excel</b>"); // Seguridad de Reporte
$io_funciones=new class_funciones();
require_once("../../shared/class_folder/class_fecha.php");
$io_fecha = new class_fecha();
require_once("sigesp_spg_funciones_reportes.php");
$io_function_report = new sigesp_spg_funciones_reportes();
//-------------------------------------------------- Parámetros para Filtar el Reporte -----------------------------------------
$ls_ckbrect=$_GET["ckbrect"];
$ls_ckbtras=$_GET["ckbtras"];
$ls_ckbinsu=$_GET["ckbinsu"];
$ls_ckbcre=$_GET["ckbcre"];
$ls_comprobante = $_GET["txtcomprobante"];
$ls_procede = $_GET["txtprocede"];
$ldt_fecha = $_GET["txtfecha"];
$fecdes=$_GET["txtfecdes"];
$ldt_fecdes=$io_funciones->uf_convertirdatetobd($fecdes);
$fechas=$_GET["txtfechas"];
$ldt_fechas=$io_funciones->uf_convertirdatetobd($fechas);
$ldt_fecha=$io_funciones->uf_convertirdatetobd($ldt_fecha);
///////////////////////////////// SEGURIDAD ///////////////////////////////////
$ls_desc_event="Solicitud de Reporte Modificaciones Presupuestarias Aprobadas desde la fecha ".$fecdes." hasta ".$fechas.", Comprobante ".$ls_comprobante." ,Procede ".$ls_procede." ,Fecha del Comprobante ".$ldt_fecha;
$io_function_report->uf_load_seguridad_reporte("SPG","sigesp_spg_r_modificaciones_presupuestarias_aprobadas.php",$ls_desc_event);
//////////////////////////////// SEGURIDAD ///////////////////////////////////
//---------------------------------------------------- Parámetros del encabezado -----------------------------------------------
$ls_titulo=" <b>MODIFICACIONES PRESUPUESTARIAS APROBADAS</b> ";
//--------------------------------------------------------------------------------------------------------------------------------
// Cargar el dts_cab con los datos de la cabecera del reporte( Selecciono todos comprobantes )
$lb_valido=$io_report->uf_spg_reporte_modificaciones_presupuestarias($ls_ckbrect,$ls_ckbtras,$ls_ckbinsu,$ls_ckbcre,
$ldt_fecdes,$ldt_fechas,$ls_comprobante,$ls_procede,
break;
}
return $ls_nombre;
}
if($ls_operacion=="BUSCAR")
{
$la_estpro[0]=$ls_estcla;
$la_estpro[1]=str_pad($ls_estpro1,25,"0",0);
$la_estpro[2]=str_pad($ls_estpro2,25,"0",0);
$la_estpro[3]=str_pad($ls_estpro3,25,"0",0);
$la_estpro[4]=str_pad($ls_estpro4,25,"0",0);
$la_estpro[5]=str_pad($ls_estpro5,25,"0",0);
$rs_data=NULL;
$ld_fechades=$fun->uf_convertirdatetobd($ls_fechades);
$ld_fechahas=$fun->uf_convertirdatetobd($ls_fechahas);
$ls_loncodestpro1 = $_SESSION["la_empresa"]["loncodestpro1"];
$ls_loncodestpro2 = $_SESSION["la_empresa"]["loncodestpro2"];
$ls_loncodestpro3 = $_SESSION["la_empresa"]["loncodestpro3"];
$ls_incio1=25-$ls_loncodestpro1;
$ls_incio2=25-$ls_loncodestpro2;
$ls_incio3=25-$ls_loncodestpro3;
if($li_estmodest == 2)
{
$ls_loncodestpro4 = $_SESSION["la_empresa"]["loncodestpro4"];
$ls_loncodestpro5 = $_SESSION["la_empresa"]["loncodestpro5"];
$ls_incio4=25-$ls_loncodestpro4;
$ls_incio5=25-$ls_loncodestpro5;
}
$in_classmod->uf_obtener_regmodificacion($ls_empresa,$la_estpro,$ls_cuentaplan,$ld_fechades,$ld_fechahas,$rs_data);
</tr>
</table>
<?php
if(($ls_tipocat=="")||($ls_tipocat=="rep_ejecucion"))
{
print "<table width=650 border=0 cellpadding=1 cellspacing=1 class=fondo-tabla align=center>";
print "<tr class=titulo-celda>";
print "<td>Comprobante</td>";
print "<td>Descripcion Comprobante</td>";
print "<td>Procede</td>";
print "<td>Fecha</td>";
print "</tr>";
}
if($ls_operacion=="BUSCAR")
{
$ls_fecdesde=$io_funciones->uf_convertirdatetobd($ls_fecdesde);
$ls_fechasta=$io_funciones->uf_convertirdatetobd($ls_fechasta);
$ls_logusr = $_SESSION["la_logusr"];
$ls_gestor = $_SESSION["ls_gestor"];
$ls_sql_seguridad = "";
if (strtoupper($ls_gestor) == "MYSQLT")
{
$ls_sql_seguridad = " AND CONCAT('".$ls_codemp."','SPG','".$ls_logusr."',b.codestpro1,b.codestpro2,b.codestpro3,b.codestpro4,b.codestpro5,b.estcla) IN (SELECT CONCAT(codemp,codsis,codusu,codintper)
FROM sss_permisos_internos WHERE codusu = '".$ls_logusr."' AND codsis = 'SPG')";
}
else
{
$ls_sql_seguridad = " AND '".$ls_codemp."'||'SPG'||'".$ls_logusr."'||b.codestpro1||b.codestpro2||b.codestpro3||b.codestpro4||b.codestpro5||b.estcla IN (SELECT codemp||codsis||codusu||codintper
FROM sss_permisos_internos WHERE codusu = '".$ls_logusr."' AND codsis = 'SPG')";
}
}
if($ls_operacion=="GUARDAR")
{
$ls_codemp=$la_emp["codemp"];
$ls_comprobante=$_POST["txtcomprobante"];
$ld_fecha=$_POST["txtfecha"];
$ls_procedencia=$_POST["txtproccomp"];
$ls_descripcion=$_POST["txtdesccomp"];
$ls_tipo=$_POST["tipo"];
$int_int->is_tipo=$ls_tipo;
$int_int->is_cod_prov=$_POST["txtprovbene"];
$int_int->is_ced_ben=$_POST["txtprovbene"];
$ls_desproben = $_POST["txtdesproben"];
$int_int->ib_procesando_cmp=false;
$int_int->id_fecha=$io_function->uf_convertirdatetobd($ld_fecha);
if( $ls_tipo=='P')
{
$ls_fuente = $_POST["txtprovbene"];
$int_int->is_cod_prov=$_POST["txtprovbene"];
$int_int->is_ced_ben="----------";
$prov_sel="selected";
$bene_sel="";
$ning_sel="";
}
elseif($ls_tipo=='B')
{
$ls_fuente = $_POST["txtprovbene"];
$int_int->is_ced_ben=$_POST["txtprovbene"];
$int_int->is_cod_prov="----------";
$ls_codestpro1h = $ls_codestpro1h_max;
$ls_codestpro2h = $ls_codestpro2h_max;
$ls_codestpro3h = $ls_codestpro3h_max;
$ls_codestpro4h = $ls_codestpro4h_max;
$ls_codestpro5h = $ls_codestpro5h_max;
}
}
$ls_cmbmesdes = $_GET["cmbmesdes"];
$ldt_fecini=$li_ano."-".$ls_cmbmesdes."-01";
$ldt_fecini_rep="01/".$ls_cmbmesdes."/".$li_ano;
$ls_cmbmeshas = $_GET["cmbmeshas"];
$ls_mes=$ls_cmbmeshas;
$ls_ano=$li_ano;
$fecfin=$io_fecha->uf_last_day($ls_mes,$ls_ano);
$ldt_fecfin=$io_funciones->uf_convertirdatetobd($fecfin);
$cmbnivel=$_GET["cmbnivel"];
if($cmbnivel=="s1")
{
$ls_cmbnivel="1";
}
else
{
$ls_cmbnivel=$cmbnivel;
}
$ls_subniv=$_GET["checksubniv"];
if($ls_subniv==1)
{
$lb_subniv=true;
}
else{$ls_unidad="Mayor";}
$li_canart=number_format($li_canart,2,",",".");
$li_cansol=number_format($li_cansol,2,",",".");
$li_preuniart=number_format($li_preuniart,2,",",".");
$li_montotart=number_format($li_montotart,2,",",".");
$la_data[$li_s]=array('articulo'=>$ls_denart,'almacen'=>$ls_nomfisalm,'unidad'=>$ls_unidad,'solicitada'=>$li_cansol,'despachada'=>$li_canart,'precio'=>$li_preuniart,'total'=>$li_montotart);
}
uf_print_detalle($la_data,$io_pdf); // Imprimimos el detalle
$li_total=number_format($li_total,2,",",".");
$li_totcanart=number_format($li_totcanart,2,",",".");
$li_totcansol=number_format($li_totcansol,2,",",".");
$la_data1[1]=array('total'=>'<b>Total</b>','totsol'=>$li_totcansol,'totart'=>$li_totcanart,'vacio'=>'--','totmon'=>$li_total);
uf_print_totales($la_data1,$io_pdf); // Imprimimos el detalle
$ld_fechaaux=$io_funciones->uf_convertirdatetobd($ls_fecha);
$lb_existe=$io_report->uf_siv_load_dt_contable($ls_codemp,$ls_numorddes,$ld_fechaaux); // Obtenemos el detalle del reporte
if($lb_existe)
{
$li_montotdeb=0;
$li_montothab=0;
$li_totrow_det=$io_report->ds_detcontable->getRowCount("sc_cuenta");
for($li_s=1;$li_s<=$li_totrow_det;$li_s++)
{
$ls_denartc= $io_report->ds_detcontable->data["denart"][$li_s];
$ls_cuenta= $io_report->ds_detcontable->data["sc_cuenta"][$li_s];
$ls_debhab= $io_report->ds_detcontable->data["debhab"][$li_s];
$li_monto= $io_report->ds_detcontable->data["monto"][$li_s];
if($ls_debhab=="D")
{$li_montotdeb=$li_montotdeb+$li_monto;}
else
