$li_canart= ($li_canart * $li_unidad);
}
$lb_valido=$io_siv->uf_siv_insert_dt_recepcion($ls_codemp,$ls_numordcom,$ls_codart,$ls_unidad,$li_canart,
$li_penart,$li_preuniart,$li_monsubart,$li_montotart,
$li_i,$li_canoriart,$ls_numconrecmov,$la_seguridad);
if ($lb_valido)
{
$lb_valido=$io_art->uf_siv_aumentar_articuloxalmacen($ls_codemp,$ls_codart,$ls_codalm,
$li_canart,$la_seguridad);
if($lb_valido)
{
$ls_opeinv="ENT";
$ls_promov="RPC";
$lb_valido=$io_mov->uf_siv_insert_dt_movimiento($ls_codemp,$ls_nummov,$ld_fecrecbd,
$ls_codart,$ls_codalm,$ls_opeinv,
$ls_codprodoc,$ls_numordcom,$li_canart,
$li_preuniart,$ls_promov,$ls_numconrecmov,
$li_canart,$ld_fecrecbd,$la_seguridad);
}
}
if($lb_valido)
{
$lb_valido=$io_art->uf_siv_actualizar_cantidad_articulos($ls_codemp,$ls_codart,$la_seguridad);
}
}
}
if($lb_valido)
{
$io_sql->commit();
$io_msg->message("La entrada de suministros a almacén ha sido procesada");
/*$ls_opeinv="SAL";
$ls_codprodoc="ALM";
$ls_promov="TRA";
$li_candesart=0;*/
$lb_valido=$io_siv->uf_siv_procesar_dt_movimientotransferencia($ls_codemp,$ls_nummov,$ls_codart,
$ls_codalmori,$ls_unidad,$li_cantidad,
$li_cosuni,$ld_fecemi,$ls_numtra,
$la_seguridad);
if($lb_valido)
{
$ls_opeinv="ENT";
$ls_codprodoc="ALM";
$ls_promov="TRA";
$lb_valido=$io_mov->uf_siv_insert_dt_movimiento($ls_codemp,$ls_nummov,$ld_fecemi,
$ls_codart,$ls_codalmdes,$ls_opeinv,
$ls_codprodoc,$ls_numtra,$li_cantidad,
$li_cosuni,$ls_promov,$ls_numtra,
$li_cantidad,$ld_fecemi,$la_seguridad);
}
}
}
}
}
}// for
}
}
$ld_fecemi=$io_func->uf_convertirfecmostrar($ld_fecemi);
if($lb_valido)
{
$io_sql->commit();
//$io_msg->message("El Numero de Movimiento correspondiente es: ".$ls_numtra);
{
$li_canart=($li_canfisaux * $li_unidad);
}
else
{
$li_canart=$li_canfisaux;
}
if($li_canart > $li_canexisis )
{
$ls_opeinv="AJE";
$ls_codprodoc="ALM";
$ls_promov="TOM";
$li_candesart=0.00;
$li_canart= ($li_canart - $li_canexisis);
$lb_valido=$io_mov->uf_siv_insert_dt_movimiento($ls_codemp,$ls_nummov,$ld_fectomaux,$ls_codart,$ls_codalm,
$ls_opeinv,$ls_codprodoc,$ls_numtoma,$li_canart,$li_preuniart,
$ls_promov,$ls_numtoma,$li_candesart,$ld_fectomaux,
$la_seguridad);
if($lb_valido)
{
$lb_valido=$io_art->uf_siv_aumentar_articuloxalmacen($ls_codemp,$ls_codart,$ls_codalm,
$li_canart,$la_seguridad);
}
}
else
{
if($li_canart < $li_canexisis )
{
$ls_opeinv="AJS";
$ls_codprodoc="ALM";
$ls_promov="TOM";
$li_canart= ($li_canexisis - $li_canart);
