diff --git a/App_Code/ClsClientes.vb b/App_Code/ClsClientes.vb index 6cb3a0a26..e02213eeb 100644 --- a/App_Code/ClsClientes.vb +++ b/App_Code/ClsClientes.vb @@ -162,6 +162,9 @@ Public Class ClsClientes Public Property Nombres As String Public Property RequiereOC As Boolean + Public Property CargoUsados As Boolean + Public Property BonificacionUsado As Boolean + Public ReadOnly Property DtResultados() As DataTable Get @@ -417,6 +420,8 @@ Public Class ClsClientes _ApellidoMaterno = Data(0)("ApellidoMaterno").ToString _Nombres = Data(0)("Nombres").ToString _RequiereOC = CBool(Data(0)("RequiereOC")) + _CargoUsados = CBool(Data(0)("CargoUsado")) + _BonificacionUsado = CBool(Data(0)("BonificacionUsado")) End If Retorno = True diff --git a/OS/CatEstatusOrdenServicio.aspx b/OS/CatEstatusOrdenServicio.aspx index 9f4f43fc9..86eb74cc2 100644 --- a/OS/CatEstatusOrdenServicio.aspx +++ b/OS/CatEstatusOrdenServicio.aspx @@ -330,9 +330,10 @@
- - - + + + +
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index f614d5e7f..e7ad27b0c 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -400,6 +400,44 @@ Partial Class Clientes ViewState("DtPagos") = value End Set End Property + 'Private Property EstatusAnteriorCliente As Boolean + ' Get + ' If ViewState("EstatusAnteriorCliente") Is Nothing Then + ' Return True + ' Else + ' Return Boolean.Parse(ViewState("EstatusAnteriorCliente").ToString) + ' End If + ' End Get + ' Set(value As Boolean) + ' ViewState("EstatusAnteriorCliente") = value + ' End Set + 'End Property + + Private Property CargoUsado As Boolean + Get + If ViewState("CargoUsado") Is Nothing Then + Return True + Else + Return Boolean.Parse(ViewState("CargoUsado").ToString) + End If + End Get + Set(value As Boolean) + ViewState("CargoUsado") = value + End Set + End Property + + Private Property BonificacionUsado As Boolean + Get + If ViewState("BonificacionUsado") Is Nothing Then + Return True + Else + Return Boolean.Parse(ViewState("BonificacionUsado").ToString) + End If + End Get + Set(value As Boolean) + ViewState("BonificacionUsado") = value + End Set + End Property #End Region #Region "Documentacion" @@ -1372,7 +1410,8 @@ Partial Class Clientes ChkDesglosarIEPS.Checked = ObjClientes.DesglosaIEPS DdlCorporativo.SelectedValueExist(ObjClientes.CveClienteCorporativo.ToString) - + ChkCargoUsado.Checked = ObjClientes.CargoUsados + ChkBonificacionUsado.Checked = ObjClientes.BonificacionUsado 'COMERCIO EXTERIOR ChkAplicaComercioExterior.Checked = ObjClientes.AplicaComercioExterior DdlTipoOperacion.SelectedValueExist(ObjClientes.CveTipoOperacion)