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

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
rrene
2023-05-13 13:14:06 -07:00
parent 031dcab0b6 3dd1418247
commit 43f3b9cf6f
15 changed files with 61 additions and 54 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
App_Code/ClsBancos.vb
View File

@@ -4843,11 +4843,7 @@ Public Class ClsBancos
'MOVIMIENTOS CHEQUE 'MOVIMIENTOS CHEQUE
If GetBancosIEMovimientos(CveIENotificar, UsuarioActual.CveEmpresa) Then If GetBancosIEMovimientos(CveIENotificar, UsuarioActual.CveEmpresa) Then
Dim Textov33 As String = "" Dim Textov33 As String = "Favor de emitir complemento de pago de los siguientes documentos"
If UsuarioActual.Empresa.Funcionalidad(520) = "1" Then
Textov33 = "Favor de emitir complemento de pago de los siguientes documentos"
End If
strBody.AppendFormat("<div style='width: 1000px'>") strBody.AppendFormat("<div style='width: 1000px'>")
strBody.AppendFormat(" <table style='width:1000px'>") strBody.AppendFormat(" <table style='width:1000px'>")

4
App_Code/ClsPaginas.vb
View File

@@ -4639,7 +4639,7 @@ Public Class ClsPaginas
If Context.Session("UsuarioSIG") IsNot Nothing Then If Context.Session("UsuarioSIG") IsNot Nothing Then
CveUsuario = UsuarioActual.CveUsuario CveUsuario = UsuarioActual.CveUsuario
CveEmpresa = UsuarioActual.CveEmpresa CveEmpresa = UsuarioActual.CveEmpresa
RutaEmpresa = UsuarioActual.Empresa.RutaArchivos RutaEmpresa = UsuarioActual.Empresa.Ruta
End If End If
Dim bdir As String = If(RutaReporte.Contains("Empresas"), ModExtensiones.DirectorioBaseEmpresas, AppDomain.CurrentDomain.BaseDirectory) Dim bdir As String = If(RutaReporte.Contains("Empresas"), ModExtensiones.DirectorioBaseEmpresas, AppDomain.CurrentDomain.BaseDirectory)
'TOMAR LA RUTA BASE PARA EL DIRECTORIO DE LA EMPRESA 'TOMAR LA RUTA BASE PARA EL DIRECTORIO DE LA EMPRESA
@@ -6457,7 +6457,7 @@ Public Class ClsPaginas
If Context.Session("UsuarioSIG") IsNot Nothing Then If Context.Session("UsuarioSIG") IsNot Nothing Then
CveUsuario = UsuarioActual.CveUsuario CveUsuario = UsuarioActual.CveUsuario
CveEmpresa = UsuarioActual.CveEmpresa CveEmpresa = UsuarioActual.CveEmpresa
RutaEmpresa = UsuarioActual.Empresa.RutaArchivos RutaEmpresa = UsuarioActual.Empresa.Ruta
End If End If
Dim bdir As String = If(RutaReporte.Contains("Empresas"), ModExtensiones.DirectorioBaseEmpresas, AppDomain.CurrentDomain.BaseDirectory) Dim bdir As String = If(RutaReporte.Contains("Empresas"), ModExtensiones.DirectorioBaseEmpresas, AppDomain.CurrentDomain.BaseDirectory)
'TOMAR LA RUTA BASE PARA EL DIRECTORIO DE LA EMPRESA 'TOMAR LA RUTA BASE PARA EL DIRECTORIO DE LA EMPRESA

2
App_Code/ClsSisEmpresas.vb
View File

@@ -465,7 +465,7 @@ Public Class ClsSisEmpresas
_Empresa.FielPassword = Data.Rows(0)("FielPassword").ToString _Empresa.FielPassword = Data.Rows(0)("FielPassword").ToString
_Empresa.FielPFX = Data.Rows(0)("FielPFX").ToString _Empresa.FielPFX = Data.Rows(0)("FielPFX").ToString
_Empresa.RutaArchivos = Data.Rows(0)("RutaArchivos").ToString _Empresa.Ruta = Data.Rows(0)("RutaArchivos").ToString
Else Else
'Alert("No se encontró la Empresa solicitada.", TipoMensaje.MsgAdvertencia) 'Alert("No se encontró la Empresa solicitada.", TipoMensaje.MsgAdvertencia)

