AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

SMS 2024.02.12- Proceso de A-Vista

Browse Source
This commit is contained in:
rakcsle
2024-02-15 16:59:37 -07:00
parent 4c74c75e97
commit d5114df50f
5 changed files with 56 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
Bancos/PopIEVentas.aspx
View File

@@ -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>

16
Bancos/PopIEVentas.aspx.vb
View File

@@ -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

6
Bancos/RepComplementoPago.aspx.vb
View File

@@ -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