Merge branch 'master' of http://192.168.10.111:8383/SIG

App_Code/Modelos.vb

@@ -1307,6 +1307,7 @@ Namespace Modelos
             TmpDT.Columns.Add("Descuento", GetType(Decimal))
             TmpDT.Columns.Add("TipoDescuento", GetType(Integer))
             TmpDT.Columns.Add("TotalImporte", GetType(Decimal))
+            TmpDT.Columns.Add("TotalConImpuestos", GetType(Decimal))
             TmpDT.Columns.Add("Total", GetType(Decimal))
             TmpDT.Columns.Add("RetIVA", GetType(Decimal))
             TmpDT.Columns.Add("RetISR", GetType(Decimal))
@@ -1385,8 +1386,14 @@ Namespace Modelos
             TmpDT.Columns.Add("CveViajePasajero", GetType(Integer))
             TmpDT.Columns("CveViajePasajero").DefaultValue = -1
 
+            'COLUMNAS DE Ventas.aspx
             TmpDT.Columns.Add("CantidadConversion", GetType(Decimal))
             TmpDT.Columns("CantidadConversion").DefaultValue = 0
+            TmpDT.Columns.Add("NumeroPedimento", GetType(String))
+            TmpDT.Columns.Add("CodigoAlterno", GetType(String))
+            TmpDT.Columns.Add("PSAlterno", GetType(String))
+            TmpDT.Columns.Add("Costo", GetType(Decimal))
+            TmpDT.Columns("Costo").DefaultValue = 0D
 
             'COLUMNAS DE PV.aspx
             TmpDT.Columns.Add("PUOriginal", GetType(Decimal))

Ventas/PVCobranza.aspx

@@ -1580,12 +1580,14 @@
                 HdnSobranteFaltante.value = "0";
                 //HdnCambioFaltante.value = "1";
                 let cambio = total - totalVenta;