6
App_Code/Empresa.vb
View File

@@ -98,7 +98,8 @@ Public Class Empresa
Public Property Soporte_Tipo As String Public Property Soporte_Tipo As String
Public Property Timbres As Integer Public Property Timbres As Integer
Private Property RutaArchivos As String Private Property RutaArchivos As String
Public ReadOnly Property Ruta As String
Public Property Ruta As String
Get Get
If Not String.IsNullOrEmpty(RutaArchivos) AndAlso ClsPaginas.EsProduccion Then If Not String.IsNullOrEmpty(RutaArchivos) AndAlso ClsPaginas.EsProduccion Then
Return RutaArchivos Return RutaArchivos
@@ -106,6 +107,9 @@ Public Class Empresa
Return String.Format("{0}\{1}\", Extensiones.ModExtensiones.DirectorioEmpresas, Me.CveEmpresa) Return String.Format("{0}\{1}\", Extensiones.ModExtensiones.DirectorioEmpresas, Me.CveEmpresa)
End If End If
End Get End Get
Set(ByVal value As String)
RutaArchivos = value
End Set
End Property End Property
'Public Property IdCuentaIVAxTrasladar As Integer 'Public Property IdCuentaIVAxTrasladar As Integer
'Public Property IdCuentaIVATrasladado As Integer 'Public Property IdCuentaIVATrasladado As Integer

42
App_Code/LogicNominas.vb
View File

@@ -97,7 +97,7 @@ Public Class LogicNominas
Dim DtDeducciones As Data.DataTable = Nothing Dim DtDeducciones As Data.DataTable = Nothing
Dim DtOtrosPagos As Data.DataTable = Nothing Dim DtOtrosPagos As Data.DataTable = Nothing
Dim DtHorasExtras As Data.DataTable = Nothing 'Dim DtHorasExtras As Data.DataTable = Nothing
Dim TotalPercepciones As Decimal = 0 Dim TotalPercepciones As Decimal = 0
Dim TotalDeducciones As Decimal = 0 Dim TotalDeducciones As Decimal = 0
Dim TotalOtrosPagos As Decimal = 0 Dim TotalOtrosPagos As Decimal = 0
@@ -253,13 +253,13 @@ Public Class LogicNominas
continuar = False continuar = False
End If End If
If Not TimbreIndemnizacion Then If Not TimbreIndemnizacion Then
If continuar AndAlso objNomina.GetHorasExtras(CvePersonal, CvePeriodo, UsuarioActual.CveEmpresa) Then 'If continuar AndAlso objNomina.GetHorasExtras(CvePersonal, CvePeriodo, UsuarioActual.CveEmpresa) Then
DtHorasExtras = objNomina.DtResultados ' DtHorasExtras = objNomina.DtResultados
'Else
' continuar = False
'End If
Else Else
continuar = False 'DtHorasExtras = New DataTable()
End If
Else
DtHorasExtras = New DataTable()
End If End If
If continuar AndAlso objNomina.GetPeriodos(-1, UsuarioActual.CveEmpresa, -1, -1, CvePeriodo) AndAlso objNomina.DtResultados.Rows().Count > 0 Then If continuar AndAlso objNomina.GetPeriodos(-1, UsuarioActual.CveEmpresa, -1, -1, CvePeriodo) AndAlso objNomina.DtResultados.Rows().Count > 0 Then
Dim DrPeriodo As DataRow = objNomina.DtResultados.Rows(0) Dim DrPeriodo As DataRow = objNomina.DtResultados.Rows(0)
@@ -350,14 +350,32 @@ Public Class LogicNominas
.ImporteGravado = Row("ImporteGravado").ToString().ToDecimal(), .ImporteExento = Row("ImporteExento").ToString().ToDecimal()}) .ImporteGravado = Row("ImporteGravado").ToString().ToDecimal(), .ImporteExento = Row("ImporteExento").ToString().ToDecimal()})
End If End If
'RMF, falta poner el numero de horas pagadas 'RMF, falta poner el numero de horas pagadas
If Row("SATCveConcepto").ToString().ToEntero() = 19 AndAlso DtHorasExtras IsNot Nothing Then 'cuando son horas extras If Row("SATCveConcepto").ToString().ToEntero() = 19 Then 'cuando son horas extras
'Obtengo el desglose de horas extras 'Obtengo el desglose de horas extras
Dim dr As DataRow = DtHorasExtras.FiltroPrimero("") 'Dim dr As DataRow = DtHorasExtras.FiltroPrimero("")
If dr IsNot Nothing Then 'If dr IsNot Nothing Then
If dr("HorasDobles").ToString().ToDouble > 0 And Row("CveSistema").ToString().ToEntero() = 12 Then ObjHorasExtras.Add(New CFDINominaHorasExtras With {.Dias = dr("DiasHorasDobles").ToString().ToEntero().ToString(), .TipoHoras = "01", .HorasExtra = dr("HorasDobles").ToString().ToEntero(), .ImportePagado = Row("Importe").ToString().ToDecimal}) ' If dr("HorasDobles").ToString().ToDouble > 0 And Row("CveSistema").ToString().ToEntero() = 12 Then
If dr("HorasTriples").ToString().ToDouble > 0 And Row("CveSistema").ToString().ToEntero() = 13 Then ObjHorasExtras.Add(New CFDINominaHorasExtras With {.Dias = dr("DiasHorasTriples").ToString().ToEntero().ToString(), .TipoHoras = "02", .HorasExtra = dr("HorasTriples").ToString().ToEntero(), .ImportePagado = Row("Importe").ToString().ToDecimal}) ' ObjHorasExtras.Add(New CFDINominaHorasExtras With {.Dias = dr("DiasHorasDobles").ToString().ToEntero().ToString(),
' .TipoHoras = "01", .HorasExtra = dr("HorasDobles").ToString().ToEntero(), .ImportePagado = Row("Importe").ToString().ToDecimal()})
' End If
' If dr("HorasTriples").ToString().ToDouble > 0 And Row("CveSistema").ToString().ToEntero() = 13 Then
' ObjHorasExtras.Add(New CFDINominaHorasExtras With {.Dias = dr("DiasHorasTriples").ToString().ToEntero().ToString(),
' .TipoHoras = "02", .HorasExtra = dr("HorasTriples").ToString().ToEntero(), .ImportePagado = Row("Importe").ToString().ToDecimal})
' End If
'End If
Dim horasextra As Integer = If(Row("ImporteValor").ToString().Replace("-", "").ToEntero() > 0, Row("ImporteValor").ToString().Replace("-", "").ToEntero(), 1)
Dim diasextra As Integer = (horasextra / 3).ToString().ToEntero()
If Row("CveSistema").ToString().ToEntero() = 12 Then
ObjHorasExtras.Add(New CFDINominaHorasExtras With {.Dias = diasextra.ToString(),
.TipoHoras = "01", .HorasExtra = horasextra, .ImportePagado = Row("Importe").ToString().ToDecimal()})
End If End If
If Row("CveSistema").ToString().ToEntero() = 13 Then
ObjHorasExtras.Add(New CFDINominaHorasExtras With {.Dias = diasextra.ToString(),
.TipoHoras = "02", .HorasExtra = horasextra, .ImportePagado = Row("Importe").ToString().ToDecimal})
End If
End If End If
'subsidio al empleo 'subsidio al empleo
If Row("SATCveConcepto").ToString().ToEntero().ToEntero() = 17 AndAlso Row("Importe").ToString().ToDecimal > 0 Then 'Subsidio If Row("SATCveConcepto").ToString().ToEntero().ToEntero() = 17 AndAlso Row("Importe").ToString().ToDecimal > 0 Then 'Subsidio

