From a08af9f74bc37645a10e5bda7d2c03d51defde14 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Thu, 27 Feb 2025 18:39:25 -0700 Subject: [PATCH] --Compras - 2025.02.27 --hyperlink cotizaciones en ventas --- App_Code/ClsInventarios.vb | 3 +- App_Code/ClsVentas.vb | 5 +- Ashx/TareasProgramadas.ashx | 4 +- Inventarios/PrestamosdeProveedor.aspx | 39 +++--- Inventarios/PrestamosdeProveedor.aspx.vb | 5 +- Planeacion/CatFolios.aspx.vb | 3 + Ventas/CatPromociones.aspx | 159 ++++++++++++----------- Ventas/CatPromociones.aspx.vb | 22 +++- Ventas/Promociones.aspx | 2 +- Ventas/Promociones.aspx.vb | 26 ++++ Ventas/Ventas.aspx.vb | 2 +- 11 files changed, 164 insertions(+), 106 deletions(-) diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index 4917e8d32..e0e8b665d 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -5602,12 +5602,13 @@ Public Class ClsInventarios #End Region #Region "PRESTAMOS DE PROVEEDOR" - Public Function PrestamosdeProveedorGet(CveProveedor As Integer, Folio As Integer, CveEmpresa As Integer) As Boolean + Public Function PrestamosdeProveedorGet(CveProveedor As Integer, Folio As Integer, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_PrestamosdeProveedorGet") With SqlAdapter.SelectCommand.Parameters .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor .Add("@Folio", SqlDbType.Int).Value = Folio + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa End With Try diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index c456d2ffa..04f886a95 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -2501,7 +2501,8 @@ Public Class ClsVentas #Region " PROMOCIONES " Public Function GetPromociones(CvePromocion As Integer, Fecha As Date, CveVendedor As Integer, CveCliente As Integer, Estatus As Integer, CveEmpresa As Integer, - CveSubProyecto As Integer, Optional CveMarca As Integer = -1, Optional CveUsuario As Integer = -1, Optional CvePS As Integer = -1) As Boolean + CveSubProyecto As Integer, Optional CveMarca As Integer = -1, Optional CveUsuario As Integer = -1, Optional CvePS As Integer = -1, + Optional FechaI As DateTime = MinFecha, Optional FechaF As DateTime = MaxFecha) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_PromocionesGet") With SqlAdapter.SelectCommand.Parameters @@ -2515,6 +2516,8 @@ Public Class ClsVentas .Add("@CveMarca", SqlDbType.Int).Value = CveMarca .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuario .Add("@CvePS", SqlDbType.Int).Value = CvePS + .Add("@FechaI", SqlDbType.DateTime).Value = FechaI + .Add("@FechaF", SqlDbType.DateTime).Value = FechaF End With Try SqlAdapter.Fill(Data) diff --git a/Ashx/TareasProgramadas.ashx b/Ashx/TareasProgramadas.ashx index d92128d64..cdf23a0b6 100644 --- a/Ashx/TareasProgramadas.ashx +++ b/Ashx/TareasProgramadas.ashx @@ -402,7 +402,7 @@ Public Class TareasProgramadas : Implements IHttpHandler, IReadOnlySessionState Dim FechaCorte As DateTime = New DateTime(ClsPaginas.NowADS().Year, 12, 31) If ObjMov.GetCxC(FechaI, FechaF, CveCliente, CveSubProyecto, CveVendedor, -1, -1, "-1", UsuarioActual.CveEmpresa, Grupo, -1, TipoCambio, TCEspecifico, TipoDocto, FechaVI, FechaVF, FechaCorte:=FechaCorte, - EstatusCliente:=1, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveCobranzaEstatus:=CveCobranzaEstatus, CveClienteClasificacion:=-1, TipoCliente:=-1 ) Then + EstatusCliente:=1, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveCobranzaEstatus:=CveCobranzaEstatus, CveClienteClasificacion:=-1, TipoCliente:=-1) Then DTClientes = ObjMov.DtResultados.FiltraParametros("CveCliente > 0", DistinctColumns:={"CveCliente"}) End If @@ -1326,7 +1326,7 @@ Public Class TareasProgramadas : Implements IHttpHandler, IReadOnlySessionState objGenerales.Dispose() 'MandaCorreoDiario Dim Correos As String = "hdiaz@grupodiaz.com.mx;libarra@grupodiaz.com.mx;jguerrero@grupodiaz.com.mx;contabilidad@grupodiaz.com.mx;cnazarit@yahoo.com;julian@adsistemas.mx;rene.molina@adssistemas.mx" - ' Dim Correos As String = " rene.molina@adssistemas.mx" + 'Dim Correos As String = " rene.molina@adssistemas.mx;japmx95@gmail.com" MandaCorreoDiario(sbTablas.ToString(), Correos, respuesta) Return respuesta End Function diff --git a/Inventarios/PrestamosdeProveedor.aspx b/Inventarios/PrestamosdeProveedor.aspx index dd8e3f67e..9f1680dc4 100644 --- a/Inventarios/PrestamosdeProveedor.aspx +++ b/Inventarios/PrestamosdeProveedor.aspx @@ -16,24 +16,29 @@ -
+
- - -
- +
+ +
+ +
+ +
+ + +
+ +
+ + + +
- - -
- - -
-
@@ -138,7 +143,7 @@ - + @@ -146,19 +151,19 @@ - + - + - + - + diff --git a/Inventarios/PrestamosdeProveedor.aspx.vb b/Inventarios/PrestamosdeProveedor.aspx.vb index ccd227ab7..cf2eda288 100644 --- a/Inventarios/PrestamosdeProveedor.aspx.vb +++ b/Inventarios/PrestamosdeProveedor.aspx.vb @@ -50,6 +50,9 @@ Partial Class Inventarios_PrestamosdeProveedor DdlAlmacenOrigen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1) DdlAlmacenOrigen.DataBind() + DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, CveEstatus:=1) + DdlSubProyecto.DataBind() + End Sub Private Sub CargaDatos() @@ -59,7 +62,7 @@ Partial Class Inventarios_PrestamosdeProveedor If TxtFolioEntrega.Text <> "" Then tFolio = TxtFolioEntrega.Text.ToEntero Dim ObjInv As New ClsInventarios - If ObjInv.PrestamosdeProveedorGet(tCveProveedor, tFolio, UsuarioActual.CveEmpresa) Then + If ObjInv.PrestamosdeProveedorGet(tCveProveedor, tFolio, DdlSubProyecto.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa) Then GvD.DataSource = ObjInv.DtResultados Dim Dr As Data.DataRow = ObjInv.DtResultados.FiltroPrimero("") If Dr IsNot Nothing AndAlso tFolio > 0 Then diff --git a/Planeacion/CatFolios.aspx.vb b/Planeacion/CatFolios.aspx.vb index 0bed2e008..7b6116690 100644 --- a/Planeacion/CatFolios.aspx.vb +++ b/Planeacion/CatFolios.aspx.vb @@ -72,6 +72,9 @@ Partial Class CatFolios DdlTipoDocto.Items.Insert(33, New ListItem("Productos/Servicios", "PS")) DdlTipoDocto.Items.Insert(34, New ListItem("NC de Remisión", "RNC")) DdlTipoDocto.Items.Insert(35, New ListItem("Traspaso Carta Porte", "Tra")) + If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then + DdlTipoDocto.Items.Insert(35, New ListItem("Promoción", "PRM")) + End If ElseIf UsuarioActual.Empresa.CvePlataforma = 2 Then DdlTipoDocto.Items.Insert(1, New ListItem("Facturas", "Ing")) DdlTipoDocto.Items.Insert(2, New ListItem("Notas de Crédito", "Egs")) diff --git a/Ventas/CatPromociones.aspx b/Ventas/CatPromociones.aspx index dbc391dc6..ed35773f4 100644 --- a/Ventas/CatPromociones.aspx +++ b/Ventas/CatPromociones.aspx @@ -9,7 +9,7 @@ Nueva Promoción
  • - Inactivar + Inactivar
    • @@ -32,117 +32,124 @@
    -
    +
    - -
    - -
    - : -
    -
    - +
    +
    +   +
    - Cliente: -
    - - +
    +   +
    - Vendedor: -
    - -
    +
    +   + +
    + +
    +   + + + + + +
    -