Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

App_Code/ClsPuntoVenta.vb

@@ -243,29 +243,29 @@ Public Class ClsPuntoVenta
         End Try
 
         Return Retorno
-    End Function
+    End Function
+
+    'Public Function GetCortesPorCuenta(CveCuenta As Integer, CveEmpresa As Integer) As Boolean
+    '    Dim Retorno As Boolean = False
 
-    Public Function GetCortesPorCuenta(CveCuenta As Integer, CveEmpresa As Integer) As Boolean
-        Dim Retorno As Boolean = False
+    '    DataAdapter("PA_Vta_CuentaCorteGet")
 
-        DataAdapter("PA_Vta_CuentaCorteGet")
+    '    With SqlAdapter.SelectCommand.Parameters
+    '        .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta
+    '        .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+    '        .Add("@CveCorte", SqlDbType.Int).Direction = ParameterDirection.Output
+    '    End With
 
-        With SqlAdapter.SelectCommand.Parameters
-            .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta
-            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
-            .Add("@CveCorte", SqlDbType.Int).Direction = ParameterDirection.Output
-        End With
+    '    Try
+    '        SqlAdapter.Fill(Data)
+    '        CveCorte = Integer.Parse(SqlAdapter.SelectCommand.Parameters("@CveCorte").Value.ToString)
+    '        Retorno = True
+    '    Catch ex As Exception
+    '        OnError("Ocurrió un error al obtener los cuenta de corte", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+    '    End Try
 
-        Try
-            SqlAdapter.Fill(Data)
-            CveCorte = Integer.Parse(SqlAdapter.SelectCommand.Parameters("@CveCorte").Value.ToString)
-            Retorno = True
-        Catch ex As Exception
-            OnError("Ocurrió un error al obtener los cuenta de corte", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
-        End Try
-
-        Return Retorno
-    End Function
+    '    Return Retorno
+    'End Function
 
 
     Public Function GetVta_ReporteCortes(CveEmpresa As Integer, FechaI As Date, FechaF As Date, Optional CveSubProyecto As Integer = -1, Optional CveCorte As Integer = -1) As Boolean

App_Code/ClsVentas.vb

@@ -3467,6 +3467,28 @@ Public Class ClsVentas
         Return Retorno
     End Function
 
+    Public Function GetCortesDetalleDepositosCaja(CveCorte As Integer, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_Vta_CortesDetalleDepositosCajaGet")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveCorte", SqlDbType.Int).Value = CveCorte
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener los detalle de cortes", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
 #End Region
 
 #Region "  CANCELAR ANTE SAT  "

Bancos/DepositosCaja.aspx.vb

@@ -267,6 +267,10 @@ Partial Class Bancos_DepositosCaja
                 CveTransaccionBanco = 6
             End If
 
+            If DdlTipoPago.SelectedValue.Contiene("11", "12") Then ' cuando son pagos con tarjetas
+                CveTransaccionBanco = DdlTipoPago.SelectedValue.ToEntero
+            End If
+
             'código temporal, para claudia y toñita, monge, anadelia, alba,patricia
             If UsuarioActual.CveUsuario.Contiene(1937, 2452, 3358, 3033, 2897, 2560) Then
                 FolioIE = TxtFolio.Text.ToEntero

Bancos/RepCortes.aspx

@@ -372,7 +372,7 @@
                             </Columns>
                         </asp:GridView>
                     </div>
-                    <div class="col-md-6">
+                    <div class="col-md-2">
                         <asp:GridView ID="GvPorIVA" runat="server" AutoGenerateColumns="False" GridLines="None" CssClass="table table-striped table-advance table-hover">
                             <Columns>
                                 <asp:BoundField HeaderText="Documento" DataField="TipoDocto" />
@@ -381,6 +381,20 @@
                             </Columns>
                         </asp:GridView>
                     </div>
+                    <div class="col-md-2">
+                    <asp:GridView ID="GvDep" runat="server" AutoGenerateColumns="False" GridLines="None" CssClass="table table-striped table-advance table-hover mysmallbtn ">
+                        <Columns>
+                            <asp:BoundField HeaderText="TipoTransacción" DataField="TipoTransaccion" />
+                            <asp:HyperLinkField HeaderText="Folio Pago" DataTextField="FolioPago" Target="_blank" DataNavigateUrlFormatString="/Bancos/IE.aspx?CveIE={0}" DataNavigateUrlFields="CveIE" />
+                             <asp:BoundField HeaderText="Importe" DataField="Importe" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />                            
+                             <asp:TemplateField HeaderText="Póliza" > 
+                                 <ItemTemplate>
+                                     <asp:HyperLink ID="HplImpPol" runat="server" CssClass="btn btn-circle btn-sm  blue mysmallbtn" Text="<i class='fa fa-print'></i>" ToolTip="Imprimir"></asp:HyperLink>
+                                 </ItemTemplate>
+                             </asp:TemplateField>
+                        </Columns>
+                    </asp:GridView>
+                </div>
                 </div>
                 <asp:GridView ID="GvD" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontró ningun corte" DataKeyNames="CveVenta" ToolTip="Reporte de Cortes" CssClass="table table-striped table-advance table-hover Widthall" Style="position: static" UseAccessibleHeader="false" GridLines="None">
                     <Columns>

Bancos/RepCortes.aspx.vb

@@ -179,6 +179,10 @@ Partial Class Bancos_RepCortes
             End If
         End If
 
+        If Vn.GetCortesDetalleDepositosCaja(CveCorte, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+            GvDep.DataSource = Vn.DtResultados
+        End If
+
         If Vent.GetCortesDetalleVentas(CveCorte, DdlSubProyectos.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, 2) Then
             GvD.DataSource = Vent.DtResultados
             DtCortesVentas = Vent.DtResultados
@@ -197,6 +201,7 @@ Partial Class Bancos_RepCortes
         Vent.Dispose()
         GvD.DataBind()
         GvP.DataBind()
+        GvDep.DataBind()
         GvPorIVA.DataBind()
         UPPDetalle.Update()
         UpAcciones.Update()

Ventas/PVCobranza.aspx

@@ -272,7 +272,7 @@
                     <div class="row">
                        
                         <div class="col-md-1">
-                            Ver Solo pagadas:
+                            Solo pagadas:
                         </div>
                          <div class="col-md-1" style="padding-top:6px">
                              <asp:CheckBox ID="ChkMostrarSoloPagados" CssClass="chksino" runat="server" Text="Ver Solo pagadas" />

Ventas/PVCobranza.aspx.vb

@@ -814,11 +814,10 @@ Partial Class Ventas_PVCobranza
 
     Sub CargaDdlPagos()
 
-        DdlTipoTransaccion.DataSource = GlobalDTTipoTransacciones.FiltraParametros("Tipo='Ing'")
+        DdlTipoTransaccion.DataSource = GlobalDTTipoTransacciones.FiltraParametros("Tipo='Ing'  AND Estatus = 1")
         DdlTipoTransaccion.DataBind()
         DdlTipoTransaccion.Items.Insert(0, New ListItem("Seleccione Tipo Movimiento", "-1"))
 
-
         DdlCuenta.DataSource = GlobalDTBancosCuentas(UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa)
         DdlCuenta.DataBind()
         DdlCuenta.Items.Insert(0, New ListItem("Seleccione", "-1"))