--FIX cortes

2025-04-25 18:50:06 -07:00
parent 3b1e1a17e6
commit 0a57ae4ae0
5 changed files with 120 additions and 23 deletions
--- a/Bancos/PopIEVentas.aspx.vb
+++ b/Bancos/PopIEVentas.aspx.vb
@@ -545,16 +545,7 @@ Partial Class Bancos_PopIEVentas
                FechaVenta = dr("Fecha").ToString.ToDate
                SaldoVenta = dr("Saldo").ToString.ToDouble

-
-                'Cortes de Caja
-                If UsuarioActual.TienePermisoProceso(160) Then
-                    CargaCorteCaja()
-                End If
-
-                If UsuarioActual.Empresa.Funcionalidad(531) = "1" OrElse (dr("CveCorte").ToString.ToEntero > 0) Then 'toma como proridad el que viene de 
-                    CveCorte = dr("CveCorte").ToString.ToEntero
-                End If
-
+                Me.CveCorte = CargaCorteCaja(pCveVenta, UsuarioActual)

                If RFCCliente.ToUpper <> "XAXX010101000" Then
                    Dim CveProveedor As Integer = GlobalDTCompProveedores(UsuarioActual.CveEmpresa, RFC:=RFCCliente.ToUpper).FiltroPrimeroValor("CveProveedor").ToEntero
@@ -581,18 +572,57 @@ Partial Class Bancos_PopIEVentas
        ObjVenta.Dispose()
    End Sub

-    Private Sub CargaCorteCaja()
-        'Checar si hay un Turno Abierto
-        Dim ObjPVenta As New ClsPuntoVenta
+    Protected Function CargaCorteCaja(CveVenta As Integer, UsuarioActual As Usuario) As Integer
+        Dim CveCorte As Integer = -1

-        If ObjPVenta.GetVta_Cortes("-1", "-1", UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, 0) Then
+        Dim CveCorteVenta As Integer = -1
+        Dim EsCredito As Boolean = False
+        Dim UsaCorteActual As Boolean = False

-            If ObjPVenta.DtResultados.Rows.Count > 0 Then
-                CveCorte = ObjPVenta.CveCorte
+        If CveVenta > 0 Then
+            Using ObjVentas As New ClsVentas
+                If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa, VerificaAlmacen:=False) Then
+                    EsCredito = If(ObjVentas.DtResultados.FiltroPrimeroValor("CondicionesPago").ToEntero() = 1, True, False)
+                    CveCorteVenta = ObjVentas.DtResultados.FiltroPrimeroValor("CveCorte").ToEntero()
+                End If
+            End Using
+
+            If UsuarioActual.TienePermisoProceso(160) OrElse UsuarioActual.TienePermisoProceso(371) Then
+                'SI ES FACTURA A CREDITO
+                If EsCredito OrElse CveCorteVenta <= 0 Then
+                    UsaCorteActual = True
+                End If
+            End If
+
+            'SI ES CONTADO TOMAR EL DE LA VENTA
+            If Not EsCredito Then
+                UsaCorteActual = False
+            End If
+
+            'EN BDH TOMAR EL DE LA VENTA
+            If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+                UsaCorteActual = False
+            End If
+        Else
+            If UsuarioActual.TienePermisoProceso(160) OrElse UsuarioActual.TienePermisoProceso(371) Then
+                UsaCorteActual = True
            End If
        End If
-        ObjPVenta.Dispose()
-    End Sub
+
+        If UsaCorteActual Then
+            Dim ObjPVenta As New ClsPuntoVenta
+            If ObjPVenta.GetVta_Cortes("-1", "-1", UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, 0) Then
+                If ObjPVenta.DtResultados.Rows.Count > 0 Then
+                    CveCorte = ObjPVenta.CveCorte
+                End If
+            End If
+            ObjPVenta.Dispose()
+        Else
+            CveCorte = CveCorteVenta
+        End If
+
+        Return CveCorte
+    End Function

    Private Sub CargaCliente(ByVal CveCliente As Integer, RFC As String)
        Dim ObjCliente As New ClsClientes
