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

Compras/Compras.aspx

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

Compras/Compras.aspx.vb

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