-                if (cambio > 1) {
+                if (cambio > 1 || totalEfectivo > 0) {
                     $get("TxtFaltante").value = "";
                     $get("ChkSobFaltante").checked = false;
                     $get("TxtCambio").value = FormatoNumero(cambio);
 
                 } else {
+                    //SOLO ACTIVAR SI NO HAY EFECTIVO
+                    if (totalEfectivo == 0) {
                         if (cambio == 'NaN') {
                             $get("TxtFaltante").value = "0.00";
                         } else {
@@ -1596,6 +1598,8 @@
                         $get("TxtCambio").value = "";
                     }
 
+                }
+
             } else {
                 C_lblCambio.innerHTML = "Faltante:";
                 HdnSobranteFaltante.value = "1";
@@ -1627,6 +1631,13 @@
                 sobFaltantePermitido = 10;
             }
 
+            let totalEfectivo = $get("TxtImporteEfectivo") ? ToDouble($get("TxtImporteEfectivo").value) : 0;
+
+            if (totalEfectivo > 0) {
+                sobFaltantePermitido = 0;
+            }
+
+            if (sobFaltantePermitido > 0) {
                 if (ToDouble($get("TxtFaltante").value) > sobFaltantePermitido) {
                     alert("El sobrante/faltante no debe ser mayor a " + sobFaltantePermitido);
                     $get("TxtFaltante").value = "";
@@ -1634,6 +1645,13 @@
                 } else {
                     $get("ChkSobFaltante").checked = true;
                 }
+            } else {
+                alert("El sobrante/faltante no esta permitido");
+                $get("TxtFaltante").value = "";
+                $get("ChkSobFaltante").checked = false;
+            }
+
+
         }
 
         function CargaSobranteFaltante() {
@@ -1644,6 +1662,14 @@
                     if (<%= If(UsuarioActual.Empresa.CveEmpresa = 189, 1, 0)%> == 1) {
                         sobFaltantePermitido = 10;
                     }
+
+                    let totalEfectivo = $get("TxtImporteEfectivo") ? ToDouble($get("TxtImporteEfectivo").value) : 0;
+
+                    if (totalEfectivo > 0) {
+                        sobFaltantePermitido = 0;
+                    }
+
+                    if (sobFaltantePermitido > 0) {
                         if (ToDouble($get("TxtCambio").value) > sobFaltantePermitido) {
                             alert("El sobrante/faltante no debe ser mayor a " + sobFaltantePermitido)
                             $get("ChkSobFaltante").checked = false;
@@ -1654,6 +1680,13 @@
                                 $get("TxtFaltante").value = $get("TxtCambio").value;
                             }
                         }
+                    } else {
+                        alert("El sobrante/faltante no esta permitido");
+                        $get("TxtFaltante").value = "";
+                        $get("ChkSobFaltante").checked = false;
+                    }
+
+
 
                 }
                 else {

Ventas/PVCobranza.aspx.vb

@@ -673,9 +673,11 @@ Partial Class Ventas_PVCobranza
             End If
         End If
 
-        Dim tCveCorte As Integer = CveCorte
+        Dim DebeTenerCorteCaja As Boolean = UsuarioActual.TienePermisoProceso(371) ' Usa Cortes de Caja - en Cajas
 
-        If tCveCorte <= 0 Then
+        Dim tCveCorte As Integer = If(DebeTenerCorteCaja, Me.CveCorte, -1)
+
+        If DebeTenerCorteCaja AndAlso tCveCorte <= 0 Then
             Alert("No se puede realizar el pago. Debe tener un corte activo", TipoMensaje.MsgAdvertencia)
             Exit Sub
         End If
@@ -897,7 +899,7 @@ Partial Class Ventas_PVCobranza
                                 MsgError = "Tiene saldo pendiente por aplicar"
                             End If
 
-                            If UsuarioActual.CveRol <> 1 Then
+                            If DebeTenerCorteCaja Then
                                 If MsgError = "" AndAlso Not ObjVentas2.UpdateVentaCorte(CveVenta, UsuarioActual.CveEmpresa, tCveCorte) Then
                                     MsgError = "Error al aplicar el corte"
                                 End If
@@ -1704,12 +1706,9 @@ Partial Class Ventas_PVCobranza
             If ChkSobFaltante.Checked AndAlso SobranteFaltante <> 0 Then
                 'SOBRANTE
                 If SobranteFaltante > 0 Then
-                    'SI ES EL SOBRANTE EN EFECTIVO SUMAR EL SOBRANTE/FALTANTE
+                    'EL SOBRANTE/FALTANTE NO PUEDE SER EN EFECTIVO
                     If Metodo = 13 Then
-                        ImporteIE += SobranteFaltante
+                        Retorno = "Error en aplicación de sobrante/faltante"
-                        Pago.OtroGastoIngreso = SobranteFaltante.ToString().ToDecimal()
-                        'LIMPIAR SOBRANTE/FALTANTE
-                        SobranteFaltante = 0
                     Else
                         'AJUSTAR DONDE EL IMPORTE A BANCOS SEA MAYOR EN EL DE LA VENTA
                         If ImporteBancos.RoundSQL(2) >= ImporteAbonoVenta.RoundSQL(2) Then
@@ -1722,7 +1721,10 @@ Partial Class Ventas_PVCobranza
 
                 'FALTANTE
                 If SobranteFaltante < 0 Then
-                    'METER LO QUE FALTA COMO GASTO
+                    'EL SOBRANTE/FALTANTE NO PUEDE SER EN EFECTIVO
+                    If Metodo = 13 Then
+                        Retorno = "Error en aplicación de sobrante/faltante"
+                    Else 'METER LO QUE FALTA COMO GASTO
                         If (ImporteBancos.RoundSQL(2) + Math.Abs(SobranteFaltante)) = ImporteAbonoVenta.RoundSQL(2) Then
                             Pago.OtroGastoIngreso = SobranteFaltante.ToString().ToDecimal()
 
@@ -1738,6 +1740,9 @@ Partial Class Ventas_PVCobranza
 
                 End If
 
+            End If
+
+            If String.IsNullOrEmpty(Retorno) Then
                 CveIEPago = ObjIE.AddBancos_IE(CveBancoCuenta, Metodo, Fecha, "-1", VentaActual.ClienteNombre, ImporteIE, 1, 1, Obs, "", False, True, 0, CvePrePoliza, "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCorte:=tCveCorte, CveAutorizacion:=CveAutorizacion, CveSubProyecto:=CveSubProyecto)
                 If CveIEPago > 0 Then
                     Dim tImportePago As Decimal = If(ImporteBancos > ImporteAbonoVenta, ImporteAbonoVenta, ImporteBancos) 'toma el importe menor para la factura
@@ -1768,6 +1773,8 @@ Partial Class Ventas_PVCobranza
                     Retorno = "Pago en Bancos no registrado"
                     ErrorConta = True
                 End If
+            End If
+
         Else
             Retorno = "No se ha especificado la cuenta"
         End If

Ventas/Ventas.aspx.vb

@@ -37861,7 +37861,7 @@ Partial Class Ventas
                     ObjFacturaProntoPago.UsoCFDI = GlobalDTSATUsosCFDI.FiltroPrimeroValor("Descripcion", String.Format("CveUsoCFDI = {0}", ObjCliente.CveUsoCFDI))
                     ObjFacturaProntoPago.ClaveUsoCFDISAT = GlobalDTSATUsosCFDI.FiltroPrimeroValor("UsoCFDI", String.Format("CveUsoCFDI = {0}", ObjCliente.CveUsoCFDI))
 
-                    ObjFacturaProntoPago.DtDetalle = CreaDTDetalleNCProntoPago()
+                    ObjFacturaProntoPago.DtDetalle = Modelos.Factura.CreaDTFactura() 'CreaDTDetalleNCProntoPago()
 
                     CargaImpuestosProntoPago(ObjFacturaProntoPago, ObjFactura, ObjCliente.DesglosaIEPS, ObjCliente.RetIVA.ToDecimal, ObjCliente.RetISR.ToDecimal)
 
@@ -38156,100 +38156,6 @@ Partial Class Ventas
         Return query.QueryToDataTable(False)
     End Function
 
-    Protected Function CreaDTDetalleNCProntoPago() As DataTable
-        Dim TmpDT As New DataTable
-        TmpDT.Columns.Add("CveVenta", GetType(Integer))
-        TmpDT.Columns.Add("Consec", GetType(Integer))
-        TmpDT.Columns.Add("Cantidad", GetType(Decimal))
-        TmpDT.Columns.Add("Codigo", GetType(String))
-        TmpDT.Columns.Add("CveUM", GetType(Integer))
-        TmpDT.Columns.Add("UM", GetType(String))
-        TmpDT.Columns.Add("SATClaveUM", GetType(String))
-        TmpDT.Columns.Add("CveClasificacion", GetType(Integer))
-        TmpDT.Columns.Add("Clasificacion", GetType(String))
-        TmpDT.Columns.Add("CvePS", GetType(Integer))
-        TmpDT.Columns.Add("PS", GetType(String))
-        TmpDT.Columns.Add("CodigoPS", GetType(String))
-        TmpDT.Columns.Add("SATClaveProdServ", GetType(String))
-        TmpDT.Columns.Add("NoIdentificacion", GetType(String))
-        TmpDT.Columns.Add("CveTipoPS", GetType(Integer))
-        TmpDT.Columns.Add("CveTipoInvPS", GetType(Integer))
-        TmpDT.Columns.Add("Serie", GetType(String))
-        TmpDT.Columns.Add("CuentaPredial", GetType(String))
-        TmpDT.Columns.Add("Obs", GetType(String))
-        TmpDT.Columns.Add("TiempoEntrega", GetType(String))
-        TmpDT.Columns.Add("PU", GetType(Decimal))
-        TmpDT.Columns.Add("IVA", GetType(Decimal))
-        TmpDT.Columns.Add("ImporteIVA", GetType(Decimal))
-        TmpDT.Columns.Add("PorcentajeIVA", GetType(Decimal))
-        TmpDT.Columns.Add("ImporteRetIVA", GetType(Decimal))
-        TmpDT.Columns.Add("ImporteRetISR", GetType(Decimal))
-        TmpDT.Columns.Add("PorcentajeRetIVA", GetType(Decimal))
-        TmpDT.Columns.Add("PorcentajeRetISR", GetType(Decimal))
-        TmpDT.Columns.Add("ImporteIEPS", GetType(Decimal))
-        TmpDT.Columns.Add("IEPS", GetType(Decimal))
-        TmpDT.Columns.Add("PorcentajeIEPS", GetType(Decimal))
-        TmpDT.Columns.Add("Descuento", GetType(Decimal))
-        TmpDT.Columns.Add("TipoDescuento", GetType(Integer))
-        TmpDT.Columns.Add("TotalImporte", GetType(Decimal))
-        TmpDT.Columns.Add("Total", GetType(Decimal))
-        'Para uso del módulo contable 
-        TmpDT.Columns.Add("CveProyecto", GetType(Integer))
-        TmpDT.Columns.Add("Proyecto", GetType(String))
-        TmpDT.Columns.Add("CveSubProyecto", GetType(Integer))
-        TmpDT.Columns.Add("SubProyecto", GetType(String))
-        TmpDT.Columns.Add("CveVentaDetallePadre", GetType(Integer))
-        'TipoDescuento: 1 = Descuento * PU; 2 = Descuento por Total del concepto
-        TmpDT.Columns.Add("CvePresupuestoIngreso", GetType(Integer))
-        TmpDT.Columns.Add("CveFuenteRecaudacion", GetType(Integer))
-        'Contratos
-        TmpDT.Columns.Add("CveContratoDetalle", GetType(Integer))
-        'Remisiones a Facturas
-        TmpDT.Columns.Add("CveVentaDetalle", GetType(Integer))
-        TmpDT.Columns.Add("CveVentaDetalleRemision", GetType(Integer))
-        TmpDT.Columns.Add("CveVentaDetalleCotizacion", GetType(Integer))
-        'Pedido2 a Facturas
-        TmpDT.Columns.Add("CveVentaDetallePedido2", GetType(Integer))
-        TmpDT.Columns.Add("Origen", GetType(Integer))
-        'Ordenes Servicio
-        TmpDT.Columns.Add("CveOS", GetType(Integer))
-        TmpDT.Columns.Add("CveOSDetalle", GetType(Integer))
-        TmpDT.Columns.Add("SeFacturara", GetType(Integer))
-        TmpDT.Columns.Add("Folio", GetType(Integer))
-        TmpDT.Columns.Add("Estatus", GetType(String))
-        'Ordenamiento
-        TmpDT.Columns.Add("Orden", GetType(Integer))
-        TmpDT.Columns.Add("TipoDocto", GetType(String))
-        'OC
-        TmpDT.Columns.Add("CveOrdenCompraDetalle", GetType(Integer))
-        TmpDT.Columns.Add("EntregaDirecta", GetType(Integer))
-        TmpDT.Columns.Add("CveMovimientoDetallePedido", GetType(Integer))
-        TmpDT.Columns.Add("CantidadFacturadaRem", GetType(Decimal))
-        TmpDT.Columns.Add("CantidadFacturadaCot", GetType(Decimal))
-        TmpDT.Columns.Add("CantidadFacturadaPed2", GetType(Decimal))
-        TmpDT.Columns.Add("CantidadInventario", GetType(Decimal))
-        TmpDT.Columns.Add("ClaveSATFraccionArancelaria", GetType(String))
-        TmpDT.Columns.Add("ClaveSATUnidadAduana", GetType(String))
-        TmpDT.Columns.Add("ClaveSATFraccionArancelariaDescripcion", GetType(String))
-        TmpDT.Columns.Add("ClaveSATUnidadAduanaDescripcion", GetType(String))
-        TmpDT.Columns.Add("CodigoObjetoImpuesto", GetType(String))
-        TmpDT.Columns.Add("CveTamaño", GetType(Integer))
-        TmpDT.Columns.Add("EsCargo", GetType(Boolean))
-        TmpDT.Columns.Add("CveMarca", GetType(Integer))
-        TmpDT.Columns.Add("CvePrecioLista", GetType(Integer))
-        TmpDT.Columns.Add("PrecioLista", GetType(String))
-        TmpDT.Columns.Add("CveActivoFijo", GetType(Integer))
-        TmpDT.Columns.Add("AFDepreciacion", GetType(Decimal))
-        TmpDT.Columns.Add("AFValorInicial", GetType(Decimal))
-        TmpDT.Columns.Add("NumTurnos", GetType(Decimal))
-        TmpDT.Columns("NumTurnos").DefaultValue = 0D
-        TmpDT.Columns.Add("NumeroPedimento", GetType(String))
-        TmpDT.Columns.Add("TotalConImpuestos", GetType(Decimal))
-        TmpDT.Columns.Add("Costo", GetType(Decimal))
-        TmpDT.Columns("Costo").DefaultValue = 0D
-
-        Return TmpDT
-    End Function
     Private Function InicializaDTVentasNCProntoPago() As DataTable
         Dim DtVentasNC As New DataTable
         DtVentasNC.Columns.Add("CveVenta", GetType(Integer))