diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index d45f8afca..fa47212e6 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -78,6 +78,7 @@ Public Class ClsInventarios Public Property CveVenta As Integer Public Property TipoEstatus As Integer Public Property EsDevolucionVenta As Integer + Public Property CantidadVenta As Decimal Public Property CvePersonal As Integer Public Property NombreCompleto As String Public Property NombreCapturo As String @@ -3576,8 +3577,9 @@ Public Class ClsInventarios If Data IsNot Nothing AndAlso Data.Rows.Count = 1 Then Dim dr As DataRow = Data.Rows(0) - TipoEstatus = dr("TipoEstatus").ToString.ToEntero - EsDevolucionVenta = dr("EsVentaDevolucion").ToString.ToEntero + TipoEstatus = dr("TipoEstatus").ToString().ToEntero + EsDevolucionVenta = dr("EsVentaDevolucion").ToString().ToEntero + CantidadVenta = dr("CantidadVenta").ToString().ToDecimal() Retorno = True End If diff --git a/App_Code/ClsOS.vb b/App_Code/ClsOS.vb index 1263b38d9..b2f8c1d29 100644 --- a/App_Code/ClsOS.vb +++ b/App_Code/ClsOS.vb @@ -497,7 +497,7 @@ Public Class ClsOS Public Function GetRepOrdenesServicioMedicasRep(FechaI As Date, FechaF As Date, CveCliente As Integer, CveVendedor As Integer, CveEstatusOrdenServicio As Integer, CveUsuarioAtendio As Integer, CveSubProyecto As Integer, CveEmpresa As Integer, - Optional CveMedico As Integer = -1, Optional CveProcedimiento As Integer = -1, Optional CveEspecialidad As Integer = -1, Optional CveClienteSucursal As Integer = -1) As Boolean + Optional CveMedico As Integer = -1, Optional CveProcedimiento As Integer = -1, Optional CveEspecialidad As Integer = -1, Optional CveClienteSucursal As Integer = -1, Optional CveUsuario As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_OS_OrdenesServiciosMedicasRepGet") @@ -516,6 +516,7 @@ Public Class ClsOS .Add("@CveProcedimiento", SqlDbType.Int).Value = CveProcedimiento .Add("@CveEspecialidad", SqlDbType.Int).Value = CveEspecialidad .Add("@CveClienteSucursal", SqlDbType.Int).Value = CveClienteSucursal + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario End With diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index a800a3856..2e23ed098 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -7115,7 +7115,7 @@ Public Class ClsPaginas params.Add(New ReportParameter("CveVenta", Vta.CveVenta.ToString)) End If 'COMPU DN DIFUSA - If UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 119, 137, 132, 144, 177) Then + If UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 119, 137, 132, 144, 177, 186) Then Dim FirmaVendedor As New System.IO.FileInfo(String.Format("{0}Firmas\{1}.png", UsuarioActual.Empresa.Ruta, Vta.CveVendedor)) params.Add(New ReportParameter("FirmaVendedor", If(FirmaVendedor.Exists, New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Firmas/{1}.png", UsuarioActual.CveEmpresa, Vta.CveVendedor))).AbsoluteUri, ""))) params.Add(New ReportParameter("Entrega", Vta.Entrega)) diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index 79e1de33e..21f150695 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -6931,7 +6931,7 @@ Public Class ClsVentas #End Region - Public Function GetVentasMedicasIndicadoresRep(Grupo As Integer, FechaI As Date, FechaF As Date, CveCliente As Integer, CveMedico As Integer, CveProcedimiento As Integer, CveEmpresa As Integer) As Boolean + Public Function GetVentasMedicasIndicadoresRep(Grupo As Integer, FechaI As Date, FechaF As Date, CveCliente As Integer, CveMedico As Integer, CveProcedimiento As Integer, CveEmpresa As Integer, CveVendedor As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Vta_VentasMedicasIndicadoresRepGet") @@ -6943,6 +6943,7 @@ Public Class ClsVentas .Add("@CveMedico", SqlDbType.Int).Value = CveMedico .Add("@CveProcedimiento", SqlDbType.Int).Value = CveProcedimiento .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor End With Try SqlAdapter.Fill(Data) diff --git a/App_Code/modExtensiones.vb b/App_Code/modExtensiones.vb index 854ab6997..5bb948f6b 100644 --- a/App_Code/modExtensiones.vb +++ b/App_Code/modExtensiones.vb @@ -681,6 +681,49 @@ Namespace Extensiones directorioNew.Clear() Return retorno End Function + + + Public Function FilesCopy(oldName As String, newName As String, newDirectorio As String, Optional Sobreescribir As Boolean = False, Optional ConcatenarDirectorioBase As Boolean = True) As Boolean + Dim retorno As Boolean = True + Dim directorioOld As New StringBuilder + Dim directorioNew As New StringBuilder + directorioOld.AppendFormat("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, oldName) + If newName = "" Then + newName = oldName + Else + newName = String.Format("{0}{1}", newName, System.IO.Path.GetExtension(directorioOld.ToString())) + End If + + 'SI VA A LA CARPETA DE EMPRESAS TIENE QUE TOMAR LA RUTA DE EMPRESAS + If ConcatenarDirectorioBase Then + If newDirectorio.Contains("Empresas") Then + directorioNew.AppendFormat("{0}{1}\", ModExtensiones.DirectorioBaseEmpresas, newDirectorio) + Else + directorioNew.AppendFormat("{0}{1}\", AppDomain.CurrentDomain.BaseDirectory, newDirectorio) + End If + Else + 'SI YA TIENE EL DIRECTORIO COMPLETO NO CONCANTENA EL DIRECTORIO + directorioNew.AppendFormat("{0}\", newDirectorio) + End If + + + If Not Directory.Exists(directorioNew.ToString) Then + Directory.CreateDirectory(directorioNew.ToString) + End If + + directorioNew.Append(newName) + Try + My.Computer.FileSystem.CopyFile(directorioOld.ToString, directorioNew.ToString, Sobreescribir) + + Catch ex As Exception + Alert("", String.Format("{0} code[FilesMove]", ex.Message), TipoMensaje.MsgAdvertencia) + retorno = False + End Try + directorioOld.Clear() + directorioNew.Clear() + Return retorno + End Function + Public Function DirectoryExistsCreate(ByRef NombreDirectorio As String) As Boolean diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb index d1ff5c083..99e204bf0 100644 --- a/Inventarios/EntregaAlmacen.aspx.vb +++ b/Inventarios/EntregaAlmacen.aspx.vb @@ -1967,7 +1967,7 @@ Partial Class Inventarios_EntregaAlmacen ValidaUsaConsola() - + Dim CantidadVenta As Decimal = 0 '' INICIA: VALIDACIONES 'Valida el estatus de la Venta, si es = 5 O DevolucionVenta = 2, NO SE SURTE! @@ -1975,6 +1975,7 @@ Partial Class Inventarios_EntregaAlmacen If ObjVentaInv.GetEstatusVentaPorSurtir(CveVentaSurtir) Then TipoEstatus = ObjVentaInv.TipoEstatus EsDevolucionVenta = ObjVentaInv.EsDevolucionVenta + CantidadVenta = ObjVentaInv.CantidadVenta End If ObjVentaInv.Dispose() @@ -2166,7 +2167,9 @@ Partial Class Inventarios_EntregaAlmacen DtDatosVenta = ObjInventario.DtResultados End If Dim CantidadGV As Decimal = GvDatos.Rows.Cast(Of GridViewRow)().Sum(Function(gvr) gvr.DataKey("CantidadF").ToDecimal) - If CantidadGV > DtDatosVenta.SUMD("CantidadF") Then + + 'VERIFICA SI LA CANTIDADES NOT SON MAYORES A LO ESTABLECIDO EN LA VENTA O LO QUE FALTA POR RECIBIR + If CantidadGV > DtDatosVenta.SUMD("CantidadF") OrElse Cantidad > CantidadVenta Then ObjInventario.RollBack() ObjInventario.Dispose() ObjConta.Dispose() @@ -2175,7 +2178,13 @@ Partial Class Inventarios_EntregaAlmacen '' identificar que productos no están completos. CargaVentaPorSurtir(CveVentaSurtir) CargaPendientes() - Alert("Ha sido cambiada la informacion de existencias de la venta actual, se han recargado la información.", TipoMensaje.MsgAdvertencia) + + If Cantidad > CantidadVenta Then + Alert("No se puede procesar una cantidad mayor a la que esta definida en la venta.", TipoMensaje.MsgAdvertencia) + Else + Alert("Ha sido cambiada la informacion de existencias de la venta actual, se han recargado la información.", TipoMensaje.MsgAdvertencia) + End If + Exit Sub End If @@ -3290,6 +3299,14 @@ Partial Class Inventarios_EntregaAlmacen End If End If + 'SI YA FUE DEVUELTO LA CANTIDAD COMPLETA DE LA DEVOLUCION,MARCAR PARA QUE NO APAREZCA + If Not ErrorMovInv AndAlso Cantidad.RoundSQL(6) = CantidadVenta.RoundSQL(6) AndAlso TipoDocto = "Dev" Then + If Not ObjVentas.UpdateVentasDevolucionAlmacen(2, CveVentaSurtir) Then + TextoError.AppendFormat("Ocurrió un error al actualizar la devolucion.") + ErrorMovInv = True + End If + End If + If Not ErrorMovInv Then ObjInventario.Commit() diff --git a/OS/OrdenesServicios.aspx b/OS/OrdenesServicios.aspx index 3d3defc25..c00c2b15b 100644 --- a/OS/OrdenesServicios.aspx +++ b/OS/OrdenesServicios.aspx @@ -1314,46 +1314,55 @@

