function registrarAlbaranOrigen($Destino, $Origen, $Motivo, $NComprobante, $IdPedido) { global $UltimaInsercion; $Destinatario = $Motivo == '4' ? 'Proveedor' : 'Local'; $IdUsuario = getSesionDato("IdUsuario"); $Serie = "B" . $Origen; $igv = getSesionDato("IGV"); $Keys = "IdLocal,"; $Values = "'{$Origen}',"; $Keys .= "IdUsuario,"; $Values .= "'{$IdUsuario}',"; $Keys .= "SerieComprobante,"; $Values .= "'{$Serie}',"; $Keys .= "NComprobante,"; $Values .= "'{$NComprobante}',"; $Keys .= "TipoVentaOperacion,"; $Values .= "'VC',"; $Keys .= "FechaComprobante,"; $Values .= "NOW(),"; $Keys .= "ImporteNeto,"; $Values .= "' ',"; $Keys .= "ImporteImpuesto,"; $Values .= "'',"; $Keys .= "Impuesto,"; $Values .= "'{$igv}',"; $Keys .= "TotalImporte,"; $Values .= "'',"; $Keys .= "ImportePendiente,"; $Values .= "'',"; $Keys .= " Status,"; $Values .= "'1',"; $Keys .= " Destinatario,"; $Values .= "'{$Destinatario}',"; $Keys .= "IdCliente,"; $Values .= "'{$Destino}',"; $Keys .= "Traslado"; $Values .= "'{$IdPedido}'"; $sql = "insert into ges_comprobantes (" . $Keys . " ) values (" . $Values . ")"; $res = query($sql); if (!$res) { return false; } $IdComprobante = $UltimaInsercion; //Codigo Ventas registrarCodigoComprobanteOrigen($IdComprobante, $Origen, $Motivo, 'VC'); return $IdComprobante; }
function DevolverComprobanteTPV($IdComprobante, $Monto, $idDependiente, $Comprobante, $Items) { $IdLocal = getSesionDato("IdTiendaDependiente"); $TipoVenta = getSesionDato("TipoVentaTPV"); $TipoComprobante = 'AlbaranInt'; $Motivo = 4; //Devolución $Serie = $IdLocal; $nroDocumento = $IdComprobante; //++++++ COMPROBANTE ++++++++++++ //Anula y Registra Devoluc Comprobante if (!AnularNumeroComprobante($IdComprobante, $IdLocal)) { registrarCodigoComprobanteOrigen($IdComprobante, $IdLocal, $Motivo, $TipoVenta); } //++++++ CAJA ++++++++++++ //registrar sustraccion por devolucion $IdPartida = $TipoVenta == 'VC' ? 16 : 17; $concepto = "Devolucion " . $Comprobante; $arqueo = new movimiento(); $IdArqueo = $arqueo->GetArqueoActivo($IdLocal); $FechaCaja = $arqueo->getAperturaCaja($IdLocal, $TipoVenta); if ($Monto > 0) { EntregarOperacionCaja($IdLocal, $Monto, $concepto, $IdPartida, 'Sustraccion', $FechaCaja, $IdArqueo, $TipoVenta); } //++++++ PREVENTA ++++++++++++ $textDoc = 'Preventa'; $codDocumento = explode("-", NroComprobantePreVentaMax($IdLocal, $textDoc, $IdArqueo)); $sreDocumento = $codDocumento[0] != $IdArqueo ? $IdArqueo : $codDocumento[0]; $nroDocumento = $codDocumento[0] != $IdArqueo ? 1 : $codDocumento[1]; //trae comprobante... $sql = " select IdCliente,ImporteNeto,ImporteImpuesto," . " TotalImporte,Impuesto " . " from ges_comprobantes " . " where IdComprobante = '" . $IdComprobante . "' " . " and Eliminado = 0 "; $res = query($sql); $row = Row($res); // crea preventa... global $UltimaInsercion; $Keys = "IdLocal,"; $Values = "'" . $IdLocal . "',"; $Keys .= "IdUsuario,"; $Values .= "'" . $idDependiente . "',"; $Keys .= "NPresupuesto,"; $Values .= "'" . $nroDocumento . "',"; $Keys .= "TipoPresupuesto,"; $Values .= "'" . $textDoc . "',"; $Keys .= "TipoVentaOperacion,"; $Values .= "'" . $TipoVenta . "',"; $Keys .= "FechaPresupuesto,"; $Values .= "NOW(),"; $Keys .= "ImporteNeto,"; $Values .= "'" . $row["ImporteNeto"] . "',"; $Keys .= "ImporteImpuesto,"; $Values .= "'" . $row["ImporteImpuesto"] . "',"; $Keys .= "Impuesto,"; $Values .= "'" . $row["Impuesto"] . "',"; $Keys .= "TotalImporte,"; $Values .= "'" . $row["TotalImporte"] . "',"; $Keys .= "Status,"; $Values .= "'Pendiente',"; $Keys .= "IdCliente,"; $Values .= "'" . $row["IdCliente"] . "',"; $Keys .= "ModoTPV,"; $Values .= "'venta',"; $Keys .= "Serie"; $Values .= "'" . $sreDocumento . "'"; $sql = "insert into ges_presupuestos (" . $Keys . ") values (" . $Values . ")"; query($sql); //Presupuesto $IdPresupuesto = $UltimaInsercion; //Historial Venta... cargarVenta2HistorialVenta($row["IdCliente"], $row["TotalImporte"], false, false); //++++++ DETALLE PREVENTA ++++++++++++ // trae detalle comprobante... $sql = " select IdProducto, " . " sum(Cantidad) as Cantidad, " . " sum(Precio) as Precio, " . " sum(Descuento) as Descuento, " . " sum(Importe) as Importe, " . " Concepto,Talla,Color,Referencia," . " CodigoBarras," . " group_concat(IdPedidoDet) as IdPedidoDet," . " group_concat(IdAlbaran) as IdAlbaran, Serie, IdComprobanteDet " . " from ges_comprobantesdet " . " where IdComprobante = '" . $IdComprobante . "' " . " and Eliminado = 0 " . " and IdPedidoDet <> 0 " . " group by IdProducto "; $res = query($sql); if (!$res) { return false; } while ($row = Row($res)) { $Keys = "IdPresupuesto,"; $Values = "'" . $IdPresupuesto . "',"; $Keys .= "IdProducto,"; $Values .= "'" . $row['IdProducto'] . "',"; $Keys .= "Cantidad,"; $Values .= "'" . $row['Cantidad'] . "',"; $Keys .= "Precio,"; $Values .= "'" . $row['Precio'] . "',"; $Keys .= "Descuento,"; $Values .= "'" . $row['Descuento'] . "',"; $Keys .= "Importe,"; $Values .= "'" . $row['Importe'] . "',"; $Keys .= "Concepto,"; $Values .= "'" . $row['Concepto'] . "',"; $Keys .= "Talla,"; $Values .= "'" . $row['Talla'] . "',"; $Keys .= "Color,"; $Values .= "'" . $row['Color'] . "',"; $Keys .= "Referencia,"; $Values .= "'" . $row['Referencia'] . "',"; $Keys .= "CodigoBarras"; $Values .= "'" . $row['CodigoBarras'] . "'"; $sql = "insert into ges_presupuestosdet (" . $Keys . ") values (" . $Values . ")"; query($sql); } //++++++ LIBERA SERIES PRODUCTOS COMPROBANTE DETALLE +++++++ // trae detalle comprobante... $sql = " select IdProducto,Cantidad,IdPedidoDet," . " IdAlbaran,Serie,IdComprobanteDet " . " from ges_comprobantesdet " . " where IdComprobante = '" . $IdComprobante . "' " . " and Eliminado = 0 " . " and Serie = 1 " . " and IdPedidoDet <> 0 "; $res = query($sql); if (!$res) { return false; } while ($row = Row($res)) { $DocumentoSalida = $row["IdAlbaran"] ? $row["IdAlbaran"] : $IdComprobante; $aSeries = getSeries2IdProductoVentas($DocumentoSalida, $row["IdProducto"], $row["IdPedidoDet"]); // retorna las series... registraDevolucionSeriesVenta($row["IdProducto"], $IdComprobante, $IdPresupuesto, $aSeries); // libera series del detalle comprobante... $sql = " update ges_comprobantesdet set Serie = 0 " . " where IdComprobanteDet=" . $row['IdComprobanteDet']; query($sql); } //++++++ MARCAR PRODUCTOS Y CANTIDAD COMPROBANTES DETALLE ++++++++++ $xitem = explode("~", $Items); foreach ($xitem as $key => $xdet) { $xdetalle = explode(":", $xdet); $sql = " update ges_comprobantesdet set CantidadDevolucion = " . $xdetalle[1] . " where IdComprobanteDet=" . $xdetalle[0]; query($sql); } //++++++ KARDEX ++++++++++++ $almacenes = new almacenes(); $Operacion = 2; //Venta - Devolucion $sql = " select IdProducto,Cantidad,CostoUnitario," . " IdPedidoDet,IdComprobanteDet " . " from ges_comprobantesdet " . " where IdComprobante = '{$IdComprobante}' " . " and IdPedidoDet <> 0 " . " and Eliminado = 0 "; $res = query($sql); if (!$res) { return; } while ($row = Row($res)) { $id = $row['IdProducto']; $costo = $row['CostoUnitario']; $existencias = $almacenes->obtenerExistenciasKardex($id, $IdLocal); $Obs = $concepto; // registra ingreso por pedidodet registrarEntradaKardexFifo($id, $row['Cantidad'], $costo, $Operacion, $IdLocal, $row['IdPedidoDet'], $existencias, 0, 0, $row['IdComprobanteDet'], $Obs); // actualiza registros kardex $almacenes->actualizarCosto($id, $IdLocal); actualizaResumenKardex($id, $IdLocal); } return " ~" . $IdPresupuesto; }