";
}
$aa_object[$ai_totrows][1]="".
"".
"".
"".
"";
$aa_object[$ai_totrows][2]="";
$aa_object[$ai_totrows][3]="".
$ls_href;
$aa_object[$ai_totrows][4]="";
$aa_object[$ai_totrows][5]="".
"";
$aa_object[$ai_totrows][6]="";
$aa_object[$ai_totrows][7]="";
$aa_object[$ai_totrows][8]="".
"";
$aa_object[$ai_totrows][9]="";
$aa_object[$ai_totrows][10]="
".
" ";
}
//--------------------------------------------------------------
function uf_agregarlineablancacontable(&$aa_objectc,$ai_totrowsc)
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_agregarlineablancacontable
// Access: private
// Argumento: $aa_objectc // arreglo de titulos
// $ai_totrowsc // ultima fila pintada en el grid
// Returns:
// Description: Funcion que agrega una linea en blanco al final del grid del detalle contable
// Creado Por: Ing. Luis Anibal Lang
// Fecha Creación: 08/02/2006 Fecha Última Modificación :
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
$aa_objectc[$ai_totrowsc][1]="".
"".
$aa_objectc[$ai_totrowsc][2]="";
$aa_objectc[$ai_totrowsc][3]="";
$aa_objectc[$ai_totrowsc][4]="";
}
//--------------------------------------------------------------
function uf_limpiarvariables()
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_limpiarvariables
// Access: private
// Argumento:
// Returns:
// Description: Función que limpia todas las variables necesarias en la página
// Creado Por: Ing. Luis Anibal Lang
// Fecha Creación: 08/02/2006 Fecha Última Modificación :
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
global $ls_numorddes,$ls_numsol,$ls_coduniadm,$ls_denuniadm,$ls_obsdes,$ld_fecdes,$li_estint,$ls_ctascgint;
global $ls_codusu,$ls_readonly,$ls_codunides,$ls_denunides,$ls_checkedparc,$ls_checkedcomp;
$ls_numorddes="";
$ls_numsol="";
$ls_coduniadm="";
$ls_denuniadm="";
$ls_obsdes="";
$ld_fecdes=date("d/m/Y");
$ls_codusu=$_SESSION["la_logusr"];
$ls_readonly="true";
$ls_codunides="";
$ls_denunides="";
$ls_checkedparc="";
$ls_checkedcomp="";
$li_estint = 0;
$ls_ctascgint = "";
$ls_vienecat= 0;
}
function uf_titulosdespacho()
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_titulosdespacho
// Access: private
// Argumento:
// Returns:
// Description: Función que carga las caracteristicas del grid de detalle de despacho
// Creado Por: Ing. Luis Anibal Lang
// Fecha Creación: 08/02/2006 Fecha Última Modificación :
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
global $ls_titletable,$li_widthtable,$ls_nametable,$lo_title;
$ls_titletable="Detalle del Despacho";
$li_widthtable=800;
$ls_nametable="grid";
$lo_title[1]="Artículo";
$lo_title[2]="Unidad Medida";
$lo_title[3]="Almacén";
$lo_title[4]="Modalidad";
$lo_title[5]="Cant. Solicitada";
$lo_title[6]="Cant. Pendiente";
$lo_title[7]="Cant. a Despachar";
$lo_title[8]="Precio Unitario";
$lo_title[9]="Total";
$lo_title[10]="";
}
function uf_tituloscontable()
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_tituloscontable
// Access: private
// Argumento:
// Returns:
// Description: Función que carga las caracteristicas del grid de detalle contable
// Creado Por: Ing. Luis Anibal Lang
// Fecha Creación: 08/02/2006 Fecha Última Modificación :
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
global $ls_titlecontable,$li_widthcontable,$ls_namecontable,$lo_titlecontable;
$ls_titlecontable="Detalle Contable";
$li_widthcontable=800;
$ls_namecontable="grid";
$lo_titlecontable[1]="Artículo";
$lo_titlecontable[2]="Cuenta";
$lo_titlecontable[3]="Debe/Haber";
$lo_titlecontable[4]="Monto";
}
function uf_titulospresupuestario()
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_titulospresupuestario
// Access: private
// Argumento:
// Returns:
// Description: Función que carga las caracteristicas del grid de detalle contable
// Creado Por: Ing. Luis Anibal Lang
// Fecha Creación: 08/02/2006 Fecha Última Modificación :
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
global $ls_titlepresupuestario,$li_widthpresupuestario,$ls_namepresupuestario,$lo_titlepresupuestario;
$ls_titlepresupuestario="Detalle Presupuestario";
$li_widthpresupuestario=800;
$ls_namepresupuestario="grid";
$lo_titlepresupuestario[1]="Estructura";
$lo_titlepresupuestario[2]="Estatus";
$lo_titlepresupuestario[3]="Cuenta";
$lo_titlepresupuestario[4]="Monto";
}
function uf_obtenervalorunidad($li_i)
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_obtenervalorunidad
// Access: private
// Argumento: $li_i // indica que opcion esta seleccionado en el combo
// Returns: Retorna el valor obtenido
// Description: Función que obtiene el contenido del combo cmbunidad o del campo txtunidad deacuerdo sea el caso
// Creado Por: Ing. Luis Anibal Lang
// Fecha Creación: 08/02/2006 Fecha Última Modificación :
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
if (array_key_exists("cmbunidad".$li_i,$_POST))
{
$ls_valor= $_POST["cmbunidad".$li_i];
}
else
{
$ls_valoraux= $_POST["txtunidad".$li_i];
if($ls_valoraux=="Mayor")
{
$ls_valor="M";
}
else
{
$ls_valor="D";
}
}
return $ls_valor;
}
function uf_incluircontable($as_codemp,$as_numorddes,$ad_fecdes,&$aa_objectc,$ai_totrowsc,$aa_seguridad,$io_fun_inventario,$io_siv,$ai_estint)
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_agregarlineablancacontable
// Access: private
// Argumento: $as_codemp // codigo de empresa
// $as_numorddes // numero de orden de despacho
// $ad_fecdes // fecha del despacho
// $aa_objectc // arreglo de titulos
// $ai_totrowsc // ultima fila pintada en el grid
// $aa_seguridad // arreglo de seguridad
// $io_fun_inventario // instancia de la clase de funciones de inventario
// $io_siv // instancia de la clase sigesp_siv_c_despacho
// Returns: Retorna un Booleano
// Description: Funcion que pinta nuevamente el grid de detalle contable con los datos que estaban en el ademas de
// activar el proceso de insert del mismo
// Creado Por: Ing. Luis Anibal Lang
// Fecha Creación: 08/02/2006 Fecha Última Modificación :
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
global $io_ds;
$lb_valido=true;
for($li_j=1;$li_j<=$ai_totrowsc;$li_j++ && $lb_valido)
{
$ls_codart= $io_fun_inventario->uf_obtenervalor("txtcodartc".$li_j,"");
$ls_denart= $io_fun_inventario->uf_obtenervalor("txtdenartc".$li_j,"");
$ls_sccuenta= trim($io_fun_inventario->uf_obtenervalor("txtsccuenta".$li_j,""));
$ls_debhab= $io_fun_inventario->uf_obtenervalor("txtdebhab".$li_j,"");
$li_montoc= $io_fun_inventario->uf_obtenervalor("txtmonto".$li_j,"");
$li_montoc= str_replace(".","",$li_montoc);
$li_montoc= str_replace(",",".",$li_montoc);
$io_ds->insertRow("codart",$ls_codart);
$io_ds->insertRow("denart",$ls_denart);
$io_ds->insertRow("sccuenta",$ls_sccuenta);
$io_ds->insertRow("debhab",$ls_debhab);
$io_ds->insertRow("montoc",$li_montoc);
}
$io_ds->group_by(array('0'=>'codart','1'=>'denart','2'=>'sccuenta','3'=>'debhab'),array('0'=>'montoc'),'codart');
$li_totrow=$io_ds->getRowCount("codart");
for($li_j=1;$li_j<=$li_totrow;$li_j++ && $lb_valido)
{
$ls_codart= $io_ds->data["codart"][$li_j];
$ls_denart= $io_ds->data["denart"][$li_j];
$ls_sccuenta= $io_ds->data["sccuenta"][$li_j];
$ls_debhab= $io_ds->data["debhab"][$li_j];
$li_montoc= $io_ds->data["montoc"][$li_j];
$li_montotot= $li_montoc;
$lb_valido = $io_siv->uf_siv_insert_dt_scg($as_codemp,$ls_codart,$as_numorddes,$ad_fecdes,$ls_sccuenta,$ls_debhab,
$li_montotot,$aa_seguridad);
if ($lb_valido)
{
if ($ai_estint==1)
{
if ($ls_debhab=='D')
{
$lb_valido = $io_siv->uf_siv_insert_dt_scg_int($as_codemp,'--------------------',$as_numorddes,$ad_fecdes,$ls_sccuenta,'H',$li_montotot,$aa_seguridad);
}
elseif($ls_debhab=='H')
{
$li_i = $li_j - 1;
$ls_scgctagas = trim($io_fun_inventario->uf_obtenervalor("txtctagas".$li_i,""));
if (!empty($ls_scgctagas))
{
$lb_valido = $io_siv->uf_siv_insert_dt_scg_int($as_codemp,$ls_codart,$as_numorddes,$ad_fecdes,$ls_scgctagas,'D',$li_montotot,$aa_seguridad);
}
else
{
print "";
return false;
}
}
}
}
$aa_objectc[$li_j][1]="".
"";
$aa_objectc[$li_j][2]="";
$aa_objectc[$li_j][3]="";
$aa_objectc[$li_j][4]="";
}
return $lb_valido;
}
function uf_incluirpresupuestario($as_codemp,$as_numorddes,$ad_fecdes,&$aa_objectp,$ai_totrowp,$aa_seguridad,$io_fun_inventario,$io_siv,$ai_estint)
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_agregarlineablancacontable
// Access: private
// Argumento: $as_codemp // codigo de empresa
// $as_numorddes // numero de orden de despacho
// $ad_fecdes // fecha del despacho
// $aa_objectc // arreglo de titulos
// $ai_totrowsc // ultima fila pintada en el grid
// $aa_seguridad // arreglo de seguridad
// $io_fun_inventario // instancia de la clase de funciones de inventario
// $io_siv // instancia de la clase sigesp_siv_c_despacho
// Returns: Retorna un Booleano
// Description: Funcion que pinta nuevamente el grid de detalle contable con los datos que estaban en el ademas de
// activar el proceso de insert del mismo
// Creado Por: Ing. Luis Anibal Lang
// Fecha Creación: 08/02/2006 Fecha Última Modificación :
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
global $io_ds;
$lb_valido=true;
for($li_j=1;$li_j<=$ai_totrowp;$li_j++ && $lb_valido)
{
$ls_codestpro1=$io_fun_inventario->uf_obtenervalor("txtcodestpro1".$li_j,"");
$ls_codestpro2=$io_fun_inventario->uf_obtenervalor("txtcodestpro2".$li_j,"");
$ls_codestpro3=$io_fun_inventario->uf_obtenervalor("txtcodestpro3".$li_j,"");
$ls_codestpro4=$io_fun_inventario->uf_obtenervalor("txtcodestpro4".$li_j,"");
$ls_codestpro5=$io_fun_inventario->uf_obtenervalor("txtcodestpro5".$li_j,"");
$ls_estcla= $io_fun_inventario->uf_obtenervalor("txtestcla".$li_j,"");
$ls_programtatica= $io_fun_inventario->uf_obtenervalor("txtprogramatica".$li_j,"");
$ls_estclaaux= trim($io_fun_inventario->uf_obtenervalor("txtestclaaux".$li_j,""));
$ls_cuentapre= $io_fun_inventario->uf_obtenervalor("txtspgcuenta".$li_j,"");
$ls_montopre= $io_fun_inventario->uf_obtenervalor("txtmonto".$li_j,"");
$ls_montopre= str_replace(".","",$ls_montopre);
$ls_montopre= str_replace(",",".",$ls_montopre);
$lb_valido = $io_siv->uf_siv_insert_dt_spg($as_codemp,$as_numorddes,$ad_fecdes,$ls_codestpro1,$ls_codestpro2,
$ls_codestpro3,$ls_codestpro4,$ls_codestpro5,$ls_estcla,$ls_cuentapre,
$ls_montopre,$aa_seguridad);
$aa_objectp[$li_j][1]="".
"".
"".
"".
"".
"".
"";
$aa_objectp[$li_j][2]="";
$aa_objectp[$li_j][3]="";
$aa_objectp[$li_j][4]="";
}
return $lb_valido;
}
?>
 |