4
Ashx/E140.ashx
View File

@@ -36,8 +36,8 @@ Public Class E140 : Implements IHttpHandler, IRequiresSessionState
If ObjEmpresa.GetEmpresas(CveEmpresa, "-1", "-1", "-1", "-1") Then If ObjEmpresa.GetEmpresas(CveEmpresa, "-1", "-1", "-1", "-1") Then
End If End If
If ObjEmpresa.Empresa.RutaArchivos.Trim.Length > 0 Then If ObjEmpresa.Empresa.Ruta.Trim.Length > 0 Then
RutaEmpresa = ObjEmpresa.Empresa.RutaArchivos.Trim RutaEmpresa = ObjEmpresa.Empresa.Ruta.Trim
End If End If
ObjEmpresa.Dispose() ObjEmpresa.Dispose()

2
Ashx/TareasProgramadas.ashx
View File

@@ -1192,7 +1192,7 @@ Public Class TareasProgramadas : Implements IHttpHandler
If UsuarioActual IsNot Nothing Then If UsuarioActual IsNot Nothing Then
CveUsuario = UsuarioActual.CveUsuario CveUsuario = UsuarioActual.CveUsuario
CveEmpresa = UsuarioActual.CveEmpresa CveEmpresa = UsuarioActual.CveEmpresa
RutaEmpresa = UsuarioActual.Empresa.RutaArchivos RutaEmpresa = UsuarioActual.Empresa.Ruta
End If End If
Dim bdir As String = If(RutaReporte.Contains("Empresas"), ModExtensiones.DirectorioBaseEmpresas, AppDomain.CurrentDomain.BaseDirectory) Dim bdir As String = If(RutaReporte.Contains("Empresas"), ModExtensiones.DirectorioBaseEmpresas, AppDomain.CurrentDomain.BaseDirectory)

