From 11c8e5a18311d43345e23392c128f0498312be66 Mon Sep 17 00:00:00 2001 From: Rakcsle Supertramp Date: Fri, 3 Jan 2020 08:59:22 -0700 Subject: [PATCH 1/4] EntradasSalidas Se quito required en TxtObservaciones --- Inventarios/EntradasSalidas.aspx | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/Inventarios/EntradasSalidas.aspx b/Inventarios/EntradasSalidas.aspx index e11493f81..e95b81ae4 100644 --- a/Inventarios/EntradasSalidas.aspx +++ b/Inventarios/EntradasSalidas.aspx @@ -277,9 +277,7 @@ Observaciones:
- - - +
From 6d72986397dd70dcd2b6cb96de883fc62f8bbffc Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Fri, 3 Jan 2020 09:30:43 -0700 Subject: [PATCH 2/4] =?UTF-8?q?validaci=C3=B3n=20de=2010=20digitos=20para?= =?UTF-8?q?=20numero=20de=20tel=C3=A9fono=20del=20cliente?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/Ventas.aspx | 1 + 1 file changed, 1 insertion(+) diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 01639bdf5..e62d3985f 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -6277,6 +6277,7 @@
+
From d1a64b13bca9b0f9dbadcc595287131adfad60a0 Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Fri, 3 Jan 2020 12:03:55 -0700 Subject: [PATCH 3/4] --- App_Code/ClsVentas.vb | 3 +- Inventarios/KardexAlmacenHorizontal.aspx | 7 ++- Inventarios/KardexAlmacenHorizontal.aspx.vb | 2 +- Ventas/RepConciliacionSat.aspx | 15 ++++++ Ventas/RepConciliacionSat.aspx.cs | 14 ++++++ Ventas/RepProductosServicios.aspx | 28 +++++++---- Ventas/RepProductosServicios.aspx.vb | 51 +++++++++++++++------ Ventas/RepProductosServiciosDetalle.aspx | 49 +++++++++++--------- Ventas/RepProductosServiciosDetalle.aspx.vb | 17 ++++++- 9 files changed, 134 insertions(+), 52 deletions(-) create mode 100644 Ventas/RepConciliacionSat.aspx create mode 100644 Ventas/RepConciliacionSat.aspx.cs diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index 96498dc75..955f487b8 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -1469,7 +1469,7 @@ Public Class ClsVentas FechaI As Date, FechaF As Date, Mes As Integer, FechaIEjec As Date, FechaFEjec As Date, MesEjec As Integer, CveCliente As Integer, CveSubProyectoEjecucion As Integer, CveVendedor As Integer, CveUsuario As Integer, CveEstatus As Integer, CveEmpresa As Integer, Optional CveUsuarioConsulta As Integer = -1, Optional TipoDocto As String = "-1", Optional GPO As Integer = -1, Optional CveMoneda As Integer = -1, Optional TipoCambio As Integer = -1, - Optional TCEspecifico As Double = 0, Optional CveClienteClasificacion As Integer = -1, Optional CveProveedorCompra As Integer = -1, Optional CveMarca As Integer = -1) As Boolean + Optional TCEspecifico As Double = 0, Optional CveClienteClasificacion As Integer = -1, Optional CveProveedorCompra As Integer = -1, Optional CveMarca As Integer = -1, Optional CveClasificacionDetalle As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_GetRepPSDetalle") @@ -1500,6 +1500,7 @@ Public Class ClsVentas .Add("@CveClienteClasificacion", SqlDbType.Int).Value = CveClienteClasificacion .Add("@CveProveedorCompra", SqlDbType.Int).Value = CveProveedorCompra .Add("@CveMarca", SqlDbType.Int).Value = CveMarca + .Add("@CveClasificacionDetalle", SqlDbType.Int).Value = CveClasificacionDetalle End With Try diff --git a/Inventarios/KardexAlmacenHorizontal.aspx b/Inventarios/KardexAlmacenHorizontal.aspx index df303871d..397af66ab 100644 --- a/Inventarios/KardexAlmacenHorizontal.aspx +++ b/Inventarios/KardexAlmacenHorizontal.aspx @@ -146,7 +146,12 @@
- + + + + + + <%----%>
diff --git a/Inventarios/KardexAlmacenHorizontal.aspx.vb b/Inventarios/KardexAlmacenHorizontal.aspx.vb index 229a2ddb1..b8c30dfb3 100644 --- a/Inventarios/KardexAlmacenHorizontal.aspx.vb +++ b/Inventarios/KardexAlmacenHorizontal.aspx.vb @@ -128,7 +128,7 @@ Partial Class Inventarios_KardexAlmacen Dim CveAlmacen As Integer = ddlAlmacen.SelectedValue.ToEntero Dim CveProveedorCompra As Integer = If(DdlProveedor.SelectedValue.ToEntero > 0, DdlProveedor.SelectedValue.ToEntero, -1) - If ObjMovimientos.GetKardexAlmacenHorizontal(CvePS, FechaF, CveAlmacen, DdlUnidadMedida.SelectedValue.ToEntero, CveProveedorCompra, DdlTipoAlmacen.SelectedValue.ToEntero(), If(ChkIncluyeTransitorios.Checked, 1, 0), DdlClasificacion.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CondicionExistencias:=DdlExistencia.SelectedValue) Then + If ObjMovimientos.GetKardexAlmacenHorizontal(CvePS, FechaF, CveAlmacen, DdlUnidadMedida.SelectedValue.ToEntero, CveProveedorCompra, DdlTipoAlmacen.SelectedValue.ToEntero(), DdlIncluyeTransitorios.SelectedValue.ToEntero(), DdlClasificacion.SelectedValue.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CondicionExistencias:=DdlExistencia.SelectedValue) Then If ObjMovimientos.DtResultados IsNot Nothing AndAlso ObjMovimientos.DtResultados.Rows.Count > 0 Then dt = ObjMovimientos.DtResultados Dim ListaBorrar As New List(Of DataColumn) diff --git a/Ventas/RepConciliacionSat.aspx b/Ventas/RepConciliacionSat.aspx new file mode 100644 index 000000000..234fbe0c8 --- /dev/null +++ b/Ventas/RepConciliacionSat.aspx @@ -0,0 +1,15 @@ +<%@ Page Language="C#" AutoEventWireup="true" CodeFile="RepConciliacionSat.aspx.cs" Inherits="Ventas_RepConciliacionSat" %> + + + + + + + + +
+
+
+
+ + diff --git a/Ventas/RepConciliacionSat.aspx.cs b/Ventas/RepConciliacionSat.aspx.cs new file mode 100644 index 000000000..d0acae9eb --- /dev/null +++ b/Ventas/RepConciliacionSat.aspx.cs @@ -0,0 +1,14 @@ +using System; +using System.Collections.Generic; +using System.Linq; +using System.Web; +using System.Web.UI; +using System.Web.UI.WebControls; + +public partial class Ventas_RepConciliacionSat : System.Web.UI.Page +{ + protected void Page_Load(object sender, EventArgs e) + { + + } +} \ No newline at end of file diff --git a/Ventas/RepProductosServicios.aspx b/Ventas/RepProductosServicios.aspx index ad68f5723..09b1bb7d9 100644 --- a/Ventas/RepProductosServicios.aspx +++ b/Ventas/RepProductosServicios.aspx @@ -5,11 +5,19 @@ -<%-- + <%--
@@ -60,7 +60,7 @@
  • Personalizar
    • -
  • +
  • Ver Dlls en pesos
  • @@ -80,7 +80,7 @@ - +
    @@ -100,7 +100,7 @@ - + <%-- @@ -150,7 +150,7 @@
    -<%-- + <%-- @@ -191,12 +191,11 @@
    - - +
    - +
    @@ -210,7 +209,7 @@
    - +
    @@ -254,13 +253,13 @@
    - +
    - +
    @@ -270,17 +269,23 @@
    • - +
    - +
    - +
    - +
    - + +
    + +
    + + +
    @@ -289,7 +294,7 @@     - + @@ -306,7 +311,7 @@ - + @@ -336,9 +341,9 @@ - + - + @@ -433,7 +438,7 @@     - + diff --git a/Ventas/RepProductosServiciosDetalle.aspx.vb b/Ventas/RepProductosServiciosDetalle.aspx.vb index 43a270058..5e60d1ee1 100644 --- a/Ventas/RepProductosServiciosDetalle.aspx.vb +++ b/Ventas/RepProductosServiciosDetalle.aspx.vb @@ -235,6 +235,17 @@ Partial Class Ventas_RepProductosServiciosDetalle DdlClienteClasificacion.DataBind() DdlClienteClasificacion.Items.Insert(0, New ListItem("Todos", "-1")) + + + If UsuarioActual.CveEmpresa.Contiene(141) Then + DivDdlTipo.Visible = True + lblDdlTipoPSDes.Visible = True + End If + DdlTipoPSDes.Items.Clear() + DdlTipoPSDes.DataSource = GlobalDTClasificacionesDetalle(UsuarioActual.CveEmpresa) + DdlTipoPSDes.Items.Insert(0, New ListItem("Seleccione", "-1")) + DdlTipoPSDes.DataBind() + CargaGrupo() CargaTipoCentroCosto() CreaDataTableColor() @@ -250,6 +261,7 @@ Partial Class Ventas_RepProductosServiciosDetalle Dim CveProveedorCompra As Integer = -1 Dim CveVendedor As Integer Dim CveMarca As Integer = -1 + Dim CveClasificacionDetalle As Integer = -1 GPO = If(Request("Grupo") IsNot Nothing AndAlso Request("Grupo").ToEntero() > 0, Request("Grupo").ToEntero(), -1).ToString CveProyecto = If(Request("CveProyecto") IsNot Nothing AndAlso Request("CveProyecto").ToEntero() > 0, Request("CveProyecto").ToEntero(), -1).ToString @@ -283,6 +295,7 @@ Partial Class Ventas_RepProductosServiciosDetalle CveClienteClasificacion = If(Request("CveClienteClasificacion") IsNot Nothing AndAlso Request("CveClienteClasificacion").ToEntero() > 0, Request("CveClienteClasificacion").ToEntero(), -1).ToString CveProveedorCompra = If(Request("CveProveedorCompra") IsNot Nothing AndAlso Request("CveProveedorCompra").ToEntero() > 0, Request("CveProveedorCompra").ToEntero(), -1).ToString.ToEntero CveMarca = If(Request("CveMarca") IsNot Nothing AndAlso Request("CveMarca").ToEntero() > 0, Request("CveMarca").ToEntero(), -1).ToString.ToEntero + CveClasificacionDetalle = If(Request("CveClasificacionDetalle") IsNot Nothing AndAlso Request("CveClasificacionDetalle").ToEntero() > 0, Request("CveClasificacionDetalle").ToEntero(), -1).ToString.ToEntero If Fecha <> "-1" Then txtFechaI.Text = Fecha @@ -366,7 +379,7 @@ Partial Class Ventas_RepProductosServiciosDetalle CargaProvedores(CveProveedorCompra) 'If CveProveedorCompra.ToEntero > 0 Then DdlProveedor.SelectedValue = CveProveedorCompra - + DdlTipoPSDes.SelectedValueExist(CveClasificacionDetalle) CargaDatos(CveProyecto, CveSubProyecto, CveCategoria, CveClasificacion, CvePS, Mes, MesEjec, CveCliente, CveSubProyectoEjecucion, CveVendedor, CveUsuario, CveEstatus, GPO.ToEntero, TipoDocto, CveMarca) CargarMarcas(CveMarca) End Sub @@ -395,7 +408,7 @@ Partial Class Ventas_RepProductosServiciosDetalle DdlPS.SelectedValue.ToEntero, FechaI, FechaF, -1, FechaIEjec, FechaFEjec, -1, CveCliente, DdlSubProyectoEjecucion.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, DdlUsuario.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, CveUsuarioConsulta:=UsuarioActual.CveUsuario, TipoDocto:=TipoComprobante, GPO:=DdlGrupo.SelectedValue.ToEntero, CveMoneda:=CveMoneda, - TipoCambio:=TipoCambio, TCEspecifico:=TCEspecifico, CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, CveProveedorCompra:=CveProveedorCompra, CveMarca:=DdlMarcaPSDes.SelectedValue.ToEntero) Then + TipoCambio:=TipoCambio, TCEspecifico:=TCEspecifico, CveClienteClasificacion:=DdlClienteClasificacion.SelectedValue.ToEntero, CveProveedorCompra:=CveProveedorCompra, CveMarca:=DdlMarcaPSDes.SelectedValue.ToEntero, CveClasificacionDetalle:=DdlTipoPSDes.SelectedValue.ToEntero()) Then GvDatos.DataSource = ObjVentas.DtResultados TmpDT = ObjVentas.DtResultados Else From 14545bdcadc9db511cb16cac5da7c13f8177bc84 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Fri, 3 Jan 2020 12:04:35 -0700 Subject: [PATCH 4/4] =?UTF-8?q?se=20agreg=C3=B3=20validaci=C3=B3n=20para?= =?UTF-8?q?=20el=20caso=20de=20empresa=20llantera=20donde=20ser=20requiere?= =?UTF-8?q?=20el=20texto=20de=20observaciones=20con=20informaci=C3=B3n?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/Ventas.aspx.vb | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 41dcec827..88e690f9c 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -6454,6 +6454,27 @@ Partial Class Ventas End If End If + 'Valida si en caso de que el detalle tenga llantas o polizas se agreguén kilometraje/serie en la parte de observaciones(solo para el caso de empresas llanteras) + If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then + If TxtObsFact.Text = "" Then + Dim FaltaObservacion As Integer = -1 + For Each PS As GridViewRow In GvPS.Rows + Dim PsRenglon As GridViewRow = PS + Dim CveClasificacion As Integer = PsRenglon.DataKey("CveClasificacion").ToEntero + If CveClasificacion = 20345 Or CveClasificacion = 20342 Then + FaltaObservacion = CveClasificacion + Exit For + End If + Next + If FaltaObservacion = 20345 Then + Alert("No se ha especificado la serie para la poliza en la sección de Observaciones", TipoMensaje.MsgAdvertencia) + Exit Sub + ElseIf FaltaObservacion = 20342 Then + Alert("No se ha especificado el kilometraje para la llanta en el sección de Observaciones", TipoMensaje.MsgAdvertencia) + Exit Sub + End If + End If + End If If UsuarioActual.Empresa.Funcionalidad(135) = "1" And DdlTipoComprobante.SelectedValue = "Cot" Then Alert("Se mando autorización al supervisor.", TipoMensaje.MsgInformacion) @@ -6494,6 +6515,7 @@ Partial Class Ventas End If EmitirImprimirNew() + End Sub #End Region