Material Utilizado

-
+
-
-
- -
- - - -
- -
- - - -
- -
- - -
-
- - -
- -
+
+ +
+ + + +
+ +
+
+
+ + + +
+
+
+ +
+
+
+ + +
+
+
+
+ + +
+
+
+
+
+
-
- +

- @@ -1365,32 +1374,32 @@ Utilizado - + Concepto - + - + Serie - - + + - + Lote - - + + - - + + Fecha Cad. - + diff --git a/OS/OrdenesServicios.aspx.vb b/OS/OrdenesServicios.aspx.vb index bc6d50fc1..f04bc0e45 100644 --- a/OS/OrdenesServicios.aspx.vb +++ b/OS/OrdenesServicios.aspx.vb @@ -1851,6 +1851,9 @@ Partial Class OS_OrdenesServicios GvEB.DataSource = Nothing End If GvEB.DataBind() + + UPEventoBitacora.Update() + End Sub #End Region @@ -3062,11 +3065,24 @@ Partial Class OS_OrdenesServicios End If End If + Dim TieneArchivos As Boolean = False + Dim Filesgral As List(Of Archivo) = AnexoManerialUtilizado.getfiles().Archivos + For Each fileItem As Archivo In Filesgral + TieneArchivos = True + Exit For + Next + If Not TieneArchivos Then + Alert("Debe de Agregar Un Documento de Confirmación (hasta 5 maximo).") + Exit Sub + End If + + Dim CveAlmacenActual As Integer = DTSolicitudDev.FiltroPrimeroValor("CveAlmacenActual").ToEntero Dim CveMoneda As Integer = DTSolicitudDev.FiltroPrimeroValor("CveMoneda").ToEntero Dim CveSubProyectoPedido As Integer = DTSolicitudDev.FiltroPrimeroValor("CveSubProyecto").ToEntero Dim CveVentaPedido As Integer = DTSolicitudDev.FiltroPrimeroValor("CveVenta").ToEntero Dim CveAlmacenDestino As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, 10).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto = {CveSubProyectoPedido}").ToEntero + Dim CveVentaRemisionGenerada As Integer = -1 If DdlTipoVenta.SelectedValue.ToEntero = 5 Then Dim TotalSeleccionado As Decimal = 0 @@ -3193,6 +3209,8 @@ Partial Class OS_OrdenesServicios Respuesta = GeneraRemision(CveVentaPedido, ObjV.IniciaTransacSQL()) If Respuesta.CveVenta > 0 Then + + CveVentaRemisionGenerada = Respuesta.CveVenta If ObjV.GetVentaDetalle(Respuesta.CveVenta) Then Dim dtClon As DataTable = ObjV.DtResultados.Copy dtClon.DefaultView.Sort = "CveVentaDetalle ASC" @@ -3329,7 +3347,7 @@ Partial Class OS_OrdenesServicios End If If ProcesoOK Then - ProcesoOK = GuardarArchivoConfirmacion(ObjV.IniciaTransacSQL, CveOS) + ProcesoOK = GuardarArchivoConfirmacion(ObjV.IniciaTransacSQL, CveOS, CveVentaRemisionGenerada) End If If ProcesoOK Then @@ -3358,7 +3376,7 @@ Partial Class OS_OrdenesServicios End Sub - Private Function GuardarArchivoConfirmacion(ByRef transaccion As SqlTransaction, CveOSActual As Integer) As Boolean + Private Function GuardarArchivoConfirmacion(ByRef transaccion As SqlTransaction, CveOSActual As Integer, CveVentaRemisionGenerada As Integer) As Boolean Dim respuesta As Boolean = False @@ -3367,33 +3385,55 @@ Partial Class OS_OrdenesServicios Dim FileExtension As String = "-1" Dim Filesgral As List(Of Archivo) = AnexoManerialUtilizado.getfiles().Archivos Dim Filename As String = "" + 'Dim ProcesoOK As Boolean = True + For Each fileItem As Archivo In Filesgral + FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "") Filename = fileItem.filename - Next + If Filename = String.Empty Then + respuesta = False + Alert("Error al agregar Documento de Confirmación") + Exit For + Else - If Filename = String.Empty Then - respuesta = True - Else - If ObjEventoBitacora.AddEventoBitacora("Documento de Confirmación", String.Format(".{0}", FileExtension), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveOS:=CveOSActual) Then - If Filename <> "" Then + If CveVentaRemisionGenerada > 0 Then + If ObjEventoBitacora.AddEventoBitacora("Documento de Confirmación", String.Format(".{0}", FileExtension), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveVenta:=CveVentaRemisionGenerada) Then + Try + Filename.FilesCopy(String.Format("OI{0}", ObjEventoBitacora.CveEvento.ToString), String.Format("{0}OI", UsuarioActual.Empresa.Ruta), ConcatenarDirectorioBase:=False) + Catch ex As Exception + Alert("Error al mover archivo de confirmación", TipoMensaje.MsgAdvertencia) + respuesta = False + Exit For + End Try + + Else + respuesta = False + Exit For + End If + End If + + If ObjEventoBitacora.AddEventoBitacora("Documento de Confirmación", String.Format(".{0}", FileExtension), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveOS:=CveOSActual) Then Try Filename.FilesMove(String.Format("OI{0}", ObjEventoBitacora.CveEvento.ToString), String.Format("{0}OI", UsuarioActual.Empresa.Ruta), ConcatenarDirectorioBase:=False) respuesta = True Catch ex As Exception Alert("Error al mover archivo de confirmación", TipoMensaje.MsgAdvertencia) respuesta = False + Exit For End Try - - + Else + respuesta = False + Exit For End If - AnexoManerialUtilizado.Text = "[]" End If - End If + Next + + AnexoManerialUtilizado.Text = "[]" Return respuesta diff --git a/OS/RepOSMedicas.aspx.vb b/OS/RepOSMedicas.aspx.vb index c1e359039..f1caa606e 100644 --- a/OS/RepOSMedicas.aspx.vb +++ b/OS/RepOSMedicas.aspx.vb @@ -80,7 +80,8 @@ Partial Class OS_RepOSMedicas txtFechaI.Text = NowADS().FirstDayOfMonth.ToShortDateString txtFechaF.Text = NowADS().AddDays(2).ToShortDateString - DdlMedico.DataSource = GlobalDTMedicos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ") + + DdlMedico.DataSource = If(UsuarioActual.CveVendedor > 0, GlobalDTMedicos(UsuarioActual.CveEmpresa).FiltraParametros($" Estatus = 'True' AND CveVendedor = {UsuarioActual.CveVendedor} "), GlobalDTMedicos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ")) DdlMedico.DataBind() DdlProcedimiento.DataSource = GlobalDTProcedimientos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ") @@ -151,7 +152,7 @@ Partial Class OS_RepOSMedicas If ObjOS.GetRepOrdenesServicioMedicasRep(FechaI, FechaF, Cvecliente, DdlVendedor.SelectedValue.ToEntero, DdlEstatusOS.SelectedValue.ToEntero, DdlTecnico.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, CveMedico:=DdlMedico.SelectedValue.ToEntero, CveProcedimiento:=DdlProcedimiento.SelectedValue.ToEntero, CveEspecialidad:=DdlEspecialidad.SelectedValue.ToEntero, - CveClienteSucursal:=CveClienteSucursal) Then + CveClienteSucursal:=CveClienteSucursal, CveUsuario:=UsuarioActual.CveUsuario) Then GvDatos.DataSource = ObjOS.DtResultados If ObjOS.DtResultados IsNot Nothing AndAlso ObjOS.DtResultados.Rows.Count > 0 Then LnkPersonalizar.Visible = True diff --git a/TareasProgramadas/Tareas119.ashx b/TareasProgramadas/Tareas119.ashx index 7aa065c1b..db0c9cfc5 100644 --- a/TareasProgramadas/Tareas119.ashx +++ b/TareasProgramadas/Tareas119.ashx @@ -13,6 +13,9 @@ using System.Text; using System.Collections.Generic; using ClosedXML; +using System.Web.SessionState; +using System.Web.Hosting; + public class TareasJam : IHttpHandler { @@ -50,12 +53,15 @@ public class TareasJam : IHttpHandler } private bool EjecutaThalamus(int CveEmpresa, HttpContext context) { + Usuario Usuario = ValidaUsuarioSistema(100, 119); this.GuardaLog("EjecutaThalamus: Inicio. "); bool Respuesta = false; StringBuilder SBLog = new StringBuilder(); + + ClsGenerales ObjGenerales = new ClsGenerales(); DataTable DTProductos = new DataTable(); @@ -116,7 +122,7 @@ public class TareasJam : IHttpHandler SBLog.AppendLine("Consultas
"); SBLog.AppendLine(""); - Usuario Usuario = ValidaUsuarioSistema(100, 119); + this.GuardaLog("EjecutaThalamus: Consultando Productos. "); if (ObjGenerales.GetJAMCorveta(1)) @@ -319,6 +325,8 @@ public class TareasJam : IHttpHandler var wbAClientes = new ClosedXML.Excel.XLWorkbook(FormatoClientes); var wsClientes = wbAClientes.Worksheet(1); + wsClientes.Column(8).Style.NumberFormat.Format = "@"; + wsClientes.Column(9).Style.NumberFormat.Format = "@"; count = 2; @@ -332,7 +340,8 @@ public class TareasJam : IHttpHandler wsClientes.Cell(count, 5).Value = DRow["address.countryId"].ToString(); wsClientes.Cell(count, 6).Value = DRow["address.stateId"].ToString(); wsClientes.Cell(count, 7).Value = DRow["address.city"].ToString(); - wsClientes.Cell(count, 8).Value = DRow["address.street1"].ToString(); + + wsClientes.Cell(count, 8).Value = DRow["address.street1"].ToString(); wsClientes.Cell(count, 9).Value = DRow["address.street2"].ToString(); wsClientes.Cell(count, 10).Value = "'" + DRow["address.postalCode"].ToString(); wsClientes.Cell(count, 11).Value = DRow["phone.intCode"].ToString(); @@ -372,7 +381,7 @@ public class TareasJam : IHttpHandler } - //ErrorProceso = true; + ErrorProceso = true; if (!ErrorProceso) @@ -630,25 +639,65 @@ public class TareasJam : IHttpHandler return Respuesta; } - private Usuario ValidaUsuarioSistema(int CveUsuario, int CveEmpresa) + private Usuario ValidaUsuarioSistema(int CveUsuario, int CveEmpresa) + { + Usuario UsuarioActual = null/* TODO Change to default(_) if this is not a reference type */; + ClsSisUsuarios ObjUsuarios = new ClsSisUsuarios(); + + if (ObjUsuarios.GetUsuarios(CveUsuario)) { - Usuario UsuarioActual = null/* TODO Change to default(_) if this is not a reference type */; - ClsSisUsuarios ObjUsuarios = new ClsSisUsuarios(); - if (ObjUsuarios.GetUsuarios(CveUsuario)) + if (ObjUsuarios.DtResultados.Rows.Count > 0) { - if (ObjUsuarios.DtResultados.Rows.Count > 0) + string Usuario = ObjUsuarios.DtResultados.Rows[0]["Usuario"].ToString(); + string Contrasenia = ObjUsuarios.DtResultados.Rows[0]["Contraseña"].ToString(); + UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, CveEmpresa: CveEmpresa); + UsuarioActual.CveEmpresa = CveEmpresa; + + if( HttpContext.Current.Session == null) { - string Usuario = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString(); - string Contrasenia = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString(); - UsuarioActual = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, CveEmpresa: CveEmpresa); - UsuarioActual.CveEmpresa = CveEmpresa; - HttpContext.Current.Session("UsuarioSIG") = UsuarioActual; + // CrearHttpContextArtificial(); + CrearHttpContextConSession(); + + } + + HttpContext.Current.Session["UsuarioSIG"] = UsuarioActual; } - ObjUsuarios.Dispose(); - return UsuarioActual; } + ObjUsuarios.Dispose(); + return UsuarioActual; + } + + + //public static void CrearHttpContextArtificial() + //{ + // // Crear un SimpleWorkerRequest + // var workerRequest = new SimpleWorkerRequest("/dummy", null, new StringWriter()); + + // // Crear un HttpContext utilizando el SimpleWorkerRequest + // HttpContext.Current = new HttpContext(workerRequest); + + // // Ahora puedes usar HttpContext.Current como si estuviera en un contexto web + // // Nota: La sesión aún no está disponible + //} + + public static void CrearHttpContextConSession() + { + //CrearHttpContextArtificial(); + + // Para agregar soporte de sesión, debemos inicializar el manejador de sesión + var sessionContainer = new HttpSessionStateContainer("id", + new SessionStateItemCollection(), + new HttpStaticObjectsCollection(), + 10, + true, + HttpCookieMode.AutoDetect, + SessionStateMode.InProc, + false); + + SessionStateUtility.AddHttpSessionStateToContext(HttpContext.Current, sessionContainer); + } private bool VerificarArchivo(FileInfo FInfo, long Tamanio, string FTPServer, string FTPUsr, string FTPPass) diff --git a/Ventas/CatMedicos.aspx.vb b/Ventas/CatMedicos.aspx.vb index b1fa46788..10e4e01b6 100644 --- a/Ventas/CatMedicos.aspx.vb +++ b/Ventas/CatMedicos.aspx.vb @@ -73,7 +73,15 @@ Partial Class Ventas_CatMedicos Dim ObjVentas As New ClsVentas If ObjVentas.GetMedicos(-1, UsuarioActual.CveEmpresa, -1) Then - GvDatos.DataSource = ObjVentas.DtResultados + + If UsuarioActual.CveVendedor > 0 Then + GvDatos.DataSource = ObjVentas.DtResultados.FiltraParametros($" CveVendedor = {UsuarioActual.CveVendedor}") + Else + GvDatos.DataSource = ObjVentas.DtResultados + End If + + + Else GvDatos.DataSource = Nothing End If @@ -252,8 +260,10 @@ Partial Class Ventas_CatMedicos Dim objVentas As New ClsVentas + Dim CveVendedor As Integer = If(UsuarioActual.CveVendedor > 0, UsuarioActual.CveVendedor, -1) Dim CveCliente As Integer = If(DdlClientes.SelectedValue.ToEntero > 0, DdlClientes.SelectedValue.ToEntero, -1) - If objVentas.GetVentasMedicasIndicadoresRep(DdlGrupo.SelectedValue.ToEntero, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, CveCliente, DdlMedico.SelectedValue.ToEntero, DdlProcedimiento.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then + + If objVentas.GetVentasMedicasIndicadoresRep(DdlGrupo.SelectedValue.ToEntero, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, CveCliente, DdlMedico.SelectedValue.ToEntero, DdlProcedimiento.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, CveVendedor) Then GvIndicadores.DataSource = objVentas.DtResultados End If diff --git a/Ventas/CatProcedimientos.aspx.vb b/Ventas/CatProcedimientos.aspx.vb index e6934aeeb..564c19f45 100644 --- a/Ventas/CatProcedimientos.aspx.vb +++ b/Ventas/CatProcedimientos.aspx.vb @@ -183,7 +183,7 @@ Partial Class Ventas_CatProcedimientos Dim objVentas As New ClsVentas Dim CveCliente As Integer = If(DdlClientes.SelectedValue.ToEntero > 0, DdlClientes.SelectedValue.ToEntero, -1) - If objVentas.GetVentasMedicasIndicadoresRep(DdlGrupo.SelectedValue.ToEntero, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, CveCliente, DdlMedico.SelectedValue.ToEntero, DdlProcedimiento.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then + If objVentas.GetVentasMedicasIndicadoresRep(DdlGrupo.SelectedValue.ToEntero, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, CveCliente, DdlMedico.SelectedValue.ToEntero, DdlProcedimiento.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1) Then GvIndicadores.DataSource = objVentas.DtResultados End If diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb index e85ff4dec..1a49ae181 100644 --- a/Ventas/ProductosServicios.aspx.vb +++ b/Ventas/ProductosServicios.aspx.vb @@ -1521,7 +1521,7 @@ Partial Class ProductosyServicios If CvePS = -1 Then Dim PSS As String = TxtPS.Text.Trim.Replace("|", "") If UsuarioActual.CveEmpresa.Contiene(1, 72, 80) Then PSS = PSS.ToUpper - If ObjProductosServicios.AddPS(DdlClasificacion.SelectedValue.ToEntero, -1, DdlUnidadMedida.SelectedValue.ToEntero, TxtCodigo.Text.Trim, "", TxtCodigoBarras.Text.Trim, PSS, + If ObjProductosServicios.AddPS(DdlClasificacion.SelectedValue.ToEntero, -1, DdlUnidadMedida.SelectedValue.ToEntero, TxtCodigo.Text.Trim, TxtNumeroParte.Text.Trim, TxtCodigoBarras.Text.Trim, PSS, TxtPrecio.Text.Trim.ToDouble, DdlIVA.SelectedValue.ToDouble, (TxtRetIVA.Text.Trim.ToDouble / 100), ChkInventariable.Checked, CveProveedor, True, ChkAplicaParaVenta.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveMetodoInv, EsPaquete, CveTipoPS:=DdlTipoPS.SelectedValue.ToEntero, FuePorXML:=False, TipoServicio:=-1, CveClasificacion2:=CveClasificacion2, CveMarca:=CveMarca, AlmacenSeccion:=TxtAlmacenSeccion.Text.Trim, diff --git a/Ventas/RepCancelacionesPorRespuesta.aspx.cs b/Ventas/RepCancelacionesPorRespuesta.aspx.cs index 8ae294174..096e121fc 100644 --- a/Ventas/RepCancelacionesPorRespuesta.aspx.cs +++ b/Ventas/RepCancelacionesPorRespuesta.aspx.cs @@ -138,13 +138,30 @@ public partial class Ventas_RepCancelacionesPorRespuesta : ClsPaginas string RFCReceptor = GvRow.DataKey("RFCReceptor"); string Folio = GvRow.DataKey("Folio"); string TipoDocto = GvRow.DataKey("TipoDocto"); - string Nombre = GvRow.DataKey("Nombre"); - string FolioSustitucion = GvRow.DataKey("FolioFiscalSustitucion"); + string Nombre = GvRow.DataKey("Nombre"); int CveEstatusFactura = GvRow.DataKey("CveEstatusFactura").ToEntero(); + string FolioSustitucion = GvRow.DataKey("FolioFiscalSustitucion"); + int CveVentaSustitucion = GvRow.DataKey("CveVentaSustitucion").ToEntero(); + string RFCReceptorSustitucion = GvRow.DataKey("RFCReceptorSustitucion"); + + int CveMotivoSustitucion = 0; + + if (CveVentaSustitucion > 0) + { + //VERIFICA EL ESTATUS DE LA FACTURA NUEVA, SI ESTA ESTÁ CANCELADA, SE MANDA UNA CANCELACIÓN SIN FOLIO DE SUSTITUCIÓN Y CON EL CÓDIGO 02 + Timbrado.AcuseCancelacionSAT VigenciaExtra = Timbrado.VerificarVigenciaSAT(FolioSustitucion, UsuarioActual.Empresa.RFC, RFCReceptorSustitucion, Total.ToString(), true); + if (VigenciaExtra.Estado.ToUpper() == "CANCELADO") + { + FolioSustitucion = ""; + CveMotivoSustitucion = get_GlobalDTMotivosCancelacionEmpresa(UsuarioActual.CveEmpresa, CveSATMotivoCancelacion: 2).FiltroPrimeroValor("CveMotivoCancelacion").ToEntero(); + } + } + + if (CveVenta > 0 && Uuid != "") { - var respuesta = VerificarVigenciaSAT(CveVenta, CveCliente, Folio, TipoDocto, Uuid, UsuarioActual.Empresa.RFC, RFCReceptor, Total, EsRefacturacion: true, FolioSustitucion: FolioSustitucion, CveEstatusFactura: CveEstatusFactura); + var respuesta = VerificarVigenciaSAT(CveVenta, CveCliente, Folio, TipoDocto, Uuid, UsuarioActual.Empresa.RFC, RFCReceptor, Total, EsRefacturacion: true, FolioSustitucion: FolioSustitucion, CveEstatusFactura: CveEstatusFactura, CveMotivoSustitucion: CveMotivoSustitucion); CargaDatos(); if (respuesta.CveEstatus.Contiene(4, 5)) { @@ -302,7 +319,7 @@ public partial class Ventas_RepCancelacionesPorRespuesta : ClsPaginas UPDatos.Update(); } - private MRespuestaSAT VerificarVigenciaSAT(int CveVenta, int CveCliente, string Folio, string TipoDocto, string uuid, string emisor, string receptor, string total, bool EsRefacturacion = false, string FolioSustitucion = "", int CveEstatusFactura = -1) + private MRespuestaSAT VerificarVigenciaSAT(int CveVenta, int CveCliente, string Folio, string TipoDocto, string uuid, string emisor, string receptor, string total, bool EsRefacturacion = false, string FolioSustitucion = "", int CveEstatusFactura = -1, int CveMotivoSustitucion = 0) { //HdnLigaRefacturar.Value = ""; @@ -341,7 +358,7 @@ public partial class Ventas_RepCancelacionesPorRespuesta : ClsPaginas if (!UsuarioActual.Empresa.FacturaProduccion && (string.IsNullOrEmpty(uuid) || uuid.Contains("test"))) { - var respCancelacion = CancelarDocumento(CveVenta, CveEstatus, CveCliente, Folio, uuid, CancelacionAcuse, CancelacionFecha, TipoDocto, total.ToDouble(), UsuarioActual.Empresa.CvePAC, EsRefacturacion: EsRefacturacion, FolioSustitucion: FolioSustitucion); + var respCancelacion = CancelarDocumento(CveVenta, CveEstatus, CveCliente, Folio, uuid, CancelacionAcuse, CancelacionFecha, TipoDocto, total.ToDouble(), UsuarioActual.Empresa.CvePAC, EsRefacturacion: EsRefacturacion, FolioSustitucion: FolioSustitucion, CveMotivoCancelacion : CveMotivoSustitucion); //sb.AppendFormat("{0}
", respCancelacion.Mensaje); if (!respCancelacion.HuboError) @@ -384,7 +401,7 @@ public partial class Ventas_RepCancelacionesPorRespuesta : ClsPaginas { CveEstatus = 5; - var respCancelacion = CancelarDocumento(CveVenta, CveEstatus, CveCliente, Folio, uuid, CancelacionAcuse, CancelacionFecha, TipoDocto, total.ToDouble(), UsuarioActual.Empresa.CvePAC, EsRefacturacion: EsRefacturacion, FolioSustitucion: FolioSustitucion); + var respCancelacion = CancelarDocumento(CveVenta, CveEstatus, CveCliente, Folio, uuid, CancelacionAcuse, CancelacionFecha, TipoDocto, total.ToDouble(), UsuarioActual.Empresa.CvePAC, EsRefacturacion: EsRefacturacion, FolioSustitucion: FolioSustitucion, CveMotivoCancelacion: CveMotivoSustitucion); //sb.AppendFormat("{0}
", respCancelacion.Mensaje); if (!respCancelacion.HuboError) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index fc3d6fe64..c095649ef 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -37294,10 +37294,10 @@ Partial Class Ventas DdlMedicoModal.ClearSelection() DdlMedicoModal.SelectedValue = Nothing - DdlMedico.DataSource = GlobalDTMedicos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ") + DdlMedico.DataSource = If(UsuarioActual.CveVendedor > 0, GlobalDTMedicos(UsuarioActual.CveEmpresa).FiltraParametros($" Estatus = 'True' AND CveVendedor = {UsuarioActual.CveVendedor} "), GlobalDTMedicos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ")) DdlMedico.DataBind() - DdlMedicoModal.DataSource = GlobalDTMedicos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ") + DdlMedicoModal.DataSource = If(UsuarioActual.CveVendedor > 0, GlobalDTMedicos(UsuarioActual.CveEmpresa).FiltraParametros($" Estatus = 'True' AND CveVendedor = {UsuarioActual.CveVendedor} "), GlobalDTMedicos(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'True' ")) DdlMedicoModal.DataBind() If CveMedicoSeleccion > 0 Then
ConsultaRegistros