From c13582c3f2edad5ab343bec64825a550cceac564 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Thu, 10 Mar 2022 09:36:25 -0700 Subject: [PATCH 01/25] Motivo para autorizaciones --- App_Code/ClsVentas.vb | 3 +- Ventas/CatAutorizacionLimites.aspx | 9 ++++ Ventas/CatAutorizacionLimites.aspx.vb | 72 +++++++++++++++++---------- Ventas/Ventas.aspx | 8 +++ Ventas/Ventas.aspx.vb | 10 ++-- 5 files changed, 71 insertions(+), 31 deletions(-) diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index fa31af006..dba31cbce 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -5315,7 +5315,7 @@ Public Class ClsVentas #End Region - Public Function AddAutorizacionLimite(CveEmpresa As Integer, CveCliente As Integer, CveVendedor As Integer, Importe As Decimal, CveEstatus As Integer, CveUsuario As Integer, TipoAutorizacion As Integer, TipoDocumento As String, Optional DiasVencidos As Integer = 0) As Boolean + Public Function AddAutorizacionLimite(CveEmpresa As Integer, CveCliente As Integer, CveVendedor As Integer, Importe As Decimal, CveEstatus As Integer, CveUsuario As Integer, TipoAutorizacion As Integer, TipoDocumento As String, Optional DiasVencidos As Integer = 0, Optional Motivo As String = "") As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_AutorizacionLimitesAdd") With SqlAdapter.SelectCommand.Parameters @@ -5328,6 +5328,7 @@ Public Class ClsVentas .Add("@TipoAutorizacion", SqlDbType.Int).Value = TipoAutorizacion .Add("@TipoDocumento", SqlDbType.VarChar).Value = TipoDocumento .Add("@DiasVencidos", SqlDbType.Int).Value = DiasVencidos + .Add("@Motivo", SqlDbType.VarChar).Value = Motivo End With Try SqlAdapter.Fill(Data) diff --git a/Ventas/CatAutorizacionLimites.aspx b/Ventas/CatAutorizacionLimites.aspx index aa488d514..2b75e0e98 100644 --- a/Ventas/CatAutorizacionLimites.aspx +++ b/Ventas/CatAutorizacionLimites.aspx @@ -120,6 +120,7 @@ + @@ -203,6 +204,14 @@ +
+ +
+ + + +
+
diff --git a/Ventas/CatAutorizacionLimites.aspx.vb b/Ventas/CatAutorizacionLimites.aspx.vb index 3458e3e8e..0b18afbd5 100644 --- a/Ventas/CatAutorizacionLimites.aspx.vb +++ b/Ventas/CatAutorizacionLimites.aspx.vb @@ -4,14 +4,22 @@ Partial Class Ventas_CatAutorizacionLimites Inherits ClsPaginas #Region "PROPIEDADES" - Private Property CveAutorizacion() As Integer Get + Private Property CveAutorizacion() As Integer + Get Return If(IsNothing(ViewState("CveAutorizacion")), -1, CInt(ViewState("CveAutorizacion"))) - End Get Set - ViewState("CveAutorizacion") = Value End Set End Property - Private Property Modalidad() As String Get + End Get + Set + ViewState("CveAutorizacion") = Value + End Set + End Property + Private Property Modalidad() As String + Get Return If(IsNothing(ViewState("Modalidad")), "", (ViewState("Modalidad").ToString)) - End Get Set - ViewState("Modalidad") = Value End Set End Property + End Get + Set + ViewState("Modalidad") = Value + End Set + End Property #End Region Private Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load @@ -29,20 +37,20 @@ Partial Class Ventas_CatAutorizacionLimites DdlCliente.setEsWebService(True) DdlClienteFiltro.setEsWebService(True) - 'Dim EsWS = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False) - 'If EsWS Then - ' DdlCliente.setEsWebService(True) - ' DdlClienteFiltro.setEsWebService(True) - 'Else - ' DdlCliente.setEsWebService(False) - ' DdlCliente.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1) - ' DdlCliente.DataBind() - ' DdlCliente.ddl.Items.Insert(0, New ListItem("Seleccione", "-1")) - - ' DdlClienteFiltro.setEsWebService(False) - ' DdlClienteFiltro.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1) - ' DdlClienteFiltro.DataBind() - ' DdlClienteFiltro.ddl.Items.Insert(0, New ListItem("Seleccione", "-1")) + 'Dim EsWS = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False) + 'If EsWS Then + ' DdlCliente.setEsWebService(True) + ' DdlClienteFiltro.setEsWebService(True) + 'Else + ' DdlCliente.setEsWebService(False) + ' DdlCliente.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1) + ' DdlCliente.DataBind() + ' DdlCliente.ddl.Items.Insert(0, New ListItem("Seleccione", "-1")) + + ' DdlClienteFiltro.setEsWebService(False) + ' DdlClienteFiltro.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1) + ' DdlClienteFiltro.DataBind() + ' DdlClienteFiltro.ddl.Items.Insert(0, New ListItem("Seleccione", "-1")) 'End If DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa) @@ -64,8 +72,8 @@ Partial Class Ventas_CatAutorizacionLimites CveCliente = DdlClienteFiltro.SelectedValue.ToEntero() End If - Dim FechaI, FechaF As Date - FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim.ToDate, MinFecha) + Dim FechaI, FechaF As Date + FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim.ToDate, MinFecha) FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim.ToDate, MaxFecha) Dim ObjGral As New ClsVentas @@ -103,8 +111,10 @@ Partial Class Ventas_CatAutorizacionLimites LimpiaModal() Modalidad = "A" BtnGuardar.Text = "Agregar" - ltlMotititulo.Text = "Agregar autorización" UpModal.Update() - RegistraScript("$('#DModal').modal()") End Sub + ltlMotititulo.Text = "Agregar autorización" + UpModal.Update() + RegistraScript("$('#DModal').modal()") + End Sub Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs) If DdlTipoAutorizacion.SelectedValue.ToEntero() <= 0 Then Alert("Debe seleccionar un tipo de autorización", TipoMensaje.MsgAdvertencia) @@ -119,8 +129,10 @@ Partial Class Ventas_CatAutorizacionLimites DiasVencidos = TxtDiasVencidos.Text.ToEntero() End If + Dim Motivo As String = TxtMotivo.Text.Trim + Dim ObjPS As New ClsVentas - If ObjPS.AddAutorizacionLimite(UsuarioActual.CveEmpresa, DdlCliente.SelectedValue.ToEntero(), DdlVendedor.SelectedValue.ToEntero(), TxtPrecio.Text.ToDecimal(), CveEstatus, UsuarioActual.CveUsuario, CveTipoAutorizacion, TipoDocto, DiasVencidos) Then + If ObjPS.AddAutorizacionLimite(UsuarioActual.CveEmpresa, DdlCliente.SelectedValue.ToEntero(), DdlVendedor.SelectedValue.ToEntero(), TxtPrecio.Text.ToDecimal(), CveEstatus, UsuarioActual.CveUsuario, CveTipoAutorizacion, TipoDocto, DiasVencidos, Motivo:=Motivo) Then RegistraScript("$('#DModal').modal('hide')") Alert("La autorización se agregó correctamente.", TipoMensaje.MsgInformacion) End If @@ -132,9 +144,13 @@ Partial Class Ventas_CatAutorizacionLimites #End Region #Region "LIMPIAR" - Protected Sub LimpiaModal() Me.CveAutorizacion = -1 TxtPrecio.Text = "" + Protected Sub LimpiaModal() + Me.CveAutorizacion = -1 + TxtPrecio.Text = "" - DdlCliente.SelectedValue = "-1" DdlVendedor.SelectedValueExist("-1") End Sub + DdlCliente.SelectedValue = "-1" + DdlVendedor.SelectedValueExist("-1") + End Sub #End Region @@ -286,9 +302,11 @@ Partial Class Ventas_CatAutorizacionLimites If DdlTipoAutorizacion.Items.FindByValue("2") Is Nothing Then DdlTipoAutorizacion.Items.Insert(0, New ListItem("Vencimiento", "2")) End If + DivMotivo.Visible = False Case "Egs" 'QUITAR LA DE VENCIMIENTO DdlTipoAutorizacion.Items.Remove(DdlTipoAutorizacion.Items.FindByValue("2")) + DivMotivo.Visible = True End Select UpModal.Update() End Sub diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index cdad8f00a..991c14ec1 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -7845,6 +7845,14 @@
+
+ +
+ + + +
+
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index a2d323f13..ea2eb9187 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -7594,7 +7594,7 @@ Partial Class Ventas End If 'VERIFICA SI EL DESCUENTO SUPERA EL SUBTOTAL - If ObjDescuento.ImporteDescuento > (Cantidad * PU) Then + If ObjDescuento.ImporteDescuento.RoundSQL(2) > (Cantidad * PU).RoundSQL(2) Then Alert("El descuento no puede ser mayor al subtotal", TipoMensaje.MsgAdvertencia) Exit Sub End If @@ -21616,7 +21616,7 @@ Partial Class Ventas LimpiaProntoPago() 'NO PERMITE EDITAR FECHA DEL PAGO - If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then + If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(260) Then TxtFechaPago.Enabled = False imgCalendario.Visible = False End If @@ -33740,8 +33740,10 @@ Partial Class Ventas DiasVencidos = TxtDiasVencidos.Text.ToEntero() End If + Dim Motivo As String = TxtMotivoAutorizacion.Text + Dim ObjPS As New ClsVentas - If ObjPS.AddAutorizacionLimite(UsuarioActual.CveEmpresa, CveCliente, DdlVendedor.SelectedValue.ToEntero(), TxtImporteSolicitud.Text.ToDecimal(), CveEstatus, UsuarioActual.CveUsuario, CveTipoAutorizacion, TipoDocumento:=DdlTipoDocto.SelectedValue, DiasVencidos:=DiasVencidos) Then + If ObjPS.AddAutorizacionLimite(UsuarioActual.CveEmpresa, CveCliente, DdlVendedor.SelectedValue.ToEntero(), TxtImporteSolicitud.Text.ToDecimal(), CveEstatus, UsuarioActual.CveUsuario, CveTipoAutorizacion, TipoDocumento:=DdlTipoDocto.SelectedValue, DiasVencidos:=DiasVencidos, Motivo:=Motivo) Then RegistraScript("$('#DivModalSolicitarCredito').modal('hide')") Alert("La autorización se agregó correctamente.", TipoMensaje.MsgInformacion) End If @@ -33772,10 +33774,12 @@ Partial Class Ventas Case "Ing" If DdlTipoAutorizacion.Items.FindByValue("2") Is Nothing Then DdlTipoAutorizacion.Items.Insert(0, New ListItem("Vencimiento", "2")) + DivMotivoAutorizacion.Visible = True End If Case "Egs" 'QUITAR LA DE VENCIMIENTO DdlTipoAutorizacion.Items.Remove(DdlTipoAutorizacion.Items.FindByValue("2")) + DivMotivoAutorizacion.Visible = True End Select UpModalSolicitud.Update() End Sub From 08dcc5ec4e64471571b03c9db5130e7b69ee4d43 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Thu, 10 Mar 2022 15:01:31 -0700 Subject: [PATCH 02/25] E140. Nombre de producto en campo de tipo en motobaterias --- Compras/PopUpVerFactura.aspx.vb | 22 ++++++++++++++++++++-- Empresas/Grales/Formatos/Ajuste.rdlc | 6 +++--- 2 files changed, 23 insertions(+), 5 deletions(-) diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 35c9b14ff..4134770d5 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -5685,6 +5685,7 @@ Partial Class PopUpVerFactura Dim MarcaAuto As String = RowAjuste("MarcaAuto").ToString Dim CodigoTD As String = RowAjuste("CodigoTD").ToString + Dim PSAjuste As String = "" Dim MarcaPS As String = "" Dim CveMarca As Integer = -1 @@ -5715,7 +5716,15 @@ Partial Class PopUpVerFactura Dim ObjPS As New ClsProductosServicios If ObjPS.GetPS(CvePSAjuste, -1, UsuarioActual.CveEmpresa) Then - MarcaPS = ObjPS.DtResultados.FiltroPrimeroValor("Marca", String.Format("CvePS = {0}", CvePSAjuste)) + Dim RowPS As DataRow = ObjPS.DtResultados.FiltroPrimero(String.Format("CvePS = {0}", CvePSAjuste)) + If RowPS IsNot Nothing Then + PSAjuste = RowPS("PS").ToString() + MarcaPS = RowPS("Marca").ToString() + 'SI ES MOTOBATERIAS PONER EL NOMBRE EN EL TIPO + If RowPS("CveClasificacion").ToString() = "20517" Then + BCIAjuste = PSAjuste + End If + End If End If ObjPS.Dispose() @@ -5813,6 +5822,7 @@ Partial Class PopUpVerFactura Dim MesesUso As String = "0" + Dim PSAjuste As String = "" Dim MarcaPS As String = "" Dim CveMarca As Integer = -1 @@ -5843,7 +5853,15 @@ Partial Class PopUpVerFactura Dim ObjPS As New ClsProductosServicios If ObjPS.GetPS(CvePSAjuste, -1, UsuarioActual.CveEmpresa) Then - MarcaPS = ObjPS.DtResultados.FiltroPrimeroValor("Marca", String.Format("CvePS = {0}", CvePSAjuste)) + Dim RowPS As DataRow = ObjPS.DtResultados.FiltroPrimero(String.Format("CvePS = {0}", CvePSAjuste)) + If RowPS IsNot Nothing Then + PSAjuste = RowPS("PS").ToString() + MarcaPS = RowPS("Marca").ToString() + 'SI ES MOTOBATERIAS PONER EL NOMBRE EN EL TIPO + If RowPS("CveClasificacion").ToString() = "20517" Then + BCIAjuste = PSAjuste + End If + End If End If ObjPS.Dispose() diff --git a/Empresas/Grales/Formatos/Ajuste.rdlc b/Empresas/Grales/Formatos/Ajuste.rdlc index bc19d8a58..609acd1cd 100644 --- a/Empresas/Grales/Formatos/Ajuste.rdlc +++ b/Empresas/Grales/Formatos/Ajuste.rdlc @@ -990,9 +990,9 @@ Textbox3 2.155in - 2.56338in + 2.76123in 0.16389in - 1.23952in + 1.04167in 22