From d5114df50f6d23931f60c8dd96d3104433af2295 Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Thu, 15 Feb 2024 16:59:37 -0700
Subject: [PATCH] SMS  2024.02.12- Proceso de A-Vista

---
 Bancos/PopIEVentas.aspx           | 24 ++++++++++++++++++------
 Bancos/PopIEVentas.aspx.vb        | 16 ++++++++++++++++
 Bancos/RepComplementoPago.aspx.vb |  6 +++---
 OS/OrdenesServicios.aspx.vb       |  3 +++
 Ventas/ClientesAbonar.aspx.vb     | 16 ++++++++++++++++
 5 files changed, 56 insertions(+), 9 deletions(-)

diff --git a/Bancos/PopIEVentas.aspx b/Bancos/PopIEVentas.aspx
index 851a7d32a..e2eb1826e 100644
--- a/Bancos/PopIEVentas.aspx
+++ b/Bancos/PopIEVentas.aspx
@@ -533,14 +533,26 @@
             <td align="center">
                 <asp:UpdatePanel ID="UpGuardar" runat="server" UpdateMode="Conditional">
                     <ContentTemplate>
+                        <table>
+                            <tr>
+                                <td>
+                                    <asp:CheckBox Text=" Emitir complemento de pago" ID="ChkComplementoPago" Visible="true" CssClass="md-checksd" runat="server" />
+                                </td>
+                                <td>
+                                    <asp:Button ID="BtnGuardar" runat="server" Text="Guardar" ValidationGroup="GrpGuardar" CssClass="btn btn-primary" />
+                                    <asp:ValidationSummary ID="VS" runat="server" DisplayMode="BulletList" ShowSummary="true" ValidationGroup="GrpGuardar" />
+                                </td>
+                            </tr>
+                        </table>
                         <div class="row">
-                            <asp:CheckBox Text=" Emitir complemento de pago" ID="ChkComplementoPago" Visible="true" CssClass="md-checksd" runat="server" />
+                            <div class="col-md-6">
+                                
+                            </div>
+                            <div class="col-md-6">
+                                
+                            </div>                                                        
                             <br />
-                        </div>
-                        <div class="roe">
-                            <asp:Button ID="BtnGuardar" runat="server" Text="Guardar" ValidationGroup="GrpGuardar" CssClass="btn btn-primary" />
-                            <asp:ValidationSummary ID="VS" runat="server" DisplayMode="BulletList" ShowSummary="true" ValidationGroup="GrpGuardar" />
-                        </div>
+                        </div>                        
                     </ContentTemplate>
                 </asp:UpdatePanel>
             </td>
diff --git a/Bancos/PopIEVentas.aspx.vb b/Bancos/PopIEVentas.aspx.vb
index b05648ad7..b7108b91a 100644
--- a/Bancos/PopIEVentas.aspx.vb
+++ b/Bancos/PopIEVentas.aspx.vb
@@ -1110,6 +1110,22 @@ Partial Class Bancos_PopIEVentas
 #Region "G U A R D A R"
     Private Sub BtnGuardar_Click(sender As Object, e As EventArgs) Handles BtnGuardar.Click
 
+        If ChkComplementoPago.Checked Then
+            Dim objGral As New ClsGralFolios
+            Dim SalirDeMetodo As Boolean = False
+            If objGral.GetFolios("CP", UsuarioActual.CveEmpresa) Then
+                If Not objGral.DtResultados.Rows.Count > 0 Then
+                    Alert("No se cuenta con folios para emitir complemento de pago", TipoMensaje.MsgAdvertencia)
+                    SalirDeMetodo = True
+                End If
+            End If
+            objGral.Dispose()
+            If SalirDeMetodo Then
+                Exit Sub
+            End If
+        End If
+
+
         Dim FechaFactura As Date = FechaVenta
         Dim FechaDocumentoPago As Date = TxtFechaDocumento.Text.ToDate
 
diff --git a/Bancos/RepComplementoPago.aspx.vb b/Bancos/RepComplementoPago.aspx.vb
index a22070ac6..e7360a3c1 100644
--- a/Bancos/RepComplementoPago.aspx.vb
+++ b/Bancos/RepComplementoPago.aspx.vb
@@ -97,9 +97,9 @@ Partial Class Bancos_RepComplementoPago
                     Alert("No se cuenta con folios para emitir complemento de pago", TipoMensaje.MsgAdvertencia)
                 End If
             End If
-
-            'CargaDatos()
-
+            objGral.Dispose()
+            'CargaDatos()
+
         End If
     End Sub
 
diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb
index 13e26033c..3546aa177 100644
--- a/OS/OrdenesServicios.aspx.vb
+++ b/OS/OrdenesServicios.aspx.vb
@@ -3039,6 +3039,9 @@ Partial Class OS_OrdenesServicios
             Case 5
                 Opcion = 3
                 Exit Select
+            Case 6
+                Opcion = 4
+                Exit Select
             Case Else
                 Opcion = 1
                 Exit Select
diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb
index 599476524..58c50a68d 100644
--- a/Ventas/ClientesAbonar.aspx.vb
+++ b/Ventas/ClientesAbonar.aspx.vb
@@ -615,6 +615,22 @@ Partial Class Ventas_ClientesAbonar
 
     Protected Sub BtnIEGuardar_Click(sender As Object, e As EventArgs) Handles BtnIEGuardar.Click
 
+        If ChkComplementoPago.Checked Then
+            Dim objGral As New ClsGralFolios
+            Dim SalirDeMetodo As Boolean = False
+            If objGral.GetFolios("CP", UsuarioActual.CveEmpresa) Then
+                If Not objGral.DtResultados.Rows.Count > 0 Then
+                    Alert("No se cuenta con folios para emitir complemento de pago", TipoMensaje.MsgAdvertencia)
+                    SalirDeMetodo = True
+                End If
+            End If
+            objGral.Dispose()
+            If SalirDeMetodo Then
+                Exit Sub
+            End If
+        End If
+
+
         'SI ES EMPRESA DE ACUMULADORES DEBE OBLIGAR A SUBIR UN ARCHIVO
         If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
             Dim files As Extensiones.Files = Anexo.getfiles()