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

se agregó una validación para agregar el numero de reembolso

Browse Source
This commit is contained in:
Antonio Gonzalez
2020-10-09 18:56:19 -07:00
parent 145e805b12
commit c1d3268b53
2 changed files with 53 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
Compras/Compras.aspx
View File

@@ -3732,11 +3732,18 @@
<br />
<div style="text-align:center">
<asp:CheckBox runat="server" ID="ChkCreditoMultiple" AutoPostBack="true" Text=" Múltiple Crédito" />
<asp:CheckBox runat="server" ID="ChkCreditoMultiple" AutoPostBack="true" Text=" Múltiple Crédito" visible="false" />
</div>
<br />
<div style="text-align:left;width: 85%;margin-left: 7.5%" runat="server" id="DivReembolsoModal" visible="false">
<asp:label runat="server" ID="LblReembolsoModal" Text="Num. Reembolso "/><asp:TextBox ID="TxtRembolsoModal" Width="80px" runat="server"></asp:TextBox>
<asp:RequiredFieldValidator ID="RfvTxtRembolsoModal" runat="server" ControlToValidate="TxtRembolsoModal" InitialValue="" Display="None" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Num. Reembolso''</b> es necesario, por favor ingreselo." ValidationGroup="GrpContado"></asp:RequiredFieldValidator>
<ajax:ValidatorCalloutExtender ID="VceTxtRembolsoModal" runat="server" HighlightCssClass="vco" TargetControlID="RfvTxtRembolsoModal" Width="300px"></ajax:ValidatorCalloutExtender>
</div>
<br />
<div runat="server" id="DivReembolso">
<asp:Panel ID="Panel1" CssClass="text-small" runat="server" Width="100%" Visible="true" BorderStyle="Solid" BorderColor="#6A92AD" BorderWidth="2px">
<div class="chequesie1">
@@ -4142,7 +4149,7 @@
</div>
<div class="modal-footer">
<asp:Button ID="BtnContado" runat="server" class="btn btn-success" Text="Guardar" ValidationGroup="GrpContado" data-dismiss="modal" />
<asp:Button ID="BtnContado" OnClick="BtnContado_Click" runat="server" class="btn btn-success" Text="Guardar" ValidationGroup="GrpContado" />
<button id="Button2" runat="server" type="button" class="btn default" data-dismiss="modal">Cancelar</button>
</div>
<asp:HiddenField ID="HiddenField1" runat="server" Value="-1" ClientIDMode="Static" />

47
Compras/Compras.aspx.vb
View File

@@ -3946,6 +3946,15 @@ Partial Class Compras_Compras
Dim EstatusCredito As Integer = 0
Dim CveSubProyecto As Integer = 0
'Credito Multiple
If RBLPago.SelectedValue.ToEntero = 2 Then
If RBLContado.SelectedValue.ToEntero = 6 Or RBLContado.SelectedValue.ToEntero = 2 Then
If Not TxtRembolsoNumero.Text.Length > 0 Then
Alert("Falta especificar un número de reembolso", TipoMensaje.MsgAdvertencia)
Exit Sub
End If
End If
End If
If RBLPago.SelectedValue.ToEntero = 4 Then
Dim DifCreCompra As Decimal = 0
@@ -12827,7 +12836,6 @@ Partial Class Compras_Compras
Select Case RBLPago.SelectedValue
Case "1" 'Credito
PnlContado.Visible = False
If Not UsuarioActual.Empresa.UsaAC Then
TxtNumeroReembolso.Text = ""
tdNumeroReembolso.Visible = False
@@ -12836,7 +12844,6 @@ Partial Class Compras_Compras
romCreditosTabla.Visible = False
Case "2" 'Contado
PnlContado.Visible = True
TxtNumeroReembolso.Text = ""
tdNumeroReembolso.Visible = False
@@ -12870,7 +12877,6 @@ Partial Class Compras_Compras
Case "3" 'Reembolso/Comprobacion
PnlContado.Visible = True
''AGARRA VALORES DE SESSION PARA REEMBOLSO -- SI YA ESTA REGISTRADA LA COMPRA IGNORA DATOS DE REEMBOLSO
If Not CveCompra > 0 Then
If UsuarioActual.Sesion("Comp-NumeroReembolso") <> Nothing AndAlso UsuarioActual.Sesion("Comp-NumeroReembolso").ToString <> "" Then
@@ -12998,26 +13004,61 @@ Partial Class Compras_Compras
Case "1" ' Bancos
PnlContadoBancos.Visible = True
TxtDocumentoImporte.Text = (TxtTotal.Text.ToDecimal - LblAmortizacion.Text.ToDecimal).FormatoNumero
ChkCreditoMultiple.Visible = False
DivReembolsoModal.Visible = False
RfvTxtRembolsoModal.Enabled = False
TxtRembolsoModal.Text = ""
TxtRembolsoNumero.Text = ""
Case "2" ' F y E
PnlContadoFyE.Visible = True
CargaFuncionariosEmpleados()
ChkCreditoMultiple.Visible = False
DivReembolsoModal.Visible = True
RfvTxtRembolsoModal.Enabled = True
TxtRembolsoNumero.Text = ""
TxtRembolsoModal.Text = ""
Case "3" ' Creditos
PnlContadoCreditos.Visible = True
ChkCreditoMultiple.Visible = True
CargaCreditos()
DivReembolsoModal.Visible = False
RfvTxtRembolsoModal.Enabled = False
TxtRembolsoModal.Text = ""
TxtRembolsoNumero.Text = ""
Case "4" ' Deudores
PnlContadoDeudores.Visible = True
CargaDeudores()
ChkCreditoMultiple.Visible = False
DivReembolsoModal.Visible = False
RfvTxtRembolsoModal.Enabled = False
TxtRembolsoModal.Text = ""
TxtRembolsoNumero.Text = ""
Case "5" ' ACREEDORES
PnlContadoAcreedores.Visible = True
ChkCreditoMultiple.Visible = True
CargaAcreedores()
DivReembolsoModal.Visible = False
RfvTxtRembolsoModal.Enabled = False
TxtRembolsoModal.Text = ""
TxtRembolsoNumero.Text = ""
Case "6" ' Caja Chica
PnlContadoCajaChica.Visible = True
TxtDocumentoImporteCaja.Text = (TxtTotal.Text.ToDecimal - LblAmortizacion.Text.ToDecimal).FormatoNumero
ChkCreditoMultiple.Visible = False
DivReembolsoModal.Visible = True
RfvTxtRembolsoModal.Enabled = True
TxtRembolsoModal.Text = ""
TxtRembolsoNumero.Text = ""
End Select
UpContado.Update()
End Sub
Protected Sub BtnContado_Click(sender As Object, e As EventArgs)
TxtRembolsoNumero.Text = TxtRembolsoModal.Text
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivContadoModal"))
End Sub
Protected Sub RblRembolso_SelectedIndexChanged(sender As Object, e As EventArgs)
TrRembolsoCajaChica.Visible = False
TrRembolsoPersonal.Visible = False