5
Bancos/IE.aspx.vb
View File

@@ -6223,10 +6223,7 @@ Partial Class Bancos_IE
'MOVIMIENTOS CHEQUE 'MOVIMIENTOS CHEQUE
If objIE.GetBancosIEMovimientos(CveIE, UsuarioActual.CveEmpresa) Then If objIE.GetBancosIEMovimientos(CveIE, UsuarioActual.CveEmpresa) Then
Dim Textov33 As String = "" Dim Textov33 As String = "Favor de emitir complemento de pago de los siguientes documentos"
If UsuarioActual.Empresa.Funcionalidad(520) = "1" Then
Textov33 = "Favor de emitir complemento de pago de los siguientes documentos"
End If
strBody.AppendFormat("<div style='width: 1000px'>") strBody.AppendFormat("<div style='width: 1000px'>")
strBody.AppendFormat(" <table style='width:1000px'>") strBody.AppendFormat(" <table style='width:1000px'>")

5
Compras/Proveedores.aspx.vb
View File

@@ -5898,10 +5898,7 @@ Partial Class Compras_Proveedores
'MOVIMIENTOS CHEQUE 'MOVIMIENTOS CHEQUE
If objIE.GetBancosIEMovimientos(CveIE, UsuarioActual.CveEmpresa) Then If objIE.GetBancosIEMovimientos(CveIE, UsuarioActual.CveEmpresa) Then
Dim Textov33 As String = "" Dim Textov33 As String = "Favor de emitir complemento de pago de los siguientes documentos"
If UsuarioActual.Empresa.Funcionalidad(520) = "1" Then
Textov33 = "Favor de emitir complemento de pago de los siguientes documentos"
End If
strBody.AppendFormat("<div style='width: 1000px'>") strBody.AppendFormat("<div style='width: 1000px'>")
strBody.AppendFormat(" <table style='width:1000px'>") strBody.AppendFormat(" <table style='width:1000px'>")

7
Inventarios/EntradasSalidas.aspx.vb
View File

@@ -1950,8 +1950,13 @@ Partial Class Inventarios_EntradasSalidas
End If End If
If Not ErrorMovInv Then If Not ErrorMovInv Then
Dim OpcionPrePoliza As Integer = -1
'SI ES CONSUMO INTERNO
If DdlConcepto.SelectedValue = "30" Then
OpcionPrePoliza = 11
End If
If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, -1) Then If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, OpcionPrePoliza) Then
If ObjConta.ValorPolizaDescuadre > 0 Then If ObjConta.ValorPolizaDescuadre > 0 Then
ErrorMovInv = True ErrorMovInv = True
GuardaLogAD($"Inv/ES | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas") GuardaLogAD($"Inv/ES | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")

