8 Validaciones de corte

App_Code/ClsPuntoVenta.vb

@@ -401,6 +401,26 @@ Public Class ClsPuntoVenta
 
         Return Retorno
     End Function
+
+    Public Function GetVta_EstadoCajas(CveCuenta As Integer, CveEmpresa As Integer, FechaInicio As Date, FechaFin As Date) As Boolean
+        Dim Retorno As Boolean = False
+        DataAdapter("PA_Vta_VentasEstadoCajasGet")
+
+        SqlAdapter.SelectCommand.Parameters.Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta
+        SqlAdapter.SelectCommand.Parameters.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        SqlAdapter.SelectCommand.Parameters.Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio
+        SqlAdapter.SelectCommand.Parameters.Add("@FechaFin", SqlDbType.Date).Value = FechaFin
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener los Cortes del Punto de Venta.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+    End Function
+
 #Region "IDisposable Support"
 
 

Ventas/PVCobranza.aspx

@@ -203,6 +203,9 @@
             <li>
                 <asp:LinkButton ID="LnkCobrosEnTranscurso" runat="server" OnClick="LnkCobrosEnTranscurso_Click"><i class="fa fa-money"></i>Cobros en Transcurso</asp:LinkButton>
             </li>
+            <li>
+                <asp:LinkButton ID="LnkEstadosCaja" runat="server" OnClick="LnkEstadosCaja_Click" Visible="false"><i class="fa fa-list" aria-hidden="true"></i>Ver estados de las cajas</asp:LinkButton>
+            </li>
         </ContentTemplate>
     </asp:UpdatePanel>
 </asp:Content>
@@ -1325,6 +1328,50 @@
             </ContentTemplate>
         </asp:UpdatePanel>
     </div>
+
+
+
+
+
+    <div id="DVEstadoCaja" class="modal ADS fade" role="dialog">
+        <asp:UpdatePanel runat="server" ID="UpDVEstadoCaja" UpdateMode="Conditional" RenderMode="Inline">
+            <ContentTemplate>
+                <div class="modal-dialog" style="width: 700px;">
+                    <div class="modal-content">
+                        <div class="modal-header ">
+                            <button type="button" class="close" data-dismiss="modal">&times;</button>
+                            <h4 class="modal-title">
+                                Estados de Cajas
+                            </h4>
+                        </div>
+                        <div class="modal-body">
+
+                            <div class="row">
+                                <div class="col-md-12" >
+
+                                    <asp:GridView ID="GvEstadoCajas" runat="server" AutoGenerateColumns="False" ClientIDMode="Static" EmptyDataText="No se encontraron Anticipos del Cliente"
+                                        ToolTip="Listado de Anticipos" CssClass="GVAnticipos table table-striped table-hover Widthall mysmallbtn" data-height="300" GridLines="None"
+                                        DataKeyNames="">
+                                        <Columns>
+                                        </Columns>
+                                    </asp:GridView>
+
+                                </div>
+                            </div>                               
+
+                            
+                        </div>
+                        <div class="modal-footer">
+                            <asp:Button ID="Button1" runat="server" Text="Aceptar" class="btn btn-primary" ValidationGroup="VGAnticiposClientes" />
+                            <button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
+                        </div>
+                    </div>
+                </div>
+            </ContentTemplate>
+        </asp:UpdatePanel>
+    </div>
+
+
     <asp:Button ID="BtnEnviarMailCancelacion" runat="server" ClientIDMode="Static" Text="Enviar Mail Cliente" Style="display: none;" OnClick="BtnEnviarMailCancelacion_Click" />
 
     

Ventas/PVCobranza.aspx.vb

@@ -875,7 +875,7 @@ Partial Class Ventas_PVCobranza
                             End If
 
                         Else
-                                MsgError = "Error al registrar prepólizas"
+                            MsgError = "Error al registrar prepólizas"
                         End If
                     Else
                         'SI NO TIENE SALDO PENDIENTE NO GENERAR POLIZA PARA EL PAGO