|||||||||||||
|
|||||||||||||
 |
 |
|
 |
 |
 |
||||||||
";
}
$lo_object[$li_i][1]="".
"".
"".
"".
"";
$lo_object[$li_i][2]="";
$lo_object[$li_i][3]="".
$ls_href;
$lo_object[$li_i][4]="".
"";
$lo_object[$li_i][5]="".
"";
$lo_object[$li_i][6]="";
$lo_object[$li_i][7]="";
$lo_object[$li_i][8]="".
"";
$lo_object[$li_i][9]="";
$lo_object[$li_i][10]="
".
" ";
if(($ls_codalm!="")&&($li_canart!="")&&($li_canart>0))
{
$lb_valido=$io_siv->uf_siv_procesar_dt_despacho($ls_codemp,$ls_numorddes,$ls_codart,$ls_codalm,$ls_unidad,
$li_canorisolsep,$li_canartaux,$li_preuniart,$li_montotart, //monsubart
$li_montotart,$li_i,$ls_nummov,$ld_fecdesaux,
$ls_numsol,$li_auxcanpenart,$la_seguridad);
if($lb_valido)
{
$lb_valido=$io_art->uf_siv_disminuir_articuloxalmacen($ls_codemp,$ls_codart,$ls_codalm,$li_canartaux,
$la_seguridad);
if($lb_valido)
{
$lb_valido=$io_art->uf_siv_actualizar_cantidad_articulos($ls_codemp,$ls_codart,$la_seguridad);
} // fin if($lb_valido)->uf_siv_disminuir_articuloxalmacen
} //fin if($lb_valido)->uf_siv_insert_dt_despacho
if($li_auxcanpenart>0)
{
$lb_descomp=false;
}
}// fin if(($ls_codalm!="")&&($li_canart!="")&&($li_canart>0))
else
{
if($li_canpenart>0)
{
$lb_descomp=false;
}
}
if(!$lb_valido)
{$lb_exito=false;}
} // fin for($li_i=1;$li_i<$li_totrows;$li_i++)
$lb_valido=$io_siv->uf_siv_load_codigoactivo($ls_codart,$ls_codact);
if($li_value==1)
{
if (($ls_codact=='')||($ls_codact=='---------------'))
{
$lb_valido=uf_incluircontable($ls_codemp,$ls_numorddes,$ld_fecdesaux,$lo_objectc,
$li_totrowsc,$la_seguridad,$io_fun_inventario,$io_siv,$li_estint);
}
if($lb_valido)
{
$lb_valido=uf_incluirpresupuestario($ls_codemp,$ls_numorddes,$ld_fecdesaux,$lo_objectp,
$li_totrowp,$la_seguridad,$io_fun_inventario,$io_siv,$li_estint);
}
}
} //fin if($lb_valido) uf_siv_insert_movimiento
} //fin if($lb_valido)
if($lb_valido)
{
$lb_pendientes=$io_siv->uf_siv_validar_pendientes($ls_codemp,$ls_numsol);
if(!$lb_pendientes)
{
$lb_descomp=true;
}
else
{
$lb_descomp=false;
}
}
if($lb_descomp)
{
$ls_estsep="D";
$lb_valido=$io_siv->uf_siv_update_sep($ls_codemp,$ls_numsol,$ls_estsep);
}
else
{
$ls_estsep="L";
$lb_valido=$io_siv->uf_siv_update_sep($ls_codemp,$ls_numsol,$ls_estsep);
}
if(!$lb_exito)
{$lb_valido=false;}
if($lb_valido)
{
$io_sql->commit();
$io_msg->message("El despacho ha sido procesado");
$ls_status="C";
////// agregado 23/09/08 /////
$li_totrows=1;
$li_totrowsc=1;
$ls_numorddes=$io_keygen->uf_generar_numero_nuevo("SIV","siv_despacho","numorddes","SIV",15,"","codemp",$ls_codemp);
uf_agregarlineablanca($lo_object,$li_totrows);
uf_agregarlineablancacontable($lo_objectc,1);
uf_limpiarvariables();
//////////////////////////////
}
else
{
$io_sql->rollback();
$io_msg->message("No se pudo procesar el despacho");
////// agregado 23/09/08 /////
$li_totrows=1;
$li_totrowsc=1;
uf_agregarlineablanca($lo_object,$li_totrows);
uf_agregarlineablancacontable($lo_objectc,1);
uf_limpiarvariables();
//////////////////////////////
}
}
else
{
$io_msg->message("El mes no esta abierto");
$li_totrows=1;
$li_totrowsc=1;
uf_agregarlineablanca($lo_object,$li_totrows);
uf_agregarlineablancacontable($lo_objectc,1);
uf_limpiarvariables();
}
$ls_numorddes=$io_keygen->uf_generar_numero_nuevo("SIV","siv_despacho","numorddes","SIV",15,"","codemp",$ls_codemp);
//uf_agregarlineablanca($lo_object,1);
//uf_agregarlineablancacontable($lo_objectc,1);
break;
case "BUSCARDETALLESOLICITUD":
$ls_numorddes = $io_fun_inventario->uf_obtenervalor("txtnumorddes","");
$ls_readonly= $io_fun_inventario->uf_obtenervalor("hidreadonly","");
$ls_numsol= $io_fun_inventario->uf_obtenervalor("txtnumsol","");
$ls_coduniadm= $io_fun_inventario->uf_obtenervalor("txtcoduniadm","");
$ls_denuniadm= $io_fun_inventario->uf_obtenervalor("txtdenuniadm","");
$ls_obsdes= $io_fun_inventario->uf_obtenervalor("txtobsdes","");
$ld_fecdes= $io_fun_inventario->uf_obtenervalor("txtfecdes","");
$ls_codunides= $io_fun_inventario->uf_obtenervalor("txtcodunides","");
$ls_denunides= $io_fun_inventario->uf_obtenervalor("txtdenunides","");
$ls_estsol= $io_fun_inventario->uf_obtenervalor("txtestsol","");
$li_estint = $io_fun_inventario->uf_obtenervalor("hidestint","");
$ls_ctascgint = $io_fun_inventario->uf_obtenervalor("hidctascgint","");
$data="";
$li_totrows=0;
$li_totrowsc=1;
$ls_pendiente="";
$ls_checkedcomp="";
$ls_checkedparc="";
$ls_readonlyrad="";
$ld_fecdes1=$io_func->uf_convertirdatetobd($ld_fecdes);
uf_agregarlineablancacontable($lo_objectc,1);
if($ls_estsol=="L")
{
$lb_valido=$io_siv->uf_siv_obtener_dt_pendiente($ls_codemp,$ls_numsol,$li_totrows,$lo_object,$ls_estartpri);
}
else
{
$lb_valido=$io_siv->uf_siv_obtener_dt_solicitud($ls_codemp,$ls_numsol,$li_totrows,$lo_object,$ls_estartpri);
}
if (!$lb_valido)
{
uf_agregarlineablanca($lo_object,1);
uf_agregarlineablancacontable($lo_objectc,1);
uf_limpiarvariables();
$io_msg->message("Debe definir una cuenta contable de gasto para los articulos de la solicitud");
$li_totrows=1;
}
break;
case "BUSCARDETALLE":
$ls_numsol= $io_fun_inventario->uf_obtenervalor("txtnumsol","");
$ls_numorddes= $io_fun_inventario->uf_obtenervalor("txtnumorddes","");
$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_codunides= $io_fun_inventario->uf_obtenervalor("txtcodunides","");
$ls_denunides= $io_fun_inventario->uf_obtenervalor("txtdenunides","");
$ls_obsdes= $io_fun_inventario->uf_obtenervalor("txtobsdes","");
$li_estint = $io_fun_inventario->uf_obtenervalor("hidestint","");
$ls_ctascgint = $io_fun_inventario->uf_obtenervalor("hidctascgint","");
$ls_vienecat = $io_fun_inventario->uf_obtenervalor("hidvienecat","");
$ls_checkedcomp="";
$ls_checkedparc="";
$lb_valido=$io_siv->uf_siv_obtener_dt_despacho($ls_codemp,$ls_numorddes,$li_totrows,$lo_object);
$li_totrowsc=1;
uf_agregarlineablancacontable($lo_objectc,1);
/* if($lb_valido)
{
$lb_valido=$io_siv->uf_siv_obtener_dt_scg($ls_codemp,$ls_numorddes,$li_totrowsc,$lo_objectc);
if($lb_valido=="")
{
$li_totrowsc=1;
uf_agregarlineablancacontable($lo_objectc,1);
}
}*/
break;
case "CALCULARCONTABLE":
uf_limpiarvariables();
$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","");
$li_totrowsc=0;
$ld_montotscg = 0;//Sumatoria Total de Los Bienes para el Detalle Contable en Inter Compañia.
$ls_estrec= $io_fun_inventario->uf_obtenervalor("rdtipodespacho","");
if($ls_estrec==0)
{
$ls_checkedparc="checked";
$ls_checkedcomp="";
}
else
{
$ls_checkedparc="";
$ls_checkedcomp="checked";
}
for($li_i=1;$li_i<=$li_totrows;$li_i++)
{
$ls_codart= $io_fun_inventario->uf_obtenervalor("txtcodart".$li_i,"");
$ls_codartpri= $io_fun_inventario->uf_obtenervalor("txtcodartpri".$li_i,"");
$ls_denart= $io_fun_inventario->uf_obtenervalor("txtdenart".$li_i,"");
$ls_denunimed= $io_fun_inventario->uf_obtenervalor("txtdenunimed".$li_i,"");
$ls_codalm= $io_fun_inventario->uf_obtenervalor("txtcodalm".$li_i,"");
$li_canorisolsep= $io_fun_inventario->uf_obtenervalor("txtcansol".$li_i,"");
$li_existencia= $io_fun_inventario->uf_obtenervalor("hidexistencia".$li_i,"");
$li_canart= $io_fun_inventario->uf_obtenervalor("txtcanart".$li_i,"");
$li_preuniart= $io_fun_inventario->uf_obtenervalor("txtpreuniart".$li_i,"");
$li_montotart= $io_fun_inventario->uf_obtenervalor("txtmontotart".$li_i,"");
$ls_unidad= $io_fun_inventario->uf_obtenervalor("cmbunidad".$li_i,"");
$ls_hidunidad= $io_fun_inventario->uf_obtenervalor("txtunidad".$li_i,"");
$li_unidad= $io_fun_inventario->uf_obtenervalor("hidunidad".$li_i,"");
$ls_ctagas= $io_fun_inventario->uf_obtenervalor("txtctagas".$li_i,"");
$ls_ctasep= $io_fun_inventario->uf_obtenervalor("txtctasep".$li_i,"");
$li_canpenart= $io_fun_inventario->uf_obtenervalor("txtpenart".$li_i,"");
$li_hidpenart= $io_fun_inventario->uf_obtenervalor("txthidpenart".$li_i,"");
$ls_clasif= $io_fun_inventario->uf_obtenervalor("hclasi".$li_i,"");
$ls_codact= $io_fun_inventario->uf_obtenervalor("hcodact".$li_i,"");
$li_canorisolsep= str_replace(".","",$li_canorisolsep);
$li_canorisolsep= str_replace(",",".",$li_canorisolsep);
$li_canart= str_replace(".","",$li_canart);
$li_canart= str_replace(",",".",$li_canart);
$li_preuniart= str_replace(".","",$li_preuniart);
$li_preuniart= str_replace(",",".",$li_preuniart);
$li_montotart= str_replace(".","",$li_montotart);
$li_montotart= str_replace(",",".",$li_montotart);
$li_canpenart= str_replace(".","",$li_canpenart);
$li_canpenart= str_replace(",",".",$li_canpenart);
$lb_valido=$io_siv->uf_buscar_datos_presupuestarios($ls_codart,$ls_cuentaart,$ls_cuentaiva,$ls_formula);
if($lb_valido)
{
$lb_valido=$io_siv->uf_buscar_esructura_sep($ls_numsol,$ls_codestpro1,$ls_codestpro2,$ls_codestpro3,$ls_codestpro4,$ls_codestpro5,$ls_estcla);
}
if($lb_valido)
{
$lb_valido=$io_siv->uf_buscar_esructura_iva($ls_numsol,$ls_cuentaiva,$ls_codestproiva1,$ls_codestproiva2,$ls_codestproiva3,$ls_codestproiva4,$ls_codestproiva5,$ls_estclaiva);
}
if($lb_valido)
{
$lb_valido=$io_siv->uf_buscar_esructura_costos($as_codestprogen1,$as_codestprogen2,$as_codestprogen3,$as_codestprogen4,$as_codestprogen5,$as_estclagen);
if($lb_valido)
{
$lb_valido=$io_siv->uf_buscar_contable_costos($as_codestprogen1,$as_codestprogen2,$as_codestprogen3,$as_codestprogen4,$as_codestprogen5,$as_estclagen,$ls_cuentaart,$ls_cuentaartcos);
}
if($lb_valido)
{
$lb_valido=$io_siv->uf_buscar_contable_costos($as_codestprogen1,$as_codestprogen2,$as_codestprogen3,$as_codestprogen4,$as_codestprogen5,$as_estclagen,$ls_cuentaiva,$ls_cuentaivacos);
}
if($lb_valido)
{
$lb_valido=$io_siv->uf_buscar_contable_costos($ls_codestproiva1,$ls_codestproiva2,$ls_codestproiva3,$ls_codestproiva4,$ls_codestproiva5,$ls_estclaiva,$ls_cuentaiva,$ls_cuentaivagas);
}
}
if(($lb_valido)&&($li_montotart>0))
{
$io_dspre->insertRow("codestpro1",$ls_codestpro1);
$io_dspre->insertRow("codestpro2",$ls_codestpro2);
$io_dspre->insertRow("codestpro3",$ls_codestpro3);
$io_dspre->insertRow("codestpro4",$ls_codestpro4);
$io_dspre->insertRow("codestpro5",$ls_codestpro5);
$io_dspre->insertRow("estcla",$ls_estcla);
$io_dspre->insertRow("cuenta",$ls_cuentaart);
$io_dspre->insertRow("monto",$li_montotart);
$li_montoiva=$io_evaluate->uf_evaluar($ls_formula,$li_montotart,$lb_valido);
if($li_montoiva>0)
{
$io_dspre->insertRow("codestpro1",$ls_codestproiva1);
$io_dspre->insertRow("codestpro2",$ls_codestproiva2);
$io_dspre->insertRow("codestpro3",$ls_codestproiva3);
$io_dspre->insertRow("codestpro4",$ls_codestproiva4);
$io_dspre->insertRow("codestpro5",$ls_codestproiva5);
$io_dspre->insertRow("estcla",$ls_estclaiva);
$io_dspre->insertRow("cuenta",$ls_cuentaiva);
$io_dspre->insertRow("monto",$li_montoiva);
}
}
if($ls_ctagas=="")
{
$li_totrowsc=1;
$li_totrows=1;
uf_agregarlineablanca($lo_object,1);
uf_agregarlineablancacontable($lo_objectc,1);
uf_limpiarvariables();
uf_agregarlineablancacontable($lo_objectc,1);
$lb_ok=false;
$io_msg->message("Verifique que todos los articulos de la solicitud tengan cuenta contable de gasto asociada");
break;
}
if($ls_unidad=="")
{
$ls_unidad= $io_fun_inventario->uf_obtenervalor("txtunidad".$li_i,"");
$ls_hidunidad= $io_fun_inventario->uf_obtenervalor("hidtxtuni".$li_i,"");
}
if($ls_unidad=="Mayor")
{$ls_unidad="M";}
else
{$ls_unidad="D";}
switch ($ls_unidad)
{
case "M":
$ls_unidadaux="Mayor";
break;
case "D":
$ls_unidadaux="Detal";
break;
}
if($ls_estartpri==1)
{
$ls_href="";
}
else
{
$ls_href="";
}
$lo_object[$li_i][1]="".
"".
"".
"".
"";
$lo_object[$li_i][2]="";
$lo_object[$li_i][3]="".
$ls_href;
$lo_object[$li_i][4]="".
"".
"";
$lo_object[$li_i][5]="".
"";
$lo_object[$li_i][6]="".
"";
$lo_object[$li_i][7]="";
$lo_object[$li_i][8]="".
"";
$lo_object[$li_i][9]="";
$lo_object[$li_i][10]="
".
" ";
$lb_valido=$io_siv->uf_siv_load_codigoactivo($ls_codart,$ls_codact);
if (($ls_codact=='')||($ls_codact=='---------------'))
{
if ($li_canart>0)
{
$li_totrowsc++;
$ls_debhab="D";
$lo_objectc[$li_totrowsc][1]="".
"";
$lo_objectc[$li_totrowsc][2]="";
$lo_objectc[$li_totrowsc][3]="";
$lo_objectc[$li_totrowsc][4]="";
if($li_montoiva>0)
{
$li_totrowsc++;
$lo_objectc[$li_totrowsc][1]="".
"";
$lo_objectc[$li_totrowsc][2]="";
$lo_objectc[$li_totrowsc][3]="";
$lo_objectc[$li_totrowsc][4]="";
}
if ($li_estint==0)
{
$li_totrowsc++;
$lo_objectc[$li_totrowsc][1]="".
"";
$lo_objectc[$li_totrowsc][2]="";
$lo_objectc[$li_totrowsc][3]="";
$lo_objectc[$li_totrowsc][4]="";
if($li_montoiva>0)
{
$li_totrowsc++;
$lo_objectc[$li_totrowsc][1]="".
"";
$lo_objectc[$li_totrowsc][2]="";
$lo_objectc[$li_totrowsc][3]="";
$lo_objectc[$li_totrowsc][4]="";
}
}
else
{
if ($li_totrowsc==0)
{
$li_totrowsc++;
}
$ld_montotscg += $li_montotart;
}
}// fin del if
} // fion del if ($ls_codact==''||$ls_codact=='---------------')
else
{
uf_agregarlineablancacontable($lo_objectc,1);
$li_totrowsc=1;
$io_msg->message("EL artículo es un activo y no genera detalle contable !!!!");
}
$ls_ok=true;
}// del for
$io_dspre->group_by(array('0'=>'codestpro1','1'=>'codestpro2','2'=>'codestpro3','3'=>'codestpro41','4'=>'codestpro5','5'=>'estcla','6'=>'cuenta'),array('0'=>'monto'),'cuenta');
$li_totrowp=$io_dspre->getRowCount("cuenta");
for($li_j=1;$li_j<=$li_totrowp;$li_j++ && $lb_valido)
{
$ls_codestpro1= $io_dspre->data["codestpro1"][$li_j];
$ls_codestpro2= $io_dspre->data["codestpro2"][$li_j];
$ls_codestpro3= $io_dspre->data["codestpro3"][$li_j];
$ls_codestpro4= $io_dspre->data["codestpro4"][$li_j];
$ls_codestpro5= $io_dspre->data["codestpro5"][$li_j];
$ls_estcla= $io_dspre->data["estcla"][$li_j];
$ls_cuentapre= trim($io_dspre->data["cuenta"][$li_j]);
$ls_montopre= $io_dspre->data["monto"][$li_j];
$ls_codpro=$ls_codestpro1.$ls_codestpro2.$ls_codestpro3.$ls_codestpro4.$ls_codestpro5;
$io_fun_inventario->uf_formatoprogramatica($ls_codpro,$ls_programatica);
if($ls_estcla=="A")
{
$ls_estclaaux="ACCION";
}
else
{
$ls_estclaaux="PROYECTO";
}
$lo_objectp[$li_j][1]="".
"".
"".
"".
"".
"".
"";
$lo_objectp[$li_j][2]="";
$lo_objectp[$li_j][3]="";
$lo_objectp[$li_j][4]="";
}
if (($li_estint==1)&&(($ls_codact=='')||($ls_codact=='---------------')))
{
$lo_objectc[1][1]="".
"";
$lo_objectc[1][2]="";
$lo_objectc[1][3]="";
$lo_objectc[1][4]="";
}
break;
case"AGREGARDETALLES";
uf_limpiarvariables();
$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","");
$li_totrowsc=0;
$ld_montotscg = 0;//Sumatoria Total de Los Bienes para el Detalle Contable en Inter Compañia.
$ls_estrec= $io_fun_inventario->uf_obtenervalor("rdtipodespacho","");
if($ls_estrec==0)
{
$ls_checkedparc="checked";
$ls_checkedcomp="";
}
else
{
$ls_checkedparc="";
$ls_checkedcomp="checked";
}
for($li_i=1;$li_i<=$li_totrows;$li_i++)
{
$ls_codart= $io_fun_inventario->uf_obtenervalor("txtcodart".$li_i,"");
$ls_codartpri= $io_fun_inventario->uf_obtenervalor("txtcodartpri".$li_i,"");
$ls_denart= $io_fun_inventario->uf_obtenervalor("txtdenart".$li_i,"");
$ls_denunimed= $io_fun_inventario->uf_obtenervalor("txtdenunimed".$li_i,"");
$ls_codalm= $io_fun_inventario->uf_obtenervalor("txtcodalm".$li_i,"");
$li_canorisolsep= $io_fun_inventario->uf_obtenervalor("txtcansol".$li_i,"");
$li_existencia= $io_fun_inventario->uf_obtenervalor("hidexistencia".$li_i,"");
$li_canart= $io_fun_inventario->uf_obtenervalor("txtcanart".$li_i,"");
$li_preuniart= $io_fun_inventario->uf_obtenervalor("txtpreuniart".$li_i,"");
$li_montotart= $io_fun_inventario->uf_obtenervalor("txtmontotart".$li_i,"");
$ls_unidad= $io_fun_inventario->uf_obtenervalor("cmbunidad".$li_i,"");
$ls_hidunidad= $io_fun_inventario->uf_obtenervalor("txtunidad".$li_i,"");
$li_unidad= $io_fun_inventario->uf_obtenervalor("hidunidad".$li_i,"");
$ls_ctagas= $io_fun_inventario->uf_obtenervalor("txtctagas".$li_i,"");
$ls_ctasep= $io_fun_inventario->uf_obtenervalor("txtctasep".$li_i,"");
$li_canpenart= $io_fun_inventario->uf_obtenervalor("txtpenart".$li_i,"");
$li_hidpenart= $io_fun_inventario->uf_obtenervalor("txthidpenart".$li_i,"");
$ls_clasif= $io_fun_inventario->uf_obtenervalor("hclasi".$li_i,"");
$ls_codact= $io_fun_inventario->uf_obtenervalor("hcodact".$li_i,"");
$li_canorisolsep= $io_fun_inventario->uf_formatocalculo($li_canorisolsep);
$li_canart= $io_fun_inventario->uf_formatocalculo($li_canart);
$li_preuniart= $io_fun_inventario->uf_formatocalculo($li_preuniart);
$li_montotart= $io_fun_inventario->uf_formatocalculo($li_montotart);
$li_canpenart= $io_fun_inventario->uf_formatocalculo($li_canpenart);
if($ls_unidad=="")
{
$ls_unidad= $io_fun_inventario->uf_obtenervalor("txtunidad".$li_i,"");
$ls_hidunidad= $io_fun_inventario->uf_obtenervalor("hidtxtuni".$li_i,"");
}
if($ls_unidad=="Mayor")
{$ls_unidad="M";}
else
{$ls_unidad="D";}
switch ($ls_unidad)
{
case "M":
$ls_unidadaux="Mayor";
break;
case "D":
$ls_unidadaux="Detal";
break;
}
if($ls_estartpri==1)
{
$ls_href="";
}
else
{
$ls_href="";
}
$lo_object[$li_i][1]="".
"".
"".
"".
"";
$lo_object[$li_i][2]="";
$lo_object[$li_i][3]="".
$ls_href;
$lo_object[$li_i][4]="".
"".
"";
$lo_object[$li_i][5]="".
"";
$lo_object[$li_i][6]="".
"";
$lo_object[$li_i][7]="";
$lo_object[$li_i][8]="".
"";
$lo_object[$li_i][9]="";
$lo_object[$li_i][10]="".
"".
" ";
}// del for
if(array_key_exists("despacho",$_SESSION))
{
$li_j=$li_totrows;
$li_total=$_SESSION["despacho"]["contador"];
for($li_i=1;$li_i<=$li_total;$li_i++)
{
$li_j++;
$ls_codart= $_SESSION["despacho"]["codart".$li_i];
$ls_denart= $_SESSION["despacho"]["denart".$li_i];
$ls_denunimed= $_SESSION["despacho"]["denunimed".$li_i];
$ls_codalm= $_SESSION["despacho"]["codalm".$li_i];
$li_canorisolsep=$_SESSION["despacho"]["cansol"];
$ls_codartpri=$_SESSION["despacho"]["codartpri"];
$li_penart=$_SESSION["despacho"]["penart"];
$li_totart=$_SESSION["despacho"]["totart"];
$li_existencia= $_SESSION["despacho"]["exiart".$li_i];
$li_canart= $_SESSION["despacho"]["canart".$li_i];
$li_preuniart= $_SESSION["despacho"]["preuniart".$li_i];
$ls_unidad=$_SESSION["despacho"]["unidad"];
$ls_hidunidad=$_SESSION["despacho"]["unidad"];
$li_unidad= $_SESSION["despacho"]["unidad".$li_i];
$ls_ctagas= $_SESSION["despacho"]["sc_cuenta".$li_i];
$ls_ctasep= $_SESSION["despacho"]["ctasep"];
$li_canpenart= $_SESSION["despacho"]["penart".$li_i];
$ls_clasif="";
$ls_codact="";
if($ls_unidad=="Mayor")
{$ls_unidad="M";}
else
{$ls_unidad="D";}
$li_canart=$io_fun_inventario->uf_formatocalculo($li_canart);
$li_preuniart=$io_fun_inventario->uf_formatocalculo($li_preuniart);
$li_existencia=$io_fun_inventario->uf_formatocalculo($li_existencia);
//$li_canpenart=$li_penart-$li_canart;
$li_hidpenart=$li_canpenart;
switch ($ls_unidad)
{
case "M":
$ls_unidadaux="Mayor";
$li_montotart=($li_canart*$li_preuniart*$li_unidad);
break;
case "D":
$ls_unidadaux="Detal";
$li_montotart=($li_canart*$li_preuniart);
break;
}
$lo_object[$li_j][1]="".
"".
"".
"".
"";
$lo_object[$li_j][2]="";
$lo_object[$li_j][3]="";
$lo_object[$li_j][4]="".
"".
"";
$lo_object[$li_j][5]="".
"";
$lo_object[$li_j][6]="".
"";
$lo_object[$li_j][7]="";
$lo_object[$li_j][8]="".
"";
$lo_object[$li_j][9]="";
$lo_object[$li_j][10]="".
"".
" ";
}
$li_totrows=$li_j;
}
break;
}
?>