diff --git a/App_Code/ClsBancos.vb b/App_Code/ClsBancos.vb index bada31574..7ac9a2082 100644 --- a/App_Code/ClsBancos.vb +++ b/App_Code/ClsBancos.vb @@ -4375,4 +4375,24 @@ Public Class ClsBancos End Try Return Retorno End Function + + Public Function GetBancosSAT() As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Nom_Sat_BancosGet") + + 'With SqlAdapter.SelectCommand.Parameters + ' .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + 'End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener los bancos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno + End Function + + + End Class diff --git a/App_Code/ClsClasificaciones.vb b/App_Code/ClsClasificaciones.vb index 212594b67..78f93277e 100644 --- a/App_Code/ClsClasificaciones.vb +++ b/App_Code/ClsClasificaciones.vb @@ -174,6 +174,26 @@ Public Class ClsClasificaciones OnError("Ocurrió un error al modificar la clasificación.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) End Try + Return Retorno + End Function + + Public Function RemoveClasificacionesComprobaciones(CveClasificacion As Integer, CveEmpresa As Integer, TipoComprobacion As Integer) As Boolean + Dim Retorno As Boolean = False + + DataAdapter("PA_ClasificacionesComprobacionesRemove") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@TipoComprobacion", SqlDbType.Int).Value = TipoComprobacion + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As SqlException + OnError("Ocurrió un error al eliminar la clasificación.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + Return Retorno End Function diff --git a/App_Code/ClsGenerales.vb b/App_Code/ClsGenerales.vb index b47b3d317..1f0916cde 100644 --- a/App_Code/ClsGenerales.vb +++ b/App_Code/ClsGenerales.vb @@ -1388,7 +1388,7 @@ Public Class ClsGenerales End Function Public Function AddCuentasDepositos(BancoNombre As String, Plaza As String, Sucursal As String, Cuenta As String, CLABE As String, CIE As String, SWIFT As String, Referencia As String, RefCrediProveedor As String, CveUsuario As Integer, CveMoneda As Integer, Optional CveProveedor As Integer = -1, Optional CveCliente As Integer = -1, Optional CvePersonal As Integer = -1, Optional CveColectiva As Integer = -1, Optional CveUsuarioModifico As Integer = -1, - Optional Correo As String = "", Optional BBVAAlias As String = "-1") As Boolean + Optional Correo As String = "", Optional BBVAAlias As String = "-1", Optional EstatusPagoElectronico As Boolean = False, Optional EstatusPagoElectronicoGrupos As Boolean = False, Optional CveSATBanco As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Gral_CuentasDepositosAdd") @@ -1412,6 +1412,9 @@ Public Class ClsGenerales .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico .Add("@Correo", SqlDbType.VarChar).Value = Correo .Add("@BBVAAlias", SqlDbType.VarChar).Value = BBVAAlias + .Add("@EstatusPagoElectronico", SqlDbType.Bit).Value = EstatusPagoElectronico + .Add("@EstatusPagoElectronicoGrupos", SqlDbType.Bit).Value = EstatusPagoElectronicoGrupos + .Add("@CveSATBanco", SqlDbType.Int).Value = CveSATBanco End With @@ -1454,7 +1457,9 @@ Public Class ClsGenerales Return Retorno End Function - Public Function UpdateCuentasDepositos(CveCuentaDeposito As Integer, BancoNombre As String, Plaza As String, Sucursal As String, Cuenta As String, CLABE As String, CIE As String, SWIFT As String, Referencia As String, RefCrediProveedor As String, Predeterminada As Boolean, Estatus As Boolean, CveMoneda As Integer, Optional CveUsuarioModifico As Integer = -1, Optional Correo As String = "", Optional BBVAAlias As String = "-1") As Boolean + Public Function UpdateCuentasDepositos(CveCuentaDeposito As Integer, BancoNombre As String, Plaza As String, Sucursal As String, Cuenta As String, CLABE As String, CIE As String, SWIFT As String, Referencia As String, + RefCrediProveedor As String, Predeterminada As Boolean, Estatus As Boolean, CveMoneda As Integer, Optional CveUsuarioModifico As Integer = -1, Optional Correo As String = "", + Optional BBVAAlias As String = "-1", Optional EstatusPagoElectronico As Boolean = False, Optional EstatusPagoElectronicoGrupos As Boolean = False, Optional CveSATBanco As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Gral_CuentasDepositosUpdate") @@ -1477,6 +1482,9 @@ Public Class ClsGenerales .Add("@CveUsuarioModifico", SqlDbType.Int).Value = CveUsuarioModifico .Add("@Correo", SqlDbType.VarChar).Value = Correo .Add("@BBVAAlias", SqlDbType.VarChar).Value = BBVAAlias + .Add("@EstatusPagoElectronico", SqlDbType.Bit).Value = EstatusPagoElectronico + .Add("@EstatusPagoElectronicoGrupos", SqlDbType.Bit).Value = EstatusPagoElectronicoGrupos + .Add("@CveSATBanco", SqlDbType.Int).Value = CveSATBanco End With diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb index 6ca16c29c..4fa513d66 100644 --- a/Bancos/ProveedoresAbonar.aspx.vb +++ b/Bancos/ProveedoresAbonar.aspx.vb @@ -2518,22 +2518,22 @@ Partial Class Bancos_ProveedoresAbonar Alert("El Beneficiario no tiene una cuenta activa en BBVA, dela de alta o seleccione otro método de pago", TipoMensaje.MsgAdvertencia) End If - ElseIf DdlTipoTransaccion.SelectedValue = "17" Then + 'ElseIf DdlTipoTransaccion.SelectedValue = "17" Then - If Dep.DtResultados.Rows.Count > 0 Then - DdlCuentaDeposito.DataSource = Dep.DtResultados - trCuentaDeposito.Visible = True - BtnIEGuardar.ToolTip = "" - Else + ' If Dep.DtResultados.Rows.Count > 0 Then + ' DdlCuentaDeposito.DataSource = Dep.DtResultados + ' trCuentaDeposito.Visible = True + ' BtnIEGuardar.ToolTip = "" + ' Else - BtnIEGuardar.Enabled = False - BtnIEGuardar.ToolTip = "El proveedor no tiene cuentas deposito" + ' BtnIEGuardar.Enabled = False + ' BtnIEGuardar.ToolTip = "El proveedor no tiene cuentas deposito" - End If + ' End If - UpGuardar.Update() + ' UpGuardar.Update() Else DdlCuentaDeposito.DataSource = Dep.DtResultados.FiltraParametros("Estatus ='True'") If Dep.DtResultados.Rows.Count > 0 Then @@ -2550,19 +2550,19 @@ Partial Class Bancos_ProveedoresAbonar End If - Else + 'Else - If DdlTipoTransaccion.SelectedValue = "17" Then + ' If DdlTipoTransaccion.SelectedValue = "17" Then - BtnIEGuardar.Enabled = False - BtnIEGuardar.ToolTip = "El proveedor no tiene cuentas deposito" - Else - BtnIEGuardar.Enabled = True - BtnIEGuardar.ToolTip = "" - End If + ' BtnIEGuardar.Enabled = False + ' BtnIEGuardar.ToolTip = "El proveedor no tiene cuentas deposito" + ' Else + ' BtnIEGuardar.Enabled = True + ' BtnIEGuardar.ToolTip = "" + ' End If - UpGuardar.Update() + ' UpGuardar.Update() End If diff --git a/Compras/Proveedores.aspx b/Compras/Proveedores.aspx index 0c179b104..3ee0444fd 100644 --- a/Compras/Proveedores.aspx +++ b/Compras/Proveedores.aspx @@ -1944,141 +1944,86 @@
- - <%-- - - - - --%> + - - <%-- - - --%> + - - <%-- - - - --%> + - - <%-- - - AndAlso Eval("Referencia") IsNot "" - - --%> + - - <%-- - - --%> + - - <%-- - - --%> + - - <%-- - - - --%> + - - <%-- - - - --%> + - <%-- - - --%> + - - <%-- - - - - --%> - - <%-- - - - '> - - --%> + + - - + - - <%-- - - --%> + + + + + + + + + + + + + + - <%-- - - - - <%-- - - - - - - - - - - - --%> + @@ -3643,17 +3588,57 @@
-
- - - - -
-
- - +
+
+
+ + + + +
+
+
+
+ + +
+ +
+
+
+
+ + +
+
+
+ +
+ + + + +
+ +
+
+ + +
+ + + Seleccione uno + + + + + +
+ + +
diff --git a/Compras/Proveedores.aspx.vb b/Compras/Proveedores.aspx.vb index 6e1e76ea6..6d29fb43a 100644 --- a/Compras/Proveedores.aspx.vb +++ b/Compras/Proveedores.aspx.vb @@ -776,9 +776,30 @@ Partial Class Compras_Proveedores End Function Private Sub CargaCombos() + CargaResponsable() CargaClasificacionProveedor() CargaUsuarioEvaluacionProveedor() + CargaBancosSAT() + + End Sub + + + Private Sub CargaBancosSAT() + + Dim ObjBancos As New ClsBancos + + If ObjBancos.GetBancosSAT Then + DdlSatBanco.DataSource = ObjBancos.DtResultados + End If + + ObjBancos.Dispose() + + DdlSatBanco.DataBind() + DdlSatBanco.Items.Insert(0, New ListItem("Seleccione uno", "-1")) + + + End Sub Private Function CargaDatos() As Boolean @@ -1640,7 +1661,9 @@ Partial Class Compras_Proveedores ''Agregar Cuentas Bancarias If TempDTCuentasBancos.Rows.Count > 0 Then For Each row As DataRow In TempDTCuentasBancos.Rows - If Not ObjCuentasDeposito.AddCuentasDepositos(row("BancoNombre").ToString, row("Plaza").ToString, row("Sucursal").ToString, row("Cuenta").ToString, row("CLABE").ToString, row("CIE").ToString, row("SWIFT").ToString, row("Referencia").ToString, row("RefCrediProveedor").ToString, UsuarioActual.CveUsuario, row("CveMoneda").ToString.ToEntero, CveProveedor:=NuevoCveProveedor, Correo:=row("Correo").ToString, BBVAAlias:=row("BBVAAlias").ToString) Then + If Not ObjCuentasDeposito.AddCuentasDepositos(row("BancoNombre").ToString, row("Plaza").ToString, row("Sucursal").ToString, row("Cuenta").ToString, row("CLABE").ToString, row("CIE").ToString, row("SWIFT").ToString, row("Referencia").ToString, row("RefCrediProveedor").ToString, UsuarioActual.CveUsuario, row("CveMoneda").ToString.ToEntero, + CveProveedor:=NuevoCveProveedor, Correo:=row("Correo").ToString, BBVAAlias:=row("BBVAAlias").ToString, + EstatusPagoElectronico:=Boolean.Parse(row("EstatusPagoElectronico").ToString), EstatusPagoElectronicoGrupos:=Boolean.Parse(row("EstatusPagoElectronicoGrupos").ToString), CveSATBanco:=row("CveSATBanco").ToString.ToEntero) Then ErrorBancos = True End If Next @@ -3036,6 +3059,7 @@ Partial Class Compras_Proveedores CargaPSGridCuentasBancos(ViewState("OrdenCuentasBancos").ToString) RecargaGlobalCuentasBancarias() + End Sub Protected Sub LbAgregarCuentaBanco_Click(sender As Object, e As EventArgs) @@ -3045,19 +3069,6 @@ Partial Class Compras_Proveedores EsBancomer = True End If - ''COMENTADO PARA PERMITIR ENTRADA DE UNA CUENTA A PROVEEDOR, 22 DE SEPTIEMBRE, ISRAEL PIÑA - 'If EsBancomer AndAlso (TxtCLABE.Text.Length = 18 AndAlso Not TxtCLABE.Text.Substring(0, 3) = "012") Then - ' Alert("La CLABE ingresada no pertenece a BANCOMER.", TipoMensaje.MsgAdvertencia) - ' Exit Sub - 'End If - - ''CLABE SIEMPRE OBLIGATORIA CUANDO NO ES BANCOMER CON CIE - 'If (TxtCLABE.Text.Trim.Length <> 18 And Not EsBancomer) Or (EsBancomer And TxtConvenioCIE.Text.Trim.Length <> 6 And TxtCLABE.Text.Trim.Length <> 18) Then - ' Alert("La CLABE es obligatoria y debe tener una longitud de 18 dígitos. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia) - ' Exit Sub - 'End If - - 'RESTRICCIONES GENERALES 'QUE TENGA ALGUN DATO DE TIPO DE CUENTA @@ -3111,15 +3122,19 @@ Partial Class Compras_Proveedores Dim Estatus As Boolean If ChkEstatus.Checked = True Then Estatus = True Else Estatus = False - AgregarCuentaBanco(TxtNombreBanco.Text.Trim, TxtNumeroSucursal.Text.Trim, TxtCLABE.Text.Trim, TxtSWIFT.Text.Trim, TxtPlaza.Text.Trim, TxtNumeroCuenta.Text.Trim, TxtConvenioCIE.Text.Trim, TxtReferencia.Text.Trim, TxtRefCrediProveedor.Text.Trim, DdlMoneda.SelectedValue.ToEntero, DdlMoneda.SelectedItem.Text, Estatus, TxtCorreoCuenta.Text.Trim, TxtBBVAAlias.Text) + AgregarCuentaBanco(TxtNombreBanco.Text.Trim, TxtNumeroSucursal.Text.Trim, TxtCLABE.Text.Trim, TxtSWIFT.Text.Trim, TxtPlaza.Text.Trim, TxtNumeroCuenta.Text.Trim, TxtConvenioCIE.Text.Trim, TxtReferencia.Text.Trim, TxtRefCrediProveedor.Text.Trim, + DdlMoneda.SelectedValue.ToEntero, DdlMoneda.SelectedItem.Text, Estatus, TxtCorreoCuenta.Text.Trim, TxtBBVAAlias.Text, ChkPagoElectronico.Checked, ChkPagoElectronicoGrupos.Checked, DdlSatBanco.SelectedValue.ToEntero) End Sub - Private Sub AgregarCuentaBanco(NombreBanco As String, NumeroSucursal As String, CLABE As String, SWIFT As String, Plaza As String, NumeroCuenta As String, ConvenioCIE As String, Referencia As String, RefCrediProveedor As String, CveMoneda As Integer, Moneda As String, Estatus As Boolean, Correo As String, BBVAAlias As String) + + Private Sub AgregarCuentaBanco(NombreBanco As String, NumeroSucursal As String, CLABE As String, SWIFT As String, Plaza As String, NumeroCuenta As String, ConvenioCIE As String, Referencia As String, RefCrediProveedor As String, + CveMoneda As Integer, Moneda As String, Estatus As Boolean, Correo As String, BBVAAlias As String, EstatusPagoElectronico As Boolean, EstatusPagoElectronicoGrupos As Boolean, CveSATBanco As Integer) Dim ObjCuentasBancos As New ClsGenerales If Modalidad = "A" Then If CveProveedor > 0 Then - If ObjCuentasBancos.AddCuentasDepositos(NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, RefCrediProveedor, UsuarioActual.CveUsuario, CveMoneda, CveProveedor:=CveProveedor, Correo:=Correo, BBVAAlias:=BBVAAlias) Then + If ObjCuentasBancos.AddCuentasDepositos(NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, RefCrediProveedor, UsuarioActual.CveUsuario, CveMoneda, CveProveedor:=CveProveedor, + Correo:=Correo, BBVAAlias:=BBVAAlias, EstatusPagoElectronico:=EstatusPagoElectronico, EstatusPagoElectronicoGrupos:=EstatusPagoElectronicoGrupos, CveSATBanco:=CveSATBanco) Then DTCuentasBancos.Clear() DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados.FiltraParametros(String.Format("CveProveedor = {0}", CveProveedor))) Alert("Cuenta Bancaria agregada con éxito.", TipoMensaje.MsgInformacion) @@ -3143,10 +3158,14 @@ Partial Class Compras_Proveedores Row("RefCrediProveedor") = RefCrediProveedor Row("CveMoneda") = CveMoneda Row("Moneda") = Moneda - Row("EstatusPagoElectronico") = 0 + Row("EstatusPagoElectronico") = EstatusPagoElectronico + Row("EstatusPagoElectronicoGrupos") = EstatusPagoElectronicoGrupos Row("Estatus") = "True" Row("Correo") = Correo + Row("CveSATBanco") = CveSATBanco + TempDTCuentasBancos.Rows.Add(Row) + Alert("Cuenta Bancaria agregada con éxito.", TipoMensaje.MsgInformacion) RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAddCuentasBancarias")) @@ -3157,7 +3176,8 @@ Partial Class Compras_Proveedores If CveProveedor > 0 Then - If ObjCuentasBancos.UpdateCuentasDepositos(GvBancosCuentas.DataKeys(CveCuentaBancaria)("CveCuentaDeposito").ToString.ToEntero, NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, RefCrediProveedor, False, Estatus, CveMoneda, Correo:=Correo, BBVAAlias:=BBVAAlias) Then + If ObjCuentasBancos.UpdateCuentasDepositos(GvBancosCuentas.DataKeys(CveCuentaBancaria)("CveCuentaDeposito").ToString.ToEntero, NombreBanco, Plaza, NumeroSucursal, NumeroCuenta, CLABE, ConvenioCIE, SWIFT, Referencia, RefCrediProveedor, + False, Estatus, CveMoneda, Correo:=Correo, BBVAAlias:=BBVAAlias, EstatusPagoElectronico:=EstatusPagoElectronico, EstatusPagoElectronicoGrupos:=EstatusPagoElectronicoGrupos, CveSATBanco:=CveSATBanco) Then DTCuentasBancos.Clear() DTCuentasBancos.Merge(ObjCuentasBancos.DtResultados.FiltraParametros(String.Format("CveProveedor = {0}", CveProveedor))) Alert("Cuenta actualizada con éxito.", TipoMensaje.MsgInformacion) @@ -3181,8 +3201,12 @@ Partial Class Compras_Proveedores Row("RefCrediProveedor") = RefCrediProveedor Row("CveMoneda") = CveMoneda Row("Moneda") = Moneda + Row("EstatusPagoElectronico") = EstatusPagoElectronico + Row("EstatusPagoElectronicoGrupos") = EstatusPagoElectronicoGrupos Row("Estatus") = Estatus Row("Correo") = Correo + Row("CveSATBanco") = CveSATBanco + TempDTCuentasBancos.AcceptChanges() Alert("Cuenta actualizada con éxito.", TipoMensaje.MsgInformacion) RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAddCuentasBancarias")) @@ -4673,6 +4697,13 @@ Partial Class Compras_Proveedores TxtBBVAAlias.Text = "" ChkEstatus.Checked = True divestatus.Visible = False + + ChkPagoElectronico.Checked = False + ChkPagoElectronicoGrupos.Checked = False + DdlSatBanco.SelectedValueExist("-1") + + DVDdlSatBanco.Visible = False + UpAddBancos.Update() RegistraScript(String.Format("$('#{0}').modal('show');", "DivAddCuentasBancarias")) End Sub @@ -4697,6 +4728,15 @@ Partial Class Compras_Proveedores ChkEstatus.Checked = CBool(GvRow.DataKey("Estatus")) divestatus.Visible = True UpAddBancos.Update() + + ChkPagoElectronico.Checked = Boolean.Parse(GvRow.DataKey("EstatusPagoElectronico").ToString) + ChkPagoElectronicoGrupos.Checked = Boolean.Parse(GvRow.DataKey("EstatusPagoElectronicoGrupos").ToString) + DdlSatBanco.SelectedValueExist(GvRow.DataKey("CveSATBanco")) + + If ChkPagoElectronicoGrupos.Checked Then + DVDdlSatBanco.Visible = True + End If + RegistraScript(String.Format("$('#{0}').modal('show');", "DivAddCuentasBancarias")) End Sub @@ -6153,6 +6193,24 @@ Partial Class Compras_Proveedores #End Region + Protected Sub ChkPagoElectronicoGrupos_CheckedChanged(sender As Object, e As EventArgs) + + If ChkPagoElectronicoGrupos.Checked Then + DVDdlSatBanco.Visible = True + Else + DVDdlSatBanco.Visible = False + End If + + UpAddBancos.Update() + End Sub + + Protected Sub ChkPagoElectronico_CheckedChanged(sender As Object, e As EventArgs) + + If ChkPagoElectronico.Checked Then + Alert("Se está activando manualmente el pago por Layout BBVA. Recuerde que la alta se realiza directo en la platoforma", TipoMensaje.MsgAdvertencia) + End If + + End Sub End Class diff --git a/General/CatClasificacionesComprobaciones.aspx b/General/CatClasificacionesComprobaciones.aspx index d533828ff..51196fe86 100644 --- a/General/CatClasificacionesComprobaciones.aspx +++ b/General/CatClasificacionesComprobaciones.aspx @@ -11,6 +11,14 @@ Catálogo de Clasificaciones Viáticos y Comprobaciones + + + + + + + @@ -32,7 +40,7 @@ Todos Sin Asignar Viáticos - Comprobacines + Comprobaciones
@@ -65,14 +73,15 @@ - + - <%-- + - + - --%> + @@ -103,18 +112,20 @@
- - - + + + + +
- +
Sin Asignar Viáticos - Comprobacines + Comprobaciones
diff --git a/General/CatClasificacionesComprobaciones.aspx.vb b/General/CatClasificacionesComprobaciones.aspx.vb index 174826c35..8234cf0de 100644 --- a/General/CatClasificacionesComprobaciones.aspx.vb +++ b/General/CatClasificacionesComprobaciones.aspx.vb @@ -23,13 +23,41 @@ Partial Class Gral_CatClasificacionesComprobaciones End Property + Property Actualizar As Boolean + Get + + If ViewState("Actualizar") Is Nothing Then + Return False + Else + Return Boolean.Parse(ViewState("Actualizar").ToString) + End If + + End Get + Set(value As Boolean) + ViewState("Actualizar") = value + End Set + + End Property + Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not Page.IsPostBack Then + CargaDropDownList() CargaGridClasificaciones() End If End Sub + + #Region " C L A S I F I C A C I O N E S" + Protected Sub CargaDropDownList() + + DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa, UsoClasificacion:=-1).FiltraParametros("", Orderby:="Clasificacion") 'GlobalDTProveedorClasificacion(UsuarioActual.CveEmpresa) + DdlClasificacion.DataBind() + DdlClasificacion.Items.Insert(0, New ListItem("Todos", "-1")) + + End Sub + + Protected Sub CargaGridClasificaciones() Dim ObjClasificaciones As New ClsClasificaciones() @@ -47,23 +75,27 @@ Partial Class Gral_CatClasificacionesComprobaciones Dim ObjClasificaciones As New ClsClasificaciones() - If ObjClasificaciones.AddClasificacionesComprobaciones(CveClasificacion, UsuarioActual.CveEmpresa, DdlTipoComprobacion.SelectedValue.ToEntero) Then + + If ObjClasificaciones.AddClasificacionesComprobaciones(DdlClasificacion.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlTipoComprobacion.SelectedValue.ToEntero) Then Alert("La clasificación se actualizo correctamente.") - CargaGridClasificaciones() + UpDatos.Update() RegistraScript(String.Format("$('#{0}').modal('hide');", "ModalClasificaciones")) End If - ObjClasificaciones.Dispose() + + ObjClasificaciones.Dispose() + CargaGridClasificaciones() End Sub Public Sub ActualizaModalClasif(sender As Object, e As EventArgs) Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) + Actualizar = True - TxtClasificaciones.Text = GvRow.DataKey("Clasificacion") + DdlClasificacion.SelectedValueExist(GvRow.DataKey("CveClasificacion")) CveClasificacion = GvRow.DataKey("CveClasificacion").ToString.ToEntero RegistraScript(String.Format("$('#{0}').modal();", "ModalClasificaciones")) @@ -79,4 +111,39 @@ Partial Class Gral_CatClasificacionesComprobaciones Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) CargaGridClasificaciones() End Sub + + Protected Sub LnkAgregarClasificacion_Click(sender As Object, e As EventArgs) + + Actualizar = False + + DdlClasificacion.SelectedValueExist("-1") + CveClasificacion = -1 + + RegistraScript(String.Format("$('#{0}').modal('show');", "ModalClasificaciones")) + + DdlTipoComprobacion.SelectedValueExist("-1") + + UpModalClasificaciones.Update() + + End Sub + + Protected Sub LnkEliminar_Click(sender As Object, e As EventArgs) + + + Dim ObjClasificaciones As New ClsClasificaciones() + + Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) + + Dim CveClasificacionEliminar As Integer = GvRow.DataKey("CveClasificacion").ToString.ToEntero + Dim TipoComprobacionEliminar As Integer = GvRow.DataKey("TipoComprobacion").ToString.ToEntero + + If ObjClasificaciones.RemoveClasificacionesComprobaciones(CveClasificacionEliminar, UsuarioActual.CveEmpresa, TipoComprobacionEliminar) Then + Alert("La clasificación se elimino correctamente.") + End If + + ObjClasificaciones.Dispose() + CargaGridClasificaciones() + UpDatos.Update() + + End Sub End Class \ No newline at end of file diff --git a/vwd.webinfo b/vwd.webinfo index 8dd65e0da..7b35128de 100644 --- a/vwd.webinfo +++ b/vwd.webinfo @@ -54,6 +54,14 @@ + + + + + + + +