--- a/Bancos/RepCortes.aspx
+++ b/Bancos/RepCortes.aspx
@@ -131,7 +131,7 @@
                            <asp:Literal runat="server" Text=" <i class='fa fa-sort' style='color:#999' ></i>"></asp:Literal>
                        </HeaderTemplate>
                        <ItemTemplate>
-                            <asp:LinkButton ID="LBDescripcion" CommandName="CargaDetalle" CommandArgument='<%# Eval("CveCorte") %>' OnClick="LbDescripcion_Click" runat="server" Text='<%# If(UsuarioActual.Empresa.Funcionalidad(382) = "1", Eval("FechaInicial", "{0:dd/MM/yyyy}"), Eval("FechaInicial", "{0:g}")) %>'></asp:LinkButton>
+                            <asp:LinkButton ID="LBDescripcion" CommandName="CargaDetalle" CommandArgument='<%# Eval("CveCorte") %>' OnClick="LbDescripcion_Click" runat="server" Text='<%# Eval("FechaInicial", "{0:g}") %>'></asp:LinkButton>
                        </ItemTemplate>
                    </asp:TemplateField>
                    <asp:TemplateField>
@@ -315,7 +315,7 @@
                            <asp:Literal ID="LtlTotalCorte" runat="server" Text='<%# Eval("TotalCorte", "{0:N2}") %>'></asp:Literal>
                        </ItemTemplate>
                    </asp:TemplateField>
-                    <%--<asp:BoundField HeaderText="CveCorte" DataField="CveCorte" />--%>
+                    <asp:BoundField HeaderText="CveCorte" DataField="CveCorte" Visible="false" />
                </Columns>
                <HeaderStyle CssClass="Titulos" Font-Size="9pt" />
                <RowStyle CssClass="Texto" />
--- a/Bancos/RepCortes.aspx.vb
+++ b/Bancos/RepCortes.aspx.vb
@@ -90,6 +90,10 @@ Partial Class Bancos_RepCortes
            GvDatos.Columns(4).Visible = True
        End If

+        If UsuarioActual.CveRol = 1 Then
+            GvDatos.Columns(21).Visible = True 'COLUMNA DE CveCorte
+        End If
+
        GvP.DataBind()
        GvDep.DataBind()
        GvPorIVA.DataBind()
@@ -219,7 +223,7 @@ Partial Class Bancos_RepCortes
        Dim ConsultaPorSucursal As Boolean = UsuarioActual.Empresa.Funcionalidad(382) = "1"

        If ConsultaPorSucursal Then
-            CveCorte = -1
+            'CveCorte = -1
            FechaConsulta = gvr.DataKey("FechaInicial").ToDate()
        End If

--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -1749,7 +1749,7 @@ Partial Class PopUpVerFactura
                End Using
            End If

-            CveCorte = -1
+            'CveCorte = -1
        End If

        Dim ObjVenta As New ClsVentas
--- a/Ventas/ClientesAbonar.aspx.vb
+++ b/Ventas/ClientesAbonar.aspx.vb
@@ -10,6 +10,14 @@ Partial Class Ventas_ClientesAbonar


 #Region "Propiedades"
+    Private Property CveCorte As Integer
+        Get
+            Return ViewState("CveCorte").ToString.ToEntero
+        End Get
+        Set(value As Integer)
+            ViewState("CveCorte") = value
+        End Set
+    End Property
    Private ReadOnly Property CveCliente As Integer
        Get
            Return ViewState("CveCliente").ToString.ToEntero
@@ -172,6 +180,7 @@ Partial Class Ventas_ClientesAbonar

    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then
+            Me.CveCorte = -1
            CveMonedaPago = -1
            If Request("CveCliente") IsNot Nothing AndAlso Request("CveCliente").ToString.ToEntero > 0 Then
                ViewState("CveCliente") = Request("CveCliente").ToString.ToEntero
@@ -229,6 +238,8 @@ Partial Class Ventas_ClientesAbonar
                    ChkPagarDolares.Visible = False
                End If
                RegistraScript($"TipoCambioActual = {GlobalTipoCambio(Fecha).FormatoNumero(4)}")
