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;
}
