";
}
//--------------------------------------------------------------
function uf_loadgrid(&$lo_object,$ai_totrows)
{
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
// Function: uf_agregarlineablanca
// Access: private
// Argumento: $aa_object // arreglo de titulos
// $ai_totrows // ultima fila pintada en el grid
// Returns:
// Description: Funcion que agrega una linea en blanco al final del grid del detalle de despacho
// Creado Por: Ing. Luis Anibal Lang
// Fecha Creación: 08/02/2006 Fecha Última Modificación :
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
global $io_fun_inventario;
for($li_i=1;$li_i<$ai_totrows;$li_i++)
{
$ls_codartgrid=$io_fun_inventario->uf_obtenervalor("txtcodart".$li_i,"");
$ls_denartgrid=$io_fun_inventario->uf_obtenervalor("txtdenart".$li_i,"");
$ls_codartprigrid=$io_fun_inventario->uf_obtenervalor("txtcodartpri".$li_i,"");
$ls_codalmgrid=$io_fun_inventario->uf_obtenervalor("txtcodalm".$li_i,"");
$ls_unidadgrid=$io_fun_inventario->uf_obtenervalor("txtunidad".$li_i,"");
$ls_exiartgrid=$io_fun_inventario->uf_obtenervalor("txtexistencia".$li_i,"");
$ls_canartgrid=$io_fun_inventario->uf_obtenervalor("txtcanart".$li_i,"");
$ls_ctasepgrid=$io_fun_inventario->uf_obtenervalor("ctasep".$li_i,"");
$lo_object[$li_i][1]="".
"".
"".
"";
$lo_object[$li_i][2]="";
$lo_object[$li_i][3]="";
$lo_object[$li_i][4]="";
$lo_object[$li_i][5]="";
$lo_object[$li_i][6]="";
}
}
//--------------------------------------------------------------
?>
";
}
$li_totrows++;
uf_agregarlineablanca($lo_object,$li_totrows);
uf_limpiarvariables();
break;
case"ELIMINARDETALLE":
uf_limpiarvariables();
$li_totrowsopenner=$io_fun_inventario->uf_obtenervalor("totalfilas","");
$li_totrows=$io_fun_inventario->uf_obtenervalor("totalfilaslocal","");
$li_totrows=$li_totrows-1;
$li_rowdelete= $io_fun_inventario->uf_obtenervalor("filadelete","");
$li_temp=0;
for($li_i=1;$li_i<=$li_totrows;$li_i++)
{
if($li_i!=$li_rowdelete)
{
$li_temp=$li_temp+1;
$ls_codartgrid=$io_fun_inventario->uf_obtenervalor("txtcodart".$li_i,"");
$ls_denartgrid=$io_fun_inventario->uf_obtenervalor("txtdenart".$li_i,"");
$ls_codartprigrid=$io_fun_inventario->uf_obtenervalor("txtcodartpri".$li_i,"");
$ls_codalmgrid=$io_fun_inventario->uf_obtenervalor("txtcodalm".$li_i,"");
$ls_unidadgrid=$io_fun_inventario->uf_obtenervalor("txtunidad".$li_i,"");
$ls_exiartgrid=$io_fun_inventario->uf_obtenervalor("txtexistencia".$li_i,"");
$ls_canartgrid=$io_fun_inventario->uf_obtenervalor("txtcanart".$li_i,"");
$ls_ctasepgrid=$io_fun_inventario->uf_obtenervalor("ctasep".$li_i,"");
$lo_object[$li_temp][1]="".
"".
"".
"";
$lo_object[$li_temp][2]="";
$lo_object[$li_temp][3]="";
$lo_object[$li_temp][4]="";
$lo_object[$li_temp][5]="";
$lo_object[$li_temp][6]="";
}
else
{
$li_rowdelete= 0;
}
if ($li_temp==0)
{
$li_totrows=1;
uf_agregarlineablanca($lo_object,$li_totrows);
}
else
{
uf_agregarlineablanca($lo_object,$li_totrows);
}
}
break;
case"AGREGAR":
if(array_key_exists("despacho",$_SESSION))
{
unset($_SESSION["despacho"]);
}
$li_totrowsopenner=$io_fun_inventario->uf_obtenervalor("totalfilas","");
$li_totrow=$io_fun_inventario->uf_obtenervalor("totalfilaslocal",1);
$li_cansol=$io_fun_inventario->uf_obtenervalor("cansol","0");
$li_pendiente=$li_penart=$io_fun_inventario->uf_obtenervalor("penart","");
$ls_ctasep=$io_fun_inventario->uf_obtenervalor("ctasep","");
$li_contador=0;
$li_total=0;
for($li_i=1;$li_i<$li_totrow;$li_i++)
{
$ls_codart=$io_fun_inventario->uf_obtenervalor("txtcodart".$li_i,"");
$ls_codartpri=$io_fun_inventario->uf_obtenervalor("txtcodartpri".$li_i,"");
$ls_unidad=$io_fun_inventario->uf_obtenervalor("txtunidad".$li_i,"Detal");
$ls_codalm=$io_fun_inventario->uf_obtenervalor("txtcodalm".$li_i,"");
$li_canart=$io_fun_inventario->uf_obtenervalor("txtcanart".$li_i,"");
$li_exiart=$io_fun_inventario->uf_obtenervalor("txtexiart".$li_i,"");
$li_canartaux=$io_fun_inventario->uf_formatocalculo($li_canart);
if($li_canartaux>0)
{
$ls_sql="SELECT metodo FROM siv_config";
$li_exec=$io_siv->io_sql->select($ls_sql);
if($row=$io_siv->io_sql->fetch_row($li_exec))
{
$ls_metodo=$row["metodo"];
}
$ls_metodo=trim($ls_metodo);
switch($ls_metodo)
{
case"FIFO";
$ls_sql="SELECT cosart FROM siv_dt_movimiento".
" WHERE codemp='". $ls_codemp ."'".
" AND codart='". $ls_codart ."'".
" AND codalm='". $ls_codalm ."'".
" AND opeinv='ENT' AND numdocori NOT IN".
" (SELECT numdocori FROM siv_dt_movimiento".
" WHERE opeinv ='REV')".
" ORDER BY nummov";
break;
case"LIFO";
$ls_sql="SELECT cosart FROM siv_dt_movimiento".
" WHERE codemp='". $ls_codemp ."'".
" AND codart='". $ls_codart ."'".
" AND codalm='". $ls_codalm ."'".
" AND opeinv='ENT' AND numdocori NOT IN".
" (SELECT numdocori FROM siv_dt_movimiento".
" WHERE opeinv ='REV')".
" ORDER BY nummov DESC";
break;
case"CPP";
$ls_sql="SELECT Avg(cosart) as cosart, nummov".
" FROM siv_dt_movimiento".
" WHERE codemp='". $ls_codemp ."'".
" AND codart='". $ls_codart ."'".
" AND codalm='". $ls_codalm ."'".
" AND opeinv='ENT' AND codprodoc<>'REV' AND numdocori NOT IN".
" (SELECT numdocori FROM siv_dt_movimiento".
" WHERE opeinv ='REV')".
" GROUP BY nummov".
" ORDER BY nummov DESC";
break;
}
$rs_data=$io_siv->io_sql->select($ls_sql);
if($row=$io_siv->io_sql->fetch_row($rs_data))
{
$li_preuniart=$row["cosart"];
$li_preuniart=$io_fun_inventario->uf_formatonumerico($li_preuniart);
}
$lb_valido=$io_siv->uf_obtener_datos_articulo($ls_codart,$ls_denart,$ls_sccuenta,$li_unidad,$ls_denunimed);
if($lb_valido)
{
$li_contador++;
$li_pendiente=$li_pendiente-$li_canart;
$_SESSION["despacho"]["codart".$li_contador]=$ls_codart;
$_SESSION["despacho"]["codalm".$li_contador]=$ls_codalm;
$_SESSION["despacho"]["denart".$li_contador]=$ls_denart;
$_SESSION["despacho"]["denunimed".$li_contador]=$ls_denunimed;
$_SESSION["despacho"]["sc_cuenta".$li_contador]=$ls_sccuenta;
$_SESSION["despacho"]["preuniart".$li_contador]=$li_preuniart;
$_SESSION["despacho"]["unidad".$li_contador]=$li_unidad;
$_SESSION["despacho"]["canart".$li_contador]=$li_canart;
$_SESSION["despacho"]["exiart".$li_contador]=$li_exiart;
$_SESSION["despacho"]["penart".$li_contador]=$li_pendiente;
$li_total=$li_total+$li_canartaux;
}
}
}
$_SESSION["despacho"]["ctasep"]=$ls_ctasep;
$_SESSION["despacho"]["contador"]=$li_contador;
$_SESSION["despacho"]["unidad"]=$ls_unidad;
$_SESSION["despacho"]["cansol"]=$li_cansol;
$_SESSION["despacho"]["codartpri"]=$ls_codartpri;
$_SESSION["despacho"]["penart"]=$li_penart;
$_SESSION["despacho"]["totart"]=$li_total;
if($lb_valido)
{
$ls_opeopener="AGREGARDETALLES";
print "";
}
break;
}
?>