SMS 2024.02.12- Proceso de A-Vista

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>                        
-                        <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>
                     </ContentTemplate>
                 </asp:UpdatePanel>
             </td>

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
 

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
-
+            objGral.Dispose()
-            'CargaDatos()
+            'CargaDatos()
-
+
         End If
     End Sub
 

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

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()