";
print "location.href='../sigesp_inicio_sesion.php'";
print "";
}
$ls_logusr=$_SESSION["la_logusr"];
require_once("class_folder/class_funciones_viaticos.php");
$io_fun_viaticos=new class_funciones_viaticos();
$io_fun_viaticos->uf_load_seguridad("SCV","sigesp_scv_p_calcularviaticos.php",$ls_permisos,$la_seguridad,$la_permisos);
////////////////////////////////////////////// SEGURIDAD /////////////////////////////////////////////
//--------------------------------------------------------------
function uf_limpiarvariables($as_titulo)
{
//////////////////////////////////////////////////////////////////////////////
// Function: uf_limpiarvariables
// Description: Función que limpia todas las variables necesarias en la página
//////////////////////////////////////////////////////////////////////////////
global $ls_codsolvia,$ld_fecsolvia,$ls_codmis,$ls_denmis,$ls_codrut,$ls_desrut,$ls_coduniadm,$ls_denuniadm;
global $ls_ctaspg,$ls_denctaspg,$ld_fecsal,$ld_fecreg,$li_numdia,$ls_obssolvia,$ls_checked,$li_totsolviaaux;
global $ls_codtipdoc,$ls_dentipdoc,$ls_codfuefin;
global $ls_titletable,$li_widthtable,$ls_nametable,$lo_title,$li_totrows;
global $ls_titlepersonal,$lo_titlepersonal,$li_totrowspersonal;
global $ls_titlepresupuesto,$lo_titlepresupuesto,$li_totrowspresupuesto;
global $ls_titlecontable,$lo_titlecontable,$li_totrowscontable;
//Agregado por OFIMATICA DE VENEZUELA el 25-05-2011 para el control del check de reposicion de caja chica
global $ls_checked_caj;
$ls_checked_caj="";
//Fin bloque OFIMATICA DE VENEZUELA
$ls_codsolvia="";
$ld_fecsolvia=date("d/m/Y");
$ls_codmis="";
$ls_denmis="";
$ls_codrut="";
$ls_desrut="";
$ls_coduniadm="";
$ls_denuniadm="";
$ls_ctaspg="";
$ls_denctaspg="";
$ld_fecsal="";
$ld_fecreg="";
$li_numdia="";
$ls_obssolvia="";
$ls_checked="";
$li_totsolviaaux="0,00";
$ls_codtipdoc="";
$ls_dentipdoc="";
$ls_codfuefin="";
$ls_titletable="Asignaciones";
$li_widthtable=700;
$ls_nametable="grid";
$lo_title[1]="Procedencia";
$lo_title[2]="Código";
$lo_title[3]="Concepto";
$lo_title[4]="Cantidad";
$li_totrows=1;
$ls_titlepersonal="Personal";
$lo_titlepersonal[1]="Código";
$lo_titlepersonal[2]="Nombre";
$lo_titlepersonal[3]="Cédula";
$lo_titlepersonal[4]="Cargo";
$lo_titlepersonal[5]="Categoría";
$li_totrowspersonal=1;
$ls_titlepresupuesto="Detalles Presupuestario";
$lo_titlepresupuesto[1]=$as_titulo;
$lo_titlepresupuesto[2]="Estatus";
$lo_titlepresupuesto[3]="Cuenta";
$lo_titlepresupuesto[4]="Monto";
$li_totrowspresupuesto=1;
$ls_titlecontable="Detalles Contables";
$lo_titlecontable[1]="Cuenta";
$lo_titlecontable[2]="Debe/Haber";
$lo_titlecontable[3]="Monto";
$li_totrowscontable=1;
}
?>
Cálculo de Solicitud de Viaticos
Control de Viaticos
uf_conectar();
require_once("../shared/class_folder/class_sql.php");
$io_sql= new class_sql($con);
require_once("../shared/class_folder/class_mensajes.php");
$io_msg= new class_mensajes();
require_once("../shared/class_folder/class_funciones.php");
$io_fun= new class_funciones();
require_once("../shared/class_folder/class_funciones_db.php");
$io_fundb= new class_funciones_db($con);
require_once("../shared/class_folder/grid_param.php");
$in_grid= new grid_param();
require_once("sigesp_scv_c_calcularviaticos.php");
$io_scv= new sigesp_scv_c_calcularviaticos();
require_once("../shared/class_folder/class_fecha.php");
$io_fec= new class_fecha();
$ls_codemp= $_SESSION["la_empresa"]["codemp"];
$ls_conrecdoc= $_SESSION["la_empresa"]["conrecdoc"];
$ls_modalidad= $_SESSION["la_empresa"]["estmodest"];
switch($ls_modalidad)
{
case "1": // Modalidad por Proyecto
$ls_titulo="Estructura Presupuestaria ";
break;
case "2": // Modalidad por Presupuesto
$ls_titulo="Estructura Programática ";
break;
}
$ls_operacion=$io_fun_viaticos->uf_obtenervalor("operacion","NUEVO");
uf_limpiarvariables($ls_titulo);
/* if(empty($ls_operacion))
{
$io_scv->uf_agregarlineablanca($lo_object,$li_totrows);
$io_scv->uf_agregarlineablancapersonal($lo_objectpersonal,$li_totrowspersonal);
$io_scv->uf_agregarlineablancapresupuesto($lo_objectpresupuesto,$li_totrowspresupuesto);
$io_scv->uf_agregarlineablancacontable($lo_objectcontable,$li_totrowscontable);
}
*/ $ls_codsolvia= $io_fun_viaticos->uf_obtenervalor("txtcodsolvia","");
$ld_fecsolvia= $io_fun_viaticos->uf_obtenervalor("txtfecsolvia","");
$ls_codmis= $io_fun_viaticos->uf_obtenervalor("txtcodmis","");
$ls_denmis= $io_fun_viaticos->uf_obtenervalor("txtdenmis","");
$ls_codrut= $io_fun_viaticos->uf_obtenervalor("txtcodrut","");
$ls_desrut= $io_fun_viaticos->uf_obtenervalor("txtdesrut","");
$ls_coduniadm= $io_fun_viaticos->uf_obtenervalor("txtcoduniadm","");
$ls_denuniadm= $io_fun_viaticos->uf_obtenervalor("txtdenuniadm","");
$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","");
$ls_codtipdoc= $io_fun_viaticos->uf_obtenervalor("txtcodtipdoc","");
$ls_dentipdoc= $io_fun_viaticos->uf_obtenervalor("txtdentipdoc","");
$ls_codfuefin= $io_fun_viaticos->uf_obtenervalor("txtcodfuefin","");
$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);
$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);
$lb_cierre=$io_fun_viaticos->uf_select_cierre_presupuestario();
if($li_solviaext==1)
{
$ls_checked="checked";
}
//AGREGADO POR OFIMATICA DE VENEZUELA 25-05-2011 PARA EL MANEJO DE VIATICOS COMO REPOSICION DE GASTOS
$li_repcajchi= $io_fun_viaticos->uf_obtenervalor("chkrepcajchi",0);
if($li_repcajchi==1)
{
$ls_checked_caj="checked";
}
/////////////////////////////////////////////////////////////////////////////////////////////////////
switch ($ls_operacion)
{
case "NUEVO":
uf_limpiarvariables($ls_titulo);
$ls_estatus="";
$io_scv->uf_agregarlineablanca($lo_object,1);
$io_scv->uf_agregarlineablancapersonal($lo_objectpersonal,$li_totrowspersonal);
$io_scv->uf_agregarlineablancapresupuesto($lo_objectpresupuesto,$li_totrowspresupuesto);
$io_scv->uf_agregarlineablancacontable($lo_objectcontable,$li_totrowscontable);
break;
case "GUARDAR":
$li_totrowscontable= $io_fun_viaticos->uf_obtenervalor("totalfilascontable","");
$li_totrowspresupuesto= $io_fun_viaticos->uf_obtenervalor("totalfilaspresupuesto","");
$li_totrowspersonal= $io_fun_viaticos->uf_obtenervalor("totalfilaspersonal","");
$ls_codestpro1= $io_fun_viaticos->uf_obtenervalor("txtcodestpro1","");
$ls_codestpro2= $io_fun_viaticos->uf_obtenervalor("txtcodestpro2","");
$ls_codestpro3= $io_fun_viaticos->uf_obtenervalor("txtcodestpro3","");
$ls_codestpro4= $io_fun_viaticos->uf_obtenervalor("txtcodestpro4","");
$ls_codestpro5= $io_fun_viaticos->uf_obtenervalor("txtcodestpro5","");
$ls_estcla= $io_fun_viaticos->uf_obtenervalor("hidestcla","");
$li_totsolvia= $io_fun_viaticos->uf_obtenervalor("txttotsolvia","");
$li_totsolviaaux= str_replace(".","",$li_totsolvia);
$li_totsolviaaux= str_replace(",",".",$li_totsolviaaux);
$ls_codpro="----------";
$ls_tipodestino="B";
if($ls_obssolvia=="")
{
$ls_descripcion="Calculo de Viaticos de la solicitud ".$ls_codsolvia;
}
else
{
$ls_descripcion=$ls_obssolvia;
}
$lb_valido=$io_fun_viaticos->uf_select_cierre_presupuestario();
if($lb_valido)
{
$ls_operacion="OC";
$ls_codcom=$io_fun->uf_cerosizquierda($ls_codsolvia,11);
$ls_codcom="SCV-".$ls_codcom;
$li_totper=($li_totrowspersonal-1);
$li_montotper=($li_totsolviaaux/$li_totper);
$io_sql->begin_transaction();
for($li_i=1;$li_i<$li_totrowspersonal;$li_i++)
{
$ls_cedper= $io_fun_viaticos->uf_obtenervalor("txtcedper".$li_i,"");
$ls_codper= $io_fun_viaticos->uf_obtenervalor("txtcodper".$li_i,"");
for($li_j=1;$li_j<$li_totrowspresupuesto;$li_j++)
{
$ls_spgcuenta=$io_fun_viaticos->uf_obtenervalor("txtspgcuenta".$li_j,"");
$ls_monpre=$io_fun_viaticos->uf_obtenervalor("txtmonpre".$li_j,"");
$ls_monpre= str_replace(".","",$ls_monpre);
$ls_monpre= str_replace(",",".",$ls_monpre);
$ls_monpreper=($ls_monpre/$li_totper);
$lb_valido=$io_scv->uf_scv_insert_dt_spg($ls_codemp,$ls_codsolvia,$ls_codcom,$ls_codestpro1,$ls_codestpro2,
$ls_codestpro3,$ls_codestpro4,$ls_codestpro5,$ls_estcla,
$ls_spgcuenta,$ls_operacion,$ls_codpro,$ls_cedper,$ls_tipodestino,
$ls_descripcion,$ls_monpreper,$ls_codfuefin,$la_seguridad);
if(!$lb_valido)
{break;}
}
if($lb_valido)
{
for($li_k=1;$li_k<$li_totrowscontable;$li_k++)
{
$ls_sccuenta=$io_fun_viaticos->uf_obtenervalor("txtsccuenta".$li_k,"");
$ls_columna=$io_fun_viaticos->uf_obtenervalor("txtdebhab".$li_k,"");
$ls_moncon=$io_fun_viaticos->uf_obtenervalor("txtmoncon".$li_k,"");
$ls_moncon= str_replace(".","",$ls_moncon);
$ls_moncon= str_replace(",",".",$ls_moncon);
$ls_monconper=($ls_moncon/$li_totper);
if($ls_columna=="DEBE"){$ls_debhab="D";}
else{$ls_debhab="H";}
$lb_valido=$io_scv->uf_scv_insert_dt_scg($ls_codemp,$ls_codsolvia,$ls_codcom,$ls_sccuenta,$ls_debhab,
$ls_codpro,$ls_cedper,$ls_tipodestino,$ls_descripcion,
$ls_monconper,$la_seguridad);
}
}
if($lb_valido)
{
$lb_valido=$io_scv->uf_scv_update_montopersonal($ls_codemp,$ls_codsolvia,$ls_codper,$li_montotper,$la_seguridad);
}
}
/*for($li_i=1;$li_i<$li_totrowspersonal;$li_i++)
{
if($lb_valido)
{
$ls_cedper= $io_fun_viaticos->uf_obtenervalor("txtcedper".$li_i,"");
$lb_valido=$io_scv->uf_scv_procesar_recepcion_documento_viatico($ls_codsolvia,$ls_codcom,$ls_cedper,
$ls_codtipdoc,$ls_descripcion,$ld_fecsolaux,
$li_montotper,$ls_codfuefin,$la_seguridad);
if(!$lb_valido)
{break;}
}
}
if($lb_valido)
{
$lb_valido=$io_scv->uf_insert_recepcion_documento_gasto($ls_codcom,$ls_codtipdoc,$ls_cedper,$ls_codpro,$li_montotper);
if($lb_valido)
{
$lb_valido=$io_scv->uf_insert_recepcion_documento_contable($ls_codcom,$ls_codtipdoc,$ls_cedper,$ls_codpro,
$li_montotper);
}
}*/
if($lb_valido)
{
$lb_valido=$io_scv->uf_scv_update_solicitudviatico($ls_codemp,$ls_codsolvia,$ls_codtipdoc,$li_totsolviaaux,$la_seguridad);
}
if($lb_valido)
{
$io_sql->commit();
$io_msg->message("La Solicitud de Viaticos fue Procesada");
}
else
{
$io_sql->rollback();
$io_msg->message("No se pudo Procesar la Solicitud de Viaticos");
}
}
uf_limpiarvariables($ls_titulo);
$ls_estatus="";
$io_scv->uf_agregarlineablanca($lo_object,$li_totrows);
$io_scv->uf_agregarlineablancapersonal($lo_objectpersonal,$li_totrowspersonal);
$io_scv->uf_agregarlineablancapresupuesto($lo_objectpresupuesto,$li_totrowspresupuesto);
$io_scv->uf_agregarlineablancacontable($lo_objectcontable,$li_totrowscontable);
break;
case "BUSCARDETALLE":
$li_totrows=0;
$li_totrowspersonal=0;
$lb_valido=$io_scv->uf_scv_load_dt_asignacion($ls_codemp,$ls_codsolvia,$li_totrows,$lo_object);
if($lb_valido)
{
$lb_valido=$io_scv->uf_scv_load_dt_personal($ls_codemp,$ls_codsolvia,$li_totrowspersonal,$lo_objectpersonal);
}
$li_totrows++;
$li_totrowspersonal++;
$io_scv->uf_agregarlineablanca($lo_object,$li_totrows);
$io_scv->uf_agregarlineablancapersonal($lo_objectpersonal,$li_totrowspersonal);
$io_scv->uf_agregarlineablancapresupuesto($lo_objectpresupuesto,$li_totrowspresupuesto);
$io_scv->uf_agregarlineablancacontable($lo_objectcontable,$li_totrowscontable);
break;
case "PROCESAR":
$lb_valido=false;
$li_totrows= $io_fun_viaticos->uf_obtenervalor("totalfilas","");
$ls_codcatper= $io_fun_viaticos->uf_obtenervalor("hidcatper","");
$_SESSION["fechacomprobante"]=$ld_fecsolaux;
$li_totrowspersonal= $io_fun_viaticos->uf_obtenervalor("totalfilaspersonal","");
$io_scv->uf_repintarpersonal($lo_objectpersonal,$li_totrowspersonal);
$io_scv->uf_repintarasignaciones($lo_object,$li_totrows);
$li_totper=$li_totrowspersonal-1;
$li_totsolvia=0;
$li_totdisvia=0;
$ls_sccuentadis="";
$ls_sccuenta="";
$lb_valido=$io_fun_viaticos->uf_select_cierre_presupuestario();
if($lb_valido)
{
$lb_valido=$io_fec->uf_valida_fecha_periodo($ld_fecsolvia,$ls_codemp);
if($lb_valido)
{
if($ls_conrecdoc==1)
{
$lb_existe= $io_scv->uf_scv_load_config($ls_codemp,"SCV","CONFIG","BENEFICIARIORD",$ls_scben);
}
else
{
$lb_existe= $io_scv->uf_scv_load_config($ls_codemp,"SCV","CONFIG","BENEFICIARIO",$ls_scben);
}
if(!$lb_existe)
{
$io_msg->message("No se ha definido cuenta para el Beneficiario");
$io_scv->uf_agregarlineablancapresupuesto($lo_objectpresupuesto,$li_totrowspresupuesto);
$io_scv->uf_agregarlineablancacontable($lo_objectcontable,$li_totrowscontable);
$li_totsolviaaux="0,00";
break;
}
$ldec_total_haber=0;
for($li_i=1;$li_i<$li_totrows;$li_i++)
{
$li_totdisvia=0;
$li_otrasasignaciones=0;
$li_transporte=0;
$li_tarifaviatico=0;
$ls_proasi= $io_fun_viaticos->uf_obtenervalor("txtproasig".$li_i,"");
$ls_codasi= $io_fun_viaticos->uf_obtenervalor("txtcodasig".$li_i,"");
$ls_denasi= $io_fun_viaticos->uf_obtenervalor("txtdenasig".$li_i,"");
$li_canasi= $io_fun_viaticos->uf_obtenervalor("txtcantidad".$li_i,"");
$li_canasi= str_replace(".","",$li_canasi);
$li_canasi= str_replace(",",".",$li_canasi);
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// BLOQUE COMPLETAMENTE MODIFICADO POR OFIMATICA DE VENEZUELA, SE AGREGA EL CAMPO estexterior, ESTE INDICA SI LA ASIGNACION CORRESPONDE AL EXTERIOR
// PARA BUSCAR LA PARTIDA QUE CORRESPONDA A DICHA TARIFA, Y SE REALIZA AHORA POR BLOQUES LA IMPUTACION POR CADA TIPO DE TARIFA BUSCANDO
// LA CUENTA QUE REALMENTE CORRESPONDA
$li_estexterior= $io_fun_viaticos->uf_obtenervalor("hidestexterior".$li_i,0);
if($li_estexterior==1)
{
$ls_tipvia="INTERNACIONALES";
}
else
{
$ls_tipvia="NACIONALES";
}
$ls_proasi=trim($ls_proasi);
if($ls_proasi=='TDS')//TARIFAS POR DISTANCIA
{
$lb_valido=$io_scv->uf_scv_load_config($ls_codemp,"SCV","CONFIG","DISTANCIA",$ls_spgcuentadistancia);
$lb_valido=$io_scv->uf_scv_load_tarifasviaticos($ls_codemp,$ls_proasi,$ls_codasi,$li_canasi,
$li_monasi,$ls_codsolvia,$la_seguridad);
if($lb_valido)
{
$li_totdisvia=($li_totdisvia+$li_monasi);
$li_totdisvia=($li_totdisvia*$li_totper);
$lb_valido=$io_scv->uf_scv_procesar_asientos($ls_codemp,$ls_coduniadm,"SCV","CONFIG","DISTANCIA",
$ls_spgcuentadistancia,
$ls_estpre,$ls_sccuenta,$li_disponible,$ls_codestpro1,
$ls_codestpro2,$ls_codestpro3,$ls_codestpro4,$ls_codestpro5,
$ls_estcla,$ls_codsolvia,$li_totdisvia);
if($lb_valido)
{
$ls_codestpro=$ls_codestpro1.$ls_codestpro2.$ls_codestpro3.$ls_codestpro4.$ls_codestpro5;
$io_fun_viaticos->uf_formatoprogramatica($ls_codestpro,$ls_programatica);
switch($ls_modalidad)
{
case "1": // Modalidad por Proyecto
$ls_titulo="Estructura Presupuestaria ";
break;
case "2": // Modalidad por Presupuesto
$ls_titulo="Estructura Programática ";
break;
}
if($li_totdisvia<=$li_disponible)
{
$lb_valido=$io_scv->uf_scv_load_presupuesto($ls_codestpro,$ls_spgcuentadistancia,$li_totdisvia,$ls_estpre,$ls_estcla,$lo_objectpresupuesto,
$li_totrowspresupuesto,$ls_programatica);
if($lb_valido)
{
$ldec_total_haber=$ldec_total_haber+$li_totdisvia;
$lb_valido=$io_scv->uf_scv_load_contable($ls_sccuenta,$li_totdisvia,'DEBE',$lo_objectcontable,$li_totrowscontable);
}
}
else
{
// $io_msg->message("No existe disponibilidad en la cuenta ".$ls_spgcuenta." de Viaticos");
$io_scv->uf_agregarlineablancapresupuesto($lo_objectpresupuesto,$li_totrowspresupuesto);
//$io_scv->uf_agregarlineablancacontable($lo_objectcontable,$li_totrowscontable);
$li_totsolviaaux="0,00";
}
}
}
}
elseif($ls_proasi=='TOA')//TARIFAS POR OTRAS ASIGNACIONES
{
$lb_valido=$io_scv->uf_scv_load_config($ls_codemp,"SCV","CONFIG",$ls_tipvia,$ls_spgcuenta_otras_asig);
$lb_valido=$io_scv->uf_scv_load_tarifasviaticos($ls_codemp,$ls_proasi,$ls_codasi,$li_canasi,
$li_monasi,$ls_codsolvia,$la_seguridad);
if($lb_valido)
{
$li_otrasasignaciones=($li_otrasasignaciones+$li_monasi);
$li_otrasasignaciones=($li_otrasasignaciones*$li_totper);
$lb_valido=$io_scv->uf_scv_procesar_asientos($ls_codemp,$ls_coduniadm,"SCV","CONFIG",$ls_tipvia,
$ls_spgcuenta_otras_asig,
$ls_estpre,$ls_sccuenta,$li_disponible,$ls_codestpro1,
$ls_codestpro2,$ls_codestpro3,$ls_codestpro4,$ls_codestpro5,
$ls_estcla,$ls_codsolvia,$li_otrasasignaciones);
if($lb_valido)
{
$ls_codestpro=$ls_codestpro1.$ls_codestpro2.$ls_codestpro3.$ls_codestpro4.$ls_codestpro5;
$io_fun_viaticos->uf_formatoprogramatica($ls_codestpro,$ls_programatica);
switch($ls_modalidad)
{
case "1": // Modalidad por Proyecto
$ls_titulo="Estructura Presupuestaria ";
break;
case "2": // Modalidad por Presupuesto
$ls_titulo="Estructura Programática ";
break;
}
if($li_otrasasignaciones<=$li_disponible)
{
$lb_valido=$io_scv->uf_scv_load_presupuesto($ls_codestpro,$ls_spgcuenta_otras_asig,$li_otrasasignaciones,$ls_estpre,$ls_estcla,$lo_objectpresupuesto,
$li_totrowspresupuesto,$ls_programatica);
if($lb_valido)
{
$ldec_total_haber=$ldec_total_haber+$li_otrasasignaciones;
$lb_valido=$io_scv->uf_scv_load_contable($ls_sccuenta,$li_otrasasignaciones,'DEBE',$lo_objectcontable,$li_totrowscontable);
}
}
else
{
// $io_msg->message("No existe disponibilidad en la cuenta ".$ls_spgcuenta." de Viaticos");
$io_scv->uf_agregarlineablancapresupuesto($lo_objectpresupuesto,$li_totrowspresupuesto);
//$io_scv->uf_agregarlineablancacontable($lo_objectcontable,$li_totrowscontable);
$li_totsolviaaux="0,00";
}
}
}
}
elseif($ls_proasi=='TRP')//TARIFAS POR TRANSPORTE
{
$lb_valido=$io_scv->uf_scv_load_config($ls_codemp,"SCV","CONFIG",$ls_tipvia,$ls_spgcuenta_transporte);
$lb_valido=$io_scv->uf_scv_load_tarifasviaticos($ls_codemp,$ls_proasi,$ls_codasi,$li_canasi,
$li_monasi,$ls_codsolvia,$la_seguridad);
if($lb_valido)
{
$li_transporte=($li_transporte+$li_monasi);
$li_transporte=($li_transporte*$li_totper);
$lb_valido=$io_scv->uf_scv_procesar_asientos($ls_codemp,$ls_coduniadm,"SCV","CONFIG",$ls_tipvia,
$ls_spgcuenta_transporte,
$ls_estpre,$ls_sccuenta,$li_disponible,$ls_codestpro1,
$ls_codestpro2,$ls_codestpro3,$ls_codestpro4,$ls_codestpro5,
$ls_estcla,$ls_codsolvia,$li_transporte);
if($lb_valido)
{
$ls_codestpro=$ls_codestpro1.$ls_codestpro2.$ls_codestpro3.$ls_codestpro4.$ls_codestpro5;
$io_fun_viaticos->uf_formatoprogramatica($ls_codestpro,$ls_programatica);
switch($ls_modalidad)
{
case "1": // Modalidad por Proyecto
$ls_titulo="Estructura Presupuestaria ";
break;
case "2": // Modalidad por Presupuesto
$ls_titulo="Estructura Programática ";
break;
}
if($li_transporte<=$li_disponible)
{
$lb_valido=$io_scv->uf_scv_load_presupuesto($ls_codestpro,$ls_spgcuenta_transporte,$li_transporte,$ls_estpre,$ls_estcla,$lo_objectpresupuesto,
$li_totrowspresupuesto,$ls_programatica);
if($lb_valido)
{
$ldec_total_haber=$ldec_total_haber+$li_transporte;
$lb_valido=$io_scv->uf_scv_load_contable($ls_sccuenta,$li_transporte,'DEBE',$lo_objectcontable,$li_totrowscontable);
}
}
else
{
// $io_msg->message("No existe disponibilidad en la cuenta ".$ls_spgcuenta." de Viaticos");
$io_scv->uf_agregarlineablancapresupuesto($lo_objectpresupuesto,$li_totrowspresupuesto);
//$io_scv->uf_agregarlineablancacontable($lo_objectcontable,$li_totrowscontable);
$li_totsolviaaux="0,00";
}
}
}
}
else//TARIFAS VIATICOS POR CLASIFICACION
{
$lb_valido=$io_scv->uf_scv_load_config($ls_codemp,"SCV","CONFIG",$ls_tipvia,$ls_spgcuentaviaticos);
if($ls_codcatper!="")
{
if($ls_proasi=="TVS")
{
$lb_existe= $io_scv->uf_scv_select_categoriaviaticos($ls_codemp,$ls_codasi,$ls_codcatper);
if($lb_existe)
{
$lb_valido=true;
}
else
{
$lb_valido=true;
//$io_msg->message("Alguna tarifa no se corresponde a la categoria mayor del personal");
$io_scv->uf_agregarlineablancapresupuesto($lo_objectpresupuesto,$li_totrowspresupuesto);
$io_scv->uf_agregarlineablancacontable($lo_objectcontable,$li_totrowscontable);
}
}
else
{
$lb_valido=true;
}
}
else
{
$lb_valido=true;
}
if($lb_valido)
{
$lb_valido=$io_scv->uf_scv_load_tarifasviaticos($ls_codemp,$ls_proasi,$ls_codasi,$li_canasi,
$li_monasi,$ls_codsolvia,$la_seguridad);
if($lb_valido)
{
$li_tarifaviatico=($li_tarifaviatico+$li_monasi);
$li_tarifaviatico=($li_tarifaviatico*$li_totper);
$lb_valido=$io_scv->uf_scv_procesar_asientos($ls_codemp,$ls_coduniadm,"SCV","CONFIG",$ls_tipvia,
$ls_spgcuentaviaticos,
$ls_estpre,$ls_sccuenta,$li_disponible,$ls_codestpro1,
$ls_codestpro2,$ls_codestpro3,$ls_codestpro4,$ls_codestpro5,
$ls_estcla,$ls_codsolvia,$li_tarifaviatico);
if($lb_valido)
{
$ls_codestpro=$ls_codestpro1.$ls_codestpro2.$ls_codestpro3.$ls_codestpro4.$ls_codestpro5;
$io_fun_viaticos->uf_formatoprogramatica($ls_codestpro,$ls_programatica);
switch($ls_modalidad)
{
case "1": // Modalidad por Proyecto
$ls_titulo="Estructura Presupuestaria ";
break;
case "2": // Modalidad por Presupuesto
$ls_titulo="Estructura Programática ";
break;
}
if($li_tarifaviatico<=$li_disponible)
{
$lb_valido=$io_scv->uf_scv_load_presupuesto($ls_codestpro,$ls_spgcuentaviaticos,$li_tarifaviatico,$ls_estpre,$ls_estcla,$lo_objectpresupuesto,
$li_totrowspresupuesto,$ls_programatica);
if($lb_valido)
{
$ldec_total_haber=$ldec_total_haber+$li_tarifaviatico;
$lb_valido=$io_scv->uf_scv_load_contable($ls_sccuenta,$li_tarifaviatico,'DEBE',$lo_objectcontable,$li_totrowscontable);
}
}
else
{
// $io_msg->message("No existe disponibilidad en la cuenta ".$ls_spgcuenta." de Viaticos");
$io_scv->uf_agregarlineablancapresupuesto($lo_objectpresupuesto,$li_totrowspresupuesto);
//$io_scv->uf_agregarlineablancacontable($lo_objectcontable,$li_totrowscontable);
$li_totsolviaaux="0,00";
}
}
}
}
}
}// FIN DE FOR
if($lb_valido)
{
$lb_valido=$io_scv->uf_scv_load_contable($ls_scben,$ldec_total_haber,'HABER',$lo_objectcontable,$li_totrowscontable);
}
$li_totsolviaaux=number_format($ldec_total_haber,2,",",".");
//FIN DE MODIFICACION REALIZADA POR OFIMATICA DE VENEZUELA CON RESPECTO A LA SEPARACION DE LAS ASIGNACION SEGUN SU PROCEDENCIA NACIONAL O EXTERIOR
}
else
{
$io_msg->message("El mes no esta abierto");
$io_scv->uf_agregarlineablancapresupuesto($lo_objectpresupuesto,$li_totrowspresupuesto);
$io_scv->uf_agregarlineablancacontable($lo_objectcontable,$li_totrowscontable);
$li_totsolviaaux="0,00";
}
}
unset($_SESSION["fechacomprobante"]);
break;
}
switch($ls_estsolvia)
{
case "R":
$ls_estatussol="Registro";
break;
case "":
$ls_estatussol="";
break;
}
?>
