From ddc746c1e2d8b9b32e16e2b34a1e8cf138b242e0 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Tue, 17 Sep 2019 09:44:43 -0500 Subject: [PATCH 1/2] Campos agregados de Cargo Usado y Bonificacion Usado --- App_Code/ClsClientes.vb | 5 ++++ OS/CatEstatusOrdenServicio.aspx | 7 +++--- Ventas/Clientes.aspx.vb | 41 ++++++++++++++++++++++++++++++++- 3 files changed, 49 insertions(+), 4 deletions(-) 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) From cf1d9eb0ec1734d7c073d257b3ea0c7547116369 Mon Sep 17 00:00:00 2001 From: Raul Pimienta Date: Tue, 17 Sep 2019 10:18:11 -0700 Subject: [PATCH 2/2] Sporte ventas correcion facturacion cotizacion coin productos adicionales En RegPrePoliza que permita actualizar la poliza para el usuario 100 --- Contabilidad/RegPrePoliza.aspx.vb | 16 +++++++++++++++- Ventas/Ventas.aspx.vb | 2 +- 2 files changed, 16 insertions(+), 2 deletions(-) diff --git a/Contabilidad/RegPrePoliza.aspx.vb b/Contabilidad/RegPrePoliza.aspx.vb index a8be470c3..0d3eefe4f 100644 --- a/Contabilidad/RegPrePoliza.aspx.vb +++ b/Contabilidad/RegPrePoliza.aspx.vb @@ -158,6 +158,14 @@ Partial Class ContabilidadC_RegPrePoliza ViewState("IndiceGrid") = value End Set End Property + Public Property IdPoliza As Integer + Get + Return CType(ViewState("IdPoliza"), Integer) + End Get + Set(value As Integer) + ViewState("IdPoliza") = value + End Set + End Property #End Region Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load @@ -174,6 +182,7 @@ Partial Class ContabilidadC_RegPrePoliza Observaciones = "-1" Beneficiario = "-1" Actualizar = False + IdPoliza = -1 Dim dt As DataTable = Nothing ' If UsuarioActual.Empresa.UsaContabilidad Then @@ -401,10 +410,15 @@ Partial Class ContabilidadC_RegPrePoliza LnkComplementoPago.Visible = True End If + IdPoliza = dr("IdPoliza").ToString.ToEntero If dr("IdPoliza").ToString.ToEntero > 0 Then HplContabilizada.NavigateUrl = String.Format("RegPoliza.aspx?IdPoliza={0}", dr("IdPoliza")) divContabilziada.Visible = True BtnEliminar.Visible = False + If UsuarioActual.CveUsuario = 100 Then + BtnContabilizar.Visible = True + BtnContabilizar.Text = "Actualizar Poliza" + End If ElseIf TxtTotalCargos.Text.ToDouble = TxtTotalAbonos.Text.ToDouble Then 'sino está contabilizada, se activa el botón BtnContabilizar.Visible = True @@ -1428,7 +1442,7 @@ Partial Class ContabilidadC_RegPrePoliza Dim ObjConta As New ClsContabilidad - If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then + If ObjConta.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa, pIDPoliza:=If(IdPoliza > 0, IdPoliza, -1)) Then Alert(String.Format("Prepóliza contabilizada.

Folio:Ver Póliza", ObjConta.ContaIdPoliza), ModExtensiones.TipoMensaje.MsgInformacion) Else diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 12c0b16df..718048713 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -21316,7 +21316,7 @@ Partial Class Ventas AgregarProductoServicio(tCantidad, Dr("CveUM").ToString.ToEntero, Dr("UM").ToString, Dr("CveClasificacion").ToString.ToEntero, Dr("Clasificacion").ToString, Dr("CvePS").ToString.ToEntero, Dr("PS").ToString, Dr("Obs").ToString, Dr("PU").ToString.ToDecimal, Dr("Descuento").ToString.ToDecimal, Dr("CveProyecto").ToString.ToEntero, Dr("Proyecto").ToString, Dr("CveSubProyecto").ToString.ToEntero, Dr("SubProyecto").ToString, - CveContratoDetalle:=Dr("CveContratoDetalle").ToString.ToEntero, CveVentaDetalleCotizacion:=Dr("CveVentaDetalle").ToString.ToEntero) + CveContratoDetalle:=Dr("CveContratoDetalle").ToString.ToEntero, CveVentaDetalleCotizacion:=Dr("CveVentaDetalle").ToString.ToEntero, SeActualiza:=True) Next CalculaTotalesVenta() Return True