18
Inventarios/TraspasoAlmacen.aspx.vb
View File

@@ -2621,14 +2621,6 @@ Partial Class Inventarios_TraspasoAlmacen
strBody.AppendFormat(" <td>Observaciones:</td>") strBody.AppendFormat(" <td>Observaciones:</td>")
strBody.AppendFormat(" <td style='text-align: left'>{0}</td>", ObjInventario.Observaciones) strBody.AppendFormat(" <td style='text-align: left'>{0}</td>", ObjInventario.Observaciones)
strBody.AppendFormat(" </tr>") strBody.AppendFormat(" </tr>")
'strBody.AppendFormat(" <tr class='Texto'>")
'strBody.AppendFormat(" <td>Importe:</td>")
'strBody.AppendFormat(" <td style='text-align: left'>$ {0} {1}</td>", objIE.Importe.FormatoNumero, objIE.Moneda)
'strBody.AppendFormat(" </tr>")
'strBody.AppendFormat(" <tr class='Texto'>")
'strBody.AppendFormat(" <td>Observaciones:</td>")
'strBody.AppendFormat(" <td style='text-align: left'>{0}</td>", objIE.Observaciones)
'strBody.AppendFormat(" </tr>")
strBody.AppendFormat(" <tr class='Texto'>") strBody.AppendFormat(" <tr class='Texto'>")
strBody.AppendFormat(" <td colspan='2'>") strBody.AppendFormat(" <td colspan='2'>")
strBody.AppendFormat(" <hr />") strBody.AppendFormat(" <hr />")
@@ -2641,12 +2633,6 @@ Partial Class Inventarios_TraspasoAlmacen
strBody.AppendFormat(" </table>") strBody.AppendFormat(" </table>")
strBody.AppendFormat("</div>") strBody.AppendFormat("</div>")
'MOVIMIENTOS CHEQUE
'Dim Textov33 As String = ""
'If UsuarioActual.Empresa.Funcionalidad(520) = "1" Then
' Textov33 = "Favor de emitir complemento de pago de los siguientes documentos"
'End If
If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
strBody.AppendFormat("<div style='width: 1000px'>") strBody.AppendFormat("<div style='width: 1000px'>")
strBody.AppendFormat(" <table style='width:1000px'>") strBody.AppendFormat(" <table style='width:1000px'>")
@@ -2659,8 +2645,6 @@ Partial Class Inventarios_TraspasoAlmacen
strBody.AppendFormat(" <th scope='col' style='width: 10%'>Cantidad</th>") strBody.AppendFormat(" <th scope='col' style='width: 10%'>Cantidad</th>")
strBody.AppendFormat(" <th scope='col' style='width: 20%'>Unidad</th>") strBody.AppendFormat(" <th scope='col' style='width: 20%'>Unidad</th>")
strBody.AppendFormat(" <th scope='col' style='width: 70%'>Producto / Servicio</th>") strBody.AppendFormat(" <th scope='col' style='width: 70%'>Producto / Servicio</th>")
'strBody.AppendFormat(" <th scope='col' style='width: 40%'>Folio Fiscal</th>")
'strBody.AppendFormat(" <th scope='col' style='width: 15%'>NC Aplicadas</th>")
strBody.AppendFormat(" </tr>") strBody.AppendFormat(" </tr>")
@@ -2669,8 +2653,6 @@ Partial Class Inventarios_TraspasoAlmacen
strBody.AppendFormat(" <td>{0}</td>", dr("Cantidad").ToString.FormatoNumero) strBody.AppendFormat(" <td>{0}</td>", dr("Cantidad").ToString.FormatoNumero)
strBody.AppendFormat(" <td>{0}</td>", dr("UnidadMedida").ToString) strBody.AppendFormat(" <td>{0}</td>", dr("UnidadMedida").ToString)
strBody.AppendFormat(" <td>{0}</td>", dr("CodigoPS").ToString) strBody.AppendFormat(" <td>{0}</td>", dr("CodigoPS").ToString)
'strBody.AppendFormat(" <td>{0}</td>", dr("FolioFiscal"))
'strBody.AppendFormat(" <td>{0}</td>", dr("ImporteNC").ToString.FormatoNumero)
strBody.AppendFormat(" </tr>") strBody.AppendFormat(" </tr>")
Next Next