+
+                Me.CveCorte = CargaCorteCaja(-1, UsuarioActual)
            End If

            RVTxtFechaDocumento.MaximumValue = NowADS().ToString("dd/MM/yyyy")
@@ -255,6 +266,58 @@ Partial Class Ventas_ClientesAbonar

    End Sub

+    Protected Function CargaCorteCaja(CveVenta As Integer, UsuarioActual As Usuario) As Integer
+        Dim CveCorte As Integer = -1
+
+        Dim CveCorteVenta As Integer = -1
+        Dim EsCredito As Boolean = False
+        Dim UsaCorteActual As Boolean = False
+
+        If CveVenta > 0 Then
+            Using ObjVentas As New ClsVentas
+                If ObjVentas.GetVenta(CveVenta, UsuarioActual.CveEmpresa, VerificaAlmacen:=False) Then
+                    EsCredito = If(ObjVentas.DtResultados.FiltroPrimeroValor("CondicionesPago").ToEntero() = 1, True, False)
+                    CveCorteVenta = ObjVentas.DtResultados.FiltroPrimeroValor("CveCorte").ToEntero()
+                End If
+            End Using
+
+            If UsuarioActual.TienePermisoProceso(160) OrElse UsuarioActual.TienePermisoProceso(371) Then
+                'SI ES FACTURA A CREDITO
+                If EsCredito OrElse CveCorteVenta <= 0 Then
+                    UsaCorteActual = True
+                End If
+            End If
+
+            'SI ES CONTADO TOMAR EL DE LA VENTA
+            If Not EsCredito Then
+                UsaCorteActual = False
+            End If
+
+            'EN BDH TOMAR EL DE LA VENTA
+            If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+                UsaCorteActual = False
+            End If
+        Else
+            If UsuarioActual.TienePermisoProceso(160) OrElse UsuarioActual.TienePermisoProceso(371) Then
+                UsaCorteActual = True
+            End If
+        End If
+
+        If UsaCorteActual Then
+            Dim ObjPVenta As New ClsPuntoVenta
+            If ObjPVenta.GetVta_Cortes("-1", "-1", UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, 0) Then
+                If ObjPVenta.DtResultados.Rows.Count > 0 Then
+                    CveCorte = ObjPVenta.CveCorte
+                End If
+            End If
+            ObjPVenta.Dispose()
+        Else
+            CveCorte = CveCorteVenta
+        End If
+
+        Return CveCorte
+    End Function
+
    Private Sub CargaTipoTransaccion()
        DdlTipoTransaccion.DataSource = GlobalDTTipoTransacciones.FiltraParametros("Tipo = 'Ing' AND Estatus = 1 ")
        DdlTipoTransaccion.DataBind()
@@ -870,7 +933,7 @@ Partial Class Ventas_ClientesAbonar
                CveIE = ObjIE.AddBancos_IE(DdlCuenta.SelectedValue.ToEntero, DdlTipoTransaccion.SelectedValue.ToEntero, TxtFechaDocumento.Text.Trim.ToDate, Folio, TxtAboneA.Text.Trim, TxtImporte.Text.ToDecimal,
                                           GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveMoneda", "CveCuenta = " & DdlCuenta.SelectedValue).ToEntero, TipoCambio,
                                           TxtObservaciones.Text.Trim, "", True, True, -1, CvePrePoliza, Comprobante, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCuentaDeposito:=CveCuentaDeposito,
-                                           CveProveedorIntermediario:=CveProvIntermediario, ImporteDeduccionesPago:=TxtImporteDeduccionesPago.Text.ToDecimal, FechaEmision:=FechaEmision)
+                                           CveProveedorIntermediario:=CveProvIntermediario, ImporteDeduccionesPago:=TxtImporteDeduccionesPago.Text.ToDecimal, FechaEmision:=FechaEmision, CveCorte:=Me.CveCorte)
                If Folio = "-1" Then
                    TxtFolio.Text = ObjIE.Folio.ToString()
                End If