--FIX cortes

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

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" />

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