=0;--$li_index) { if(($li_contador==3)&&(($li_index-1)>=0)) { $as_valor = substr($as_valor,0,$li_index).".".substr($as_valor,$li_index); $li_contador=1; } else { $li_contador=$li_contador + 1; } } return $as_valor; } //----------------------------------------------------------------------------------------------------------------------------------- //----------------------------------------------------------------------------------------------------------------------------------- function uf_obtener_alternos($as_codart) { ////////////////////////////////////////////////////////////////////////////// // Function: uf_obtener_alternos // Arguments: as_codart // Codigo de articulo // Returns: $la_alternos arreglo que contiene codigos alternos // Description: Función que obtiene los codigos alternos relacionados con determinado articulo ////////////////////////////////////////////////////////////////////////////// global $io_sql; $la_alternos=""; $li_i=0; $ls_sql="SELECT codart". " FROM siv_articulo". " WHERE codemp='".$_SESSION["la_empresa"]["codemp"]."'". " AND codartpri='".$as_codart."' "; $rs_data=$io_sql->select($ls_sql); while(!$rs_data->EOF) { $li_i++; $la_alternos[$li_i]= $rs_data->fields["codart"]; $rs_data->MoveNext(); } return $la_alternos; } //----------------------------------------------------------------------------------------------------------------------------------- //----------------------------------------------------------------------------------------------------------------------------------- function uf_obtener_datos_articulo($as_codart,&$ls_denart,&$ls_sccuenta,&$li_unidad) { ////////////////////////////////////////////////////////////////////////////// // Function: uf_obtener_datos_articulo // Arguments: as_codart // Codigo de articulo // Returns: $la_alternos arreglo que contiene codigos alternos // Description: Función que obtiene los datos relacionados al articulo. ////////////////////////////////////////////////////////////////////////////// global $io_sql,$io_msg; $ls_denart=""; $ls_sccuenta=""; $li_unidad=""; $lb_valido=true; $ls_sql= "SELECT denart,sc_cuenta,". " (SELECT unidad FROM siv_unidadmedida ". " WHERE siv_articulo.codunimed=siv_unidadmedida.codunimed) AS unidad". " FROM siv_articulo". " WHERE codemp='". $_SESSION["la_empresa"]["codemp"] ."'". " AND codart='". $as_codart ."'"; $rs_data=$io_sql->select($ls_sql); if($rs_data===false) { print $io_sql->message; $lb_valido=false; } else { while(!$rs_data->EOF) { $ls_denart= $rs_data->fields["denart"]; $ls_sccuenta= $rs_data->fields["sc_cuenta"]; $li_unidad= $rs_data->fields["unidad"]; $rs_data->MoveNext(); } } return $lb_valido; } //----------------------------------------------------------------------------------------------------------------------------------- ?> uf_conectar(); $io_msg =new class_mensajes(); $ds_despacho= new class_datastore(); $io_sql =new class_sql($con); $ls_codemp=$_SESSION["la_empresa"]["codemp"]; $ls_codusu=$_SESSION["la_logusr"]; if (array_key_exists("linea",$_GET)) { $li_linea= $_GET["linea"]; $ls_codart= $_GET["codart"]; $li_cansol= $_GET["cansol"]; $li_penart= $_GET["penart"]; $ls_opunidad=$_GET["unidad"]; $ls_sql="SELECT denart FROM siv_articulo". " WHERE codemp = '".$ls_codemp."'". " AND codart = '".$ls_codart."'"; $rs_data=$io_sql->select($ls_sql); if($row=$io_sql->fetch_row($rs_data)) { $ls_denart= $row["denart"]; } } else { if(array_key_exists("hidlinea",$_POST)) { $li_linea=$_POST["hidlinea"]; } else { $li_linea=""; } } if(array_key_exists("operacion",$_POST)) { $ls_operacion= $_POST["operacion"]; $ls_codalm= $_POST["hidalmacen"]; $ls_codart= $_POST["txtcodart"]; $ls_denart= $_POST["txtdenart"]; $li_existencia= $_POST["hidexistencia"]; } else { $ls_operacion=""; } ?>

Articulos Disponibles por Almacén