3
Nomina/Nomina.aspx
View File

@@ -775,6 +775,9 @@
<asp:TextBox CssClass="form-control" ID="TxtObservaciones" runat="server" MaxLength="150"></asp:TextBox> <asp:TextBox CssClass="form-control" ID="TxtObservaciones" runat="server" MaxLength="150"></asp:TextBox>
<asp:Label runat="server" AssociatedControlID="TxtObservaciones" Text="Observaciones"></asp:Label> <asp:Label runat="server" AssociatedControlID="TxtObservaciones" Text="Observaciones"></asp:Label>
</div> </div>
<div class=" text-right">
<asp:CheckBox ID="chkAistenciaRecalcular" Text="¿Volver a calcular la nómina?" runat="server" />
</div>
</div> </div>

5
Nomina/Nomina.aspx.cs
View File

@@ -7082,6 +7082,11 @@ public partial class Nomina_Nomina2 : ClsPaginas
} }
} }
if (chkAistenciaRecalcular.Checked)
{
cargaDatos(true);
}
} }
protected void btnasis_Click(object sender, EventArgs e) protected void btnasis_Click(object sender, EventArgs e)

2
Ventas/Ventas.aspx
View File

@@ -1065,7 +1065,7 @@
</ContentTemplate> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
</th> </th>
<th> <th style="width:120px;">
<div class="row" id="DivPrecioLista" runat="server" visible="false"> <div class="row" id="DivPrecioLista" runat="server" visible="false">
<div class="col-md-12"> <div class="col-md-12">
<asp:DropDownList ID="DdlPrecioLista" runat="server" Width="100%" CssClass="select2me" DataValueField="CvePrecioLista" DataTextField="PrecioLista" OnSelectedIndexChanged="DdlPrecioLista_SelectedIndexChanged" AutoPostBack="true"></asp:DropDownList> <asp:DropDownList ID="DdlPrecioLista" runat="server" Width="100%" CssClass="select2me" DataValueField="CvePrecioLista" DataTextField="PrecioLista" OnSelectedIndexChanged="DdlPrecioLista_SelectedIndexChanged" AutoPostBack="true"></asp:DropDownList>

2
Ventas/Ventas.aspx.vb
View File

@@ -7070,7 +7070,7 @@ Partial Class Ventas
Dim ValorAutorizacion As String = UsuarioActual.Empresa.Funcionalidad(595) Dim ValorAutorizacion As String = UsuarioActual.Empresa.Funcionalidad(595)
'OBLIGAR PAGO DE CONTADO SI EL CLIENTE NO PERMITE CREDITO 'OBLIGAR PAGO DE CONTADO SI EL CLIENTE NO PERMITE CREDITO
If Me.PermiteCredito = False AndAlso ((DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem") AndAlso CveVenta < 1) OrElse (DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem", "Cot", "PA") AndAlso EsCreaApartirDe) OrElse (DdlTipoComprobante.SelectedValue.Contiene("Cot") AndAlso CveVenta > 0)) Then If (Not UsuarioActual.Empresa.Funcionalidad(702).Contiene("1", "2")) AndAlso Me.PermiteCredito = False AndAlso ((DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem") AndAlso CveVenta < 1) OrElse (DdlTipoComprobante.SelectedValue.Contiene("Ing", "Ant", "Rem", "Cot", "PA") AndAlso EsCreaApartirDe) OrElse (DdlTipoComprobante.SelectedValue.Contiene("Cot") AndAlso CveVenta > 0)) Then
RBLPago.SelectedValue = "2" RBLPago.SelectedValue = "2"
RBLPago.Items(0).Enabled = False RBLPago.Items(0).Enabled = False
RBLPago_SelectedIndexChanged(Nothing, Nothing) RBLPago_SelectedIndexChanged(Nothing, Nothing)