$lb_valido=$io_obra->uf_guardar_obra(&$ls_codobr,$ls_codten,$ls_codtipest,$ls_codest,$ls_codmun,$ls_codpar,$ls_codcom,$ls_codsiscon,$ls_codpro,$ls_codtob,$ls_nomobr,$ls_dirobr,$ls_obsobr,$ls_resobr,$ld_dateinicio,$ld_datefin,$li_monto,$ld_datecreacion,$la_seguridad);
if ($lb_valido)
{
for ($li_i=1;$li_i<$li_filaspartidas;$li_i++)//Guardando las partidas asociadas a la obra
{
$ls_codigo=$_POST["txtcodpar".$li_i];
$ls_cantidad=$io_funsob->uf_convertir_cadenanumero($_POST["txtcanpar".$li_i]);
$lb_partida=$io_obra->uf_guardar_dtpartidas($ls_codobr,$ls_codigo,$ls_cantidad,$la_seguridad);
}
for ($li_i=1;$li_i<$li_filasfuentes;$li_i++)//Guardando las fuentes de financiamiento asociadas a la obra
{
$ls_codigo=$_POST["txtcodfuefin".$li_i];
$ld_monto=$_POST["txtmonfuefin".$li_i];
$lb_fuente=$io_obra->uf_guardar_dtfuentesfinanciamiento($ls_codobr,$ls_codigo,$ld_monto,$la_seguridad);
}
}
if ($lb_valido && $lb_partida && $lb_fuente)
{
if($ls_codobraux!=$ls_codobr)
{
$io_msg->message("Se le Asigno el Nuevo Código de Obra ".$ls_codobr.". ");
}
$io_mensaje->incluir();
$io_sql->commit();
}
else
{
$io_mensaje->error_incluir();