"; print ""; print "Artículo"; print "Almacén"; print "Existencia Actual (Detal)"; // print "Cantidad a Despachar"; print ""; if($ls_operacion=="") { $ls_aux=""; $la_alternos=uf_obtener_alternos($ls_codart); if(!empty($la_alternos)) { $li_total=count($la_alternos); if($li_total>0) { for($li_i=1;$li_i<=$li_total;$li_i++) { $ls_aux=$ls_aux."OR codart='".$la_alternos[$li_i]."'"; } } } $ls_aux=$ls_aux. ")"; $ls_sql="SELECT siv_articuloalmacen.*,". " (SELECT nomfisalm FROM siv_almacen". " WHERE siv_articuloalmacen.codalm=siv_almacen.codalm) AS nomfisalm". " FROM siv_articuloalmacen". " WHERE codemp = '".$ls_codemp."'". " AND (codart = '".$ls_codart."'". $ls_aux. " AND codalm IN". " (SELECT codintper FROM sss_permisos_internos". " WHERE codemp ='".$ls_codemp."'". " AND codsis='SIV'". " AND codusu ='".$ls_codusu."' AND enabled=1) ". " ORDER BY codalm"; $rs_data=$io_sql->select($ls_sql); $li_i=0; while(!$rs_data->EOF) { $li_i=$li_i +1; $li_existencia=$rs_data->fields["existencia"]; $li_existenciaaux=$rs_data->fields["existencia"]; if ($li_existenciaaux!=0) { $li_i=$li_i +1; $ls_codart=$rs_data->fields["codart"]; $ls_codalm=$rs_data->fields["codalm"]; $ls_nomfisalm=$rs_data->fields["nomfisalm"]; print ""; print "".$ls_codart.""; print "".$ls_nomfisalm.""; print "". "". ""; print ""; print ""; if($li_existenciaaux!=0) { $li_existencia=$li_existenciaaux; $li_existenciaaux=uf_formatonumerico($li_existenciaaux); } } $rs_data->MoveNext(); } if($li_i==0) { $io_msg->message("No hay existencia de articulos en el almacen "); print ""; } $li_totrow=$li_i; print ""; } /* $li_rows=$io_sql->num_rows($rs_data); if($li_rows>0) { while($row=$io_sql->fetch_row($rs_data)) { $li_existencia=$row["existencia"]; //$li_existencia=0; $li_existenciaaux=$row["existencia"]; if ($li_existenciaaux!=0) { $li_i=$li_i +1; print ""; $ls_codart = $row["codart"]; $ls_codalm = $row["codalm"]; $ls_nomfisalm = $row["nomfisalm"]; print "".$ls_codart.""; print "".$ls_nomfisalm.""; // print "".$li_existenciaaux.""; print "". "". ""; //print ""; print ""; print ""; } if($li_existenciaaux!=0) { $li_existencia=$li_existenciaaux; $li_existenciaaux=uf_formatonumerico($li_existenciaaux); } } } else { $io_msg->message("No hay existencia de articulos en el almacen "); print ""; } $li_totrow=$li_i; print ""; */ if($ls_operacion=="BUSCAR") { if(array_key_exists("hidexistencia",$_POST)) { $li_existencia= $_POST["hidexistencia"]; $ls_codartaux= $_POST["hidarticulo"]; } $ls_sql="SELECT * FROM siv_config"; $li_exec=$io_sql->select($ls_sql); if($row=$io_sql->fetch_row($li_exec)) { $ls_metodo=$row["metodo"]; } $ls_metodo=trim($ls_metodo); if($ls_metodo=="FIFO") { $ls_sql="SELECT * FROM siv_dt_movimiento". " WHERE codart='". $ls_codartaux ."'". " AND codalm='". $ls_codalm ."'". " AND opeinv='ENT' AND numdocori NOT IN". " (SELECT numdocori FROM siv_dt_movimiento". " WHERE opeinv ='REV')". " ORDER BY nummov"; $rs_data=$io_sql->select($ls_sql); } if($ls_metodo=="LIFO") { $ls_sql="SELECT * FROM siv_dt_movimiento". " WHERE codart='". $ls_codartaux ."'". " AND codalm='". $ls_codalm ."'". " AND opeinv='ENT' AND numdocori NOT IN". " (SELECT numdocori FROM siv_dt_movimiento". " WHERE opeinv ='REV')". " ORDER BY nummov DESC"; $rs_data=$io_sql->select($ls_sql); } if($ls_metodo=="CPP") { $ls_sql="SELECT Avg(cosart) as cosart, nummov". " FROM siv_dt_movimiento". " WHERE codart='". $ls_codartaux ."'". " 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"; $rs_data=$io_sql->select($ls_sql); } if($ls_metodo!="CPP") { $lb_break=false; while(($row=$io_sql->fetch_row($rs_data))&&(!$lb_break)) { $li_preuniart=$row["cosart"]; $ls_numdocori=$row["numdocori"]; $li_preuniart=uf_formatonumerico($li_preuniart); /* $ls_sql="SELECT SUM(CASE opeinv WHEN 'ENT' THEN canart ELSE -canart END) total FROM siv_dt_movimiento". " WHERE codart='". $ls_codart ."'". " AND codalm='". $ls_codalm ."'". " AND numdocori='". $ls_numdocori ."'". " AND numdocori NOT IN". " (SELECT numdocori FROM siv_dt_movimiento". " WHERE opeinv ='REV')". " ORDER BY nummov"; $li_exec1=$io_sql->select($ls_sql); if($row1=$io_sql->fetch_row($li_exec1)) { $li_existencia=$row1["total"]; /* if ($li_existencia > 0) { $lb_break=true; $io_sql->free_result($li_exec1); } } //fin if($row=$io_sql->fetch_row($li_exec)) */ } } else { if($row=$io_sql->fetch_row($rs_data)) { $ls_numdocori=""; $li_preuniart=$row["cosart"]; $li_preuniart=uf_formatonumerico($li_preuniart); } } print ""; } // fin if($ls_operacion=="buscar") if($ls_operacion=="AGREGAR") { if(array_key_exists("despacho",$_SESSION)) { unset($_SESSION["despacho"]); } $li_totrow=$io_fun_inventario->uf_obtenervalor("totrow",1); $ls_unidad=$io_fun_inventario->uf_obtenervalor("opunidad","Detal"); $li_cansol=$io_fun_inventario->uf_obtenervalor("cansol","0"); $ls_codartpri=$io_fun_inventario->uf_obtenervalor("txtcodart",""); $li_pendiente=$li_penart=$io_fun_inventario->uf_obtenervalor("penart",""); $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_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_sql->select($ls_sql); if($row=$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_sql->select($ls_sql); if($row=$io_sql->fetch_row($rs_data)) { $li_preuniart=$row["cosart"]; $li_preuniart=uf_formatonumerico($li_preuniart); } $lb_valido=uf_obtener_datos_articulo($ls_codart,$ls_denart,$ls_sccuenta,$li_unidad); 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"]["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"]["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 ""; } } ?>