From f3e6d01590ed6210d3e21d342e68127d6f10f2bf Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 2 Jun 2020 08:13:28 -0700 Subject: [PATCH 1/9] -- cambio guias --- App_Code/ClsPaginas.vb | 3 ++- App_Code/ClsVentas.vb | 4 +++- App_Code/modExtensiones.vb | 7 +++++++ Inventarios/EntregaAlmacen.aspx | 12 +++++++----- Inventarios/EntregaAlmacen.aspx.vb | 1 + 5 files changed, 20 insertions(+), 7 deletions(-) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index fd1b013bf..7ae8d56ae 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -4262,13 +4262,14 @@ Public Class ClsPaginas PaginaDict.Add("/General/CatDiasInhabiles.aspx".ToUpper(), 429) PaginaDict.Add("/General/CatTipoCambio.aspx".ToUpper(), 642) PaginaDict.Add("/General/PopUpPaqueteriasGuias.aspx".ToUpper(), 659) + PaginaDict.Add("/General/PopUpPaqueteriasGuiasInternas.aspx".ToUpper(), 659) PaginaDict.Add("/General/CatPaqueterias.aspx".ToUpper(), 665) PaginaDict.Add("/General/CatDocumentacionTipo.aspx".ToUpper(), -1) PaginaDict.Add("/General/CatModelos.aspx".ToUpper(), 710) PaginaDict.Add("/General/CatRinTamanios.aspx".ToUpper(), 711) PaginaDict.Add("/General/CatMedidas.aspx".ToUpper(), 712) PaginaDict.Add("/General/CatSatListado69B.aspx".ToUpper, 1038) - PaginaDict.Add("/General/PopUpPaqueteriasGuiasInternas.aspx".ToUpper(), 727) + #End Region #Region "GPS" diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index 109597599..130483e9c 100644 --- a/App_Code/ClsVentas.vb +++ b/App_Code/ClsVentas.vb @@ -339,7 +339,8 @@ Public Class ClsVentas Optional ObservacionesAlmacen As String = "", Optional CveSubProyecto As Integer = -1, Optional CveSubProyectoEjecucion As Integer = -1, Optional CveSubProyectoCobranza As Integer = -1, Optional CveFormaPago33 As Integer = -1, Optional CveMetodoPago33 As Integer = -1, Optional CveUsoCFDI As Integer = -1, Optional OrdenCompra As String = "-1", Optional CveCuentaTerminal As Integer = -1, Optional CveTipoRelacion As Integer = -1, Optional ImpuestoLocal As Double = 0, Optional CveTipoAmortizacionAnticipo As Integer = -1, Optional CveVentaRelacion As Integer = -1, Optional ImporteRelacion As Decimal = -1, Optional CveEmpresaCRM As Integer = -1, Optional EsInterno As Integer = -1, Optional CveAcercamientoCRM As Integer = -1, - Optional DiasCredito As Integer = 0, Optional EsDiasCreditoFijo As Boolean = False, Optional AnticipoEspecial As Boolean = False, Optional Kilometraje As Double = 0, Optional EsAmortizacion As Boolean = False, Optional CveTipoRetencion As Integer = 0) As Boolean + Optional DiasCredito As Integer = 0, Optional EsDiasCreditoFijo As Boolean = False, Optional AnticipoEspecial As Boolean = False, Optional Kilometraje As Double = 0, Optional EsAmortizacion As Boolean = False, Optional CveTipoRetencion As Integer = 0, + Optional CorreoNotificacion As String = "") As Boolean Dim Retorno As Boolean = False DataAdapter("PA_VentasAdd") @@ -428,6 +429,7 @@ Public Class ClsVentas .Add("@Kilometraje", SqlDbType.Float).Value = Kilometraje .Add("@EsAmortizacion", SqlDbType.Bit).Value = EsAmortizacion .Add("@CveTipoRetencion", SqlDbType.TinyInt).Value = CveTipoRetencion + .Add("@CorreoNotificacion", SqlDbType.VarChar).Value = CorreoNotificacion .Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue End With diff --git a/App_Code/modExtensiones.vb b/App_Code/modExtensiones.vb index 1b799cb7d..2032e20f1 100644 --- a/App_Code/modExtensiones.vb +++ b/App_Code/modExtensiones.vb @@ -544,6 +544,8 @@ Namespace Extensiones Alert("", String.Format("{0} code[FilesMove]", ex.Message), TipoMensaje.MsgAdvertencia) retorno = False End Try + directorioOld.Clear() + directorioNew.Clear() Return retorno End Function @@ -2044,6 +2046,8 @@ Namespace Extensiones HttpContext.Current.Response.Write(style.ToString) HttpContext.Current.Response.Write(sb.ToString()) HttpContext.Current.Response.End() + sb.Clear() + style.Clear() End If End Sub @@ -2076,6 +2080,8 @@ Namespace Extensiones HttpContext.Current.Response.Write(style.ToString) HttpContext.Current.Response.Write(sb.ToString()) HttpContext.Current.Response.End() + sb.Clear() + style.Clear() End Sub Public Sub ExportToExcel(datatable As DataTable, NombreArchivoXLSX As String) @@ -2284,6 +2290,7 @@ Namespace Extensiones HttpContext.Current.Response.Write(style.ToString) HttpContext.Current.Response.Write(pdfDoc) HttpContext.Current.Response.[End]() + style.Clear() End Using End Using End Sub diff --git a/Inventarios/EntregaAlmacen.aspx b/Inventarios/EntregaAlmacen.aspx index 70313db73..d42579ec8 100644 --- a/Inventarios/EntregaAlmacen.aspx +++ b/Inventarios/EntregaAlmacen.aspx @@ -238,11 +238,13 @@ -
- - - -
+ + + + + + + diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb index f5b2187dc..a94f1ef46 100644 --- a/Inventarios/EntregaAlmacen.aspx.vb +++ b/Inventarios/EntregaAlmacen.aspx.vb @@ -318,6 +318,7 @@ Partial Class Inventarios_EntregaAlmacen DdlSubProyectos.SelectedValueExist(UsuarioActual.CveSubProyecto.ToString) If UsuarioActual.TienePermisoProceso(152) Then DdlSubProyectos.Enabled = False + If UsuarioActual.Empresa.Funcionalidad(280) = "1" Then PnlEntrega.Visible = True CreaDtDetalle() CreaDtDetalleLote() From e3917bb04f0524d9b091406f23c730d69745053b Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 2 Jun 2020 08:14:57 -0700 Subject: [PATCH 2/9] -- cambios guias --- Compras/Compras.aspx | 13 ++++++------- Compras/Compras.aspx.vb | 4 +++- General/PopUpPaqueteriasGuiasInternas.aspx.cs | 4 ++-- Ventas/Clientes.aspx.vb | 2 +- Ventas/Ventas.aspx.vb | 2 +- 5 files changed, 13 insertions(+), 12 deletions(-) diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx index 7c5b5214e..ecbbb6b28 100644 --- a/Compras/Compras.aspx +++ b/Compras/Compras.aspx @@ -2364,10 +2364,8 @@ - - + - + diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 9d78fa1fd..296643417 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -1854,8 +1854,10 @@ Partial Class Ventas thPredial2.Visible = True End If - If UsuarioActual.CveEmpresa.Contiene(72, 80) Then ' PARA BUSCAR FOLIO DE OC, YA FACTURADA EN EL CAMPO ORDEN DE COMPRA + If UsuarioActual.CveEmpresa.Contiene(1, 72, 80) Then ' PARA BUSCAR FOLIO DE OC, YA FACTURADA EN EL CAMPO ORDEN DE COMPRA TxtOrdenCompra.Attributes.Add("onblur", "BuscarOCRegistrada();") + trCorreoNotif1.Visible = True + trCorreoNotif2.Visible = True End If If UsuarioActual.Empresa.Funcionalidad(561).ToString() = "1" Then From d9c953e6cb2e899ce11e0e435a2f23a9ec566088 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 2 Jun 2020 19:14:49 -0700 Subject: [PATCH 6/9] - --- Inventarios/EntregaAlmacen.aspx.vb | 131 ++++++++++++++++++-------- Inventarios/ResguardoMaterial.aspx.vb | 47 +-------- Ventas/Ventas.aspx | 13 +-- 3 files changed, 100 insertions(+), 91 deletions(-) diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb index 97d147928..7f6dcafec 100644 --- a/Inventarios/EntregaAlmacen.aspx.vb +++ b/Inventarios/EntregaAlmacen.aspx.vb @@ -5,13 +5,14 @@ Imports System.Data Imports System.IO Imports System.Linq Imports CrystalDecisions.[Shared].Json +Imports ExcelLibrary.BinaryFileFormat Imports Extensiones Imports Microsoft.Reporting.WebForms Partial Class Inventarios_EntregaAlmacen - Inherits ClsPaginas - + Inherits ClsPaginas + #Region "PROPIEDADES" Private Property CveVentaAD As Integer Get @@ -245,10 +246,10 @@ Partial Class Inventarios_EntregaAlmacen Set(value As Boolean) ViewState("EsDevolucionDirecta") = value End Set - End Property - + End Property + #End Region - + Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not IsPostBack Then @@ -256,9 +257,9 @@ Partial Class Inventarios_EntregaAlmacen CargaParametrosAD() If UsuarioActual.CveEmpresa.Contiene(72, 80) Then DdlAlmacen.AutoPostBack = True End If - End Sub - - + End Sub + + #Region " INICIALIZA VALORES " Private Sub InicializaValores() TipoEstatus = -1 @@ -326,11 +327,11 @@ Partial Class Inventarios_EntregaAlmacen LimpiaCampos() - End Sub - + End Sub + #End Region - - + + #Region " CARGA PARAMETROS - EXCLUSIVO USO AD " Private Sub CargaParametrosAD() @@ -348,9 +349,9 @@ Partial Class Inventarios_EntregaAlmacen BtnGuardar.Visible = False End If - End Sub + End Sub #End Region - + #Region " CARGA PENDIENTES POR SURTIR " Protected Sub DdlCliente_SelectedIndexChanged(sender As Object, e As EventArgs) CargaFolios() @@ -468,11 +469,11 @@ Partial Class Inventarios_EntregaAlmacen End Select UpPendientes.Update() End If - End Sub - + End Sub + #End Region - - + + #Region " CARGA VENTA POR SURTIR " Protected Sub BtnSurtir_Click(sender As Object, e As EventArgs) @@ -918,14 +919,14 @@ Partial Class Inventarios_EntregaAlmacen End If objInv.Dispose() GvDocs.DataBind() - End Sub - - + End Sub + + #End Region - - + + #Region " AGREGAR " - + Protected Sub BtnSerie_Click(sender As Object, e As EventArgs) Dim Argumentos = CType(sender, Button).CommandArgument.Split("°"c) @@ -952,10 +953,10 @@ Partial Class Inventarios_EntregaAlmacen UpLoteBatch.Update() End If - End Sub - + End Sub + #Region " AGREGA POR SERIE/LOTE " - + Private Sub CreaDtDetalle() If DtDatosDetalle Is Nothing Then DtDatosDetalle = New DataTable @@ -1160,11 +1161,11 @@ Partial Class Inventarios_EntregaAlmacen DtDatosDetalle.AcceptChanges() CargaSerie() - End Sub + End Sub #End Region - + #Region " AGREGA CON LOTE BATCH " - + Private Sub CreaDtDetalleLote() If DtDatosDetalleLote Is Nothing Then DtDatosDetalleLote = New DataTable @@ -1352,9 +1353,9 @@ Partial Class Inventarios_EntregaAlmacen End Try DtDatosDetalleLote.AcceptChanges() CargaLote() - End Sub + End Sub #End Region - + #Region " AGREGA CON TXT | CODIGO - SERIE " Protected Sub BtnCodigoPS_Click(sender As Object, e As EventArgs) @@ -1488,12 +1489,12 @@ Partial Class Inventarios_EntregaAlmacen End If TxtCantidadEspecialDiv.Text = "1" - End Sub + End Sub #End Region - + #End Region - - + + #Region " GUARDAR " Protected Sub BtnGuardar_Click(sender As Object, e As EventArgs) @@ -2423,12 +2424,17 @@ Partial Class Inventarios_EntregaAlmacen Dim FechaEstimada As String = If(TxtFechaEstimada.Text = "", "-1", TxtFechaEstimada.Text) Dim NoCajas As Integer = TxtNoCajas.Text.ToEntero() Dim Observaciones As String = TxtObservacionesPaqInterna.Text - Dim CvePaqueteriaGuia As Integer = ObjGeneral.AddPaqueteriasGuias(-1, -1, CveEstatus, CveSubProyecto, Fecha, "-1", "-1", NoCajas, 0.00, "-1", FechaEstimada, Observaciones, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, EsEntregaInterna:=True) + Dim CvePaqueteriaGuia As Integer = ObjGeneral.AddPaqueteriasGuias(-1, 9, CveEstatus, CveSubProyecto, Fecha, "-1", "-1", NoCajas, 0.00, "-1", FechaEstimada, Observaciones, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, EsEntregaInterna:=True) If CvePaqueteriaGuia > 0 Then If CveVentaSurtir > 0 OrElse CveSubProyecto > 0 Then - ErrorMovInv = Not ObjGeneral.AddPaqueteriasGuiasDetalles(CvePaqueteriaGuia, CveVentaSurtir, -1, CveMovimiento, -1) + If ObjGeneral.AddPaqueteriasGuiasDetalles(CvePaqueteriaGuia, CveVentaSurtir, -1, CveMovimiento, -1) Then + ''manda correo + MandaCorreoEntrega(CveVentaSurtir) + Else + ErrorMovInv = True + End If End If If ErrorMovInv Then Alert("Error en el paqueteria guia detalle", TipoMensaje.MsgError) @@ -2755,6 +2761,53 @@ Partial Class Inventarios_EntregaAlmacen End Sub + + Private Sub MandaCorreoEntrega(tCveVenta As Integer) + Dim Correo As New ClsSisMail() + Dim SerieFolio As String = "" + Dim Asunto As String = String.Format("{0} Envio de pedido: {1}", UsuarioActual.Empresa.NombreCorto, SerieFolio) + Dim Cuerpo As New StringBuilder() + Dim Destinatario As String = "" + Dim MensajeEnviado = False + Dim tCvecliente As Integer + + + Dim ObjVentas As New ClsVentas() + + If (ObjVentas.GetVenta(tCveVenta, UsuarioActual.CveEmpresa)) Then + Dim dr As DataRow = ObjVentas.DtResultados.FiltroPrimero("") + Destinatario = String.Format("{0};{1}", dr("CorreoNotificacion"), dr("CorreoVendedorVenta")) + + tCvecliente = dr("CveCliente").ToString.ToEntero + + Dim drC As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=tCvecliente).FiltroPrimero("") + Destinatario += String.Format("{0};{1}", drC("CorreoEntregaCompras"), drC("CorreoEntregaAlmacen")) + + Cuerpo.AppendLine(String.Format("Estimado {0} le informamos que los productos de la factura {1} han sido enviados a entrega.

", dr("NombreCliente"), dr("SerieFolio"))) + Cuerpo.AppendLine("

Dudas y aclaraciones con su coordinador empresarial.") + + End If + ObjVentas.Dispose() + + + ' Dim ArchivoAdjunto As New ClsSisMail.ArchivoMail() + + 'Dim ListaAdjuntos As New List(ClsSisMail.ArchivoMail) + + + 'If (File.Exists(RutaArchivoAdjunto))Then + ' { + ' ArchivoAdjunto.ArchivoBinario = File.ReadAllBytes(RutaArchivoAdjunto); + ' ArchivoAdjunto.Ruta = RutaArchivoAdjunto; + ' ArchivoAdjunto.NombreArchivo = new FileInfo(RutaArchivoAdjunto).Name; + ' ListaAdjuntos.Add(ArchivoAdjunto); + ' } + + + MensajeEnviado = Correo.SendMail(UsuarioActual.Empresa, Destinatario, Asunto, Cuerpo.ToString()) + + + End Sub Private Sub Limpia() 'DATOS DE LA VENTA @@ -3051,7 +3104,7 @@ Partial Class Inventarios_EntregaAlmacen If fi.Exists() Then linkDescarga = $"/Empresas/{UsuarioActual.CveEmpresa}/Documentacion/ventas/{fi.Name}" ImgDownLoad.Visible = True - ImgDownLoad.Text = String.Format(" ", linkDescarga) + ImgDownLoad.Text = String.Format(" ", linkDescarga) End If diff --git a/Inventarios/ResguardoMaterial.aspx.vb b/Inventarios/ResguardoMaterial.aspx.vb index 9aabeb893..f6173c7ed 100644 --- a/Inventarios/ResguardoMaterial.aspx.vb +++ b/Inventarios/ResguardoMaterial.aspx.vb @@ -84,22 +84,6 @@ Partial Class Inventarios_ResguardoMaterial End Property - Private Property DtSeccionAlmacen As DataTable - Get - Return CType(ViewState("DtSeccionAlmacen"), DataTable) - End Get - Set(value As DataTable) - ViewState("DtSeccionAlmacen") = value - End Set - End Property - Private Property IndexSeccionAlmacen As Integer - Get - Return CType(ViewState("IndexSeccionAlmacen"), Integer) - End Get - Set(value As Integer) - ViewState("IndexSeccionAlmacen") = value - End Set - End Property Private Property CantidadTotal As Decimal Get Return CType(ViewState("CantidadTotal"), Decimal) @@ -174,7 +158,6 @@ Partial Class Inventarios_ResguardoMaterial GvM.DataBind() CantidadTotal = 0 - IndexSeccionAlmacen = 0 CvePS = 0 TipoSeccionAlmacen = 0 @@ -379,7 +362,7 @@ Partial Class Inventarios_ResguardoMaterial #End Region -#Region " EISTENCIAS " +#Region " EXISTENCIAS " Private Function GetExistencias(CvePS As Integer, CveUnidadMedida As Integer, CveEmpresa As Integer, CveAlmacen As Integer, Optional Serie As String = "-1") As Double Dim Inv As New ClsInventarios Dim Existencia As Double = Inv.GetExistenciasPS(CvePS, CveUnidadMedida, CveEmpresa, CveAlmacen, FechaMovto:=TxtFecha.Text.ToDateTime.ToString("yyyy/MM/dd HH:mm"), Serie:=Serie) @@ -481,10 +464,10 @@ Partial Class Inventarios_ResguardoMaterial Protected Sub GvM_RowDataBound(sender As Object, e As GridViewRowEventArgs) If e.Row.RowType = DataControlRowType.DataRow Then - If DtSeccionAlmacen.FiltraParametros($"IndexSeccionAlmacen = {e.Row.RowIndex}").SUMD("CantidadSeccionAlmacen") > 0 Then - e.Row.FCLinkButton("lnkRemove").Visible = False - e.Row.FCLinkButton("lnkRemove").ToolTip = "Cuenta con sección almacen" - End If + 'If DtSeccionAlmacen.FiltraParametros($"IndexSeccionAlmacen = {e.Row.RowIndex}").SUMD("CantidadSeccionAlmacen") > 0 Then + ' e.Row.FCLinkButton("lnkRemove").Visible = False + ' e.Row.FCLinkButton("lnkRemove").ToolTip = "Cuenta con sección almacen" + 'End If End If End Sub #End Region @@ -502,7 +485,6 @@ Partial Class Inventarios_ResguardoMaterial DdlAlmacen.SelectedValueExist("-1") DdlAlmacenDestino.SelectedValueExist("-1") - DtSeccionAlmacen.Rows.Clear() TxtObservaciones.Text = "" TxtFecha.Text = Now.ToShortDateString @@ -595,8 +577,6 @@ Partial Class Inventarios_ResguardoMaterial FechaLiberacion = TxtFechaLiberacion.Text BtnGuardarLiberacion.Visible = True - DtSeccionAlmacen.Rows.Clear() - UpGeneralesLibreacion.Update() Else Alert("Ocurrió un error al cargar los resguardos del personal. Por favor vuelva a intentar.", TipoMensaje.MsgError) @@ -633,8 +613,6 @@ Partial Class Inventarios_ResguardoMaterial LbFechaLiberacion.Text = "" FechaLiberacion = "" BtnGuardarLiberacion.Visible = False - DtSeccionAlmacen.Rows.Clear() - DdlAlmacenDestinoLiberacion.SelectedValue = "-1" TxtObservacionesLiberacion.Text = "" @@ -685,14 +663,6 @@ Partial Class Inventarios_ResguardoMaterial Alert(TextoExistencia.ToString, TipoMensaje.MsgError) End If - Dim TotalCantidad As Double = DtMovimientos.SUMD("Cantidad") - If UsuarioActual.Empresa.Funcionalidad(563) = "1" Then - If TotalCantidad <> DtSeccionAlmacen.FiltraParametros("TipoSeccionAlmacen = 1").SUMD("CantidadSeccionAlmacen") Then - Alert("La seccion de almacen no ha sido agregada completamente.", TipoMensaje.MsgAdvertencia) - Exit Sub - End If - End If - Guardar(23) End Sub @@ -724,13 +694,6 @@ Partial Class Inventarios_ResguardoMaterial Exit Sub End If - If UsuarioActual.Empresa.Funcionalidad(563) = "1" Then - If TotalCantidad <> DtSeccionAlmacen.FiltraParametros("TipoSeccionAlmacen = 2").SUMD("CantidadSeccionAlmacen") Then - Alert("La seccion de almacen no ha sido agregada completamente.", TipoMensaje.MsgAdvertencia) - Exit Sub - End If - End If - Guardar(24) diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 6dd529d64..97b534794 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -3259,14 +3259,7 @@ - - - - - - - + - + - + From 989d5e826b333ba4892b309027a19d83bc7a6623 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 3 Jun 2020 09:20:43 -0700 Subject: [PATCH 7/9] Correcion de directorio --- Bancos/CargarConciliacionesBancarias.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Bancos/CargarConciliacionesBancarias.aspx.vb b/Bancos/CargarConciliacionesBancarias.aspx.vb index 662e7ca6c..27ab10ceb 100644 --- a/Bancos/CargarConciliacionesBancarias.aspx.vb +++ b/Bancos/CargarConciliacionesBancarias.aspx.vb @@ -77,7 +77,7 @@ Partial Class Bancos_CargarConciliacionesBancarias Protected Sub BtnCargaExcel_Click(sender As Object, e As EventArgs) If TxtExcel.getfiles().Archivos.Count > 0 Then Dim file As Archivo = TxtExcel.getfiles().Archivos(0) - Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & file.patch + Dim Directorio As String = AppDomain.CurrentDomain.BaseDirectory & file.patch Dim Tipo As String = If(file.Extencion.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "CSV") CargaExcel(Directorio, file.filename, Tipo) Else From 561fab5f3e8ab42e4791e8e6c60cd2aa3e87f6ff Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 3 Jun 2020 09:21:42 -0700 Subject: [PATCH 8/9] Redireccionamiento de refacturacion --- Ventas/RepCancelacionesPorRespuesta.aspx | 6 +-- Ventas/RepCancelacionesPorRespuesta.aspx.cs | 49 +++++++++++++++------ 2 files changed, 38 insertions(+), 17 deletions(-) diff --git a/Ventas/RepCancelacionesPorRespuesta.aspx b/Ventas/RepCancelacionesPorRespuesta.aspx index 878847631..5d2d38310 100644 --- a/Ventas/RepCancelacionesPorRespuesta.aspx +++ b/Ventas/RepCancelacionesPorRespuesta.aspx @@ -130,7 +130,7 @@ -
Rembolso: - - - + Reembolso: + Personal/Empleado Caja Chica @@ -2554,10 +2552,11 @@ - +

+

@@ -3920,8 +3919,8 @@
- - + <%-- + --%>
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 69e205ef3..1ee181a35 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -10695,7 +10695,6 @@ Partial Class Compras_Compras 'VALIDA UNIDAD DE MEDIDA If e.Row.DBCampo("CvePS").ToString.ToEntero > 0 Then - Dim DtEquivalencias = GlobalDTProductosServiciosEquivalencias(e.Row.DBCampo("CvePS").ToString.ToEntero, -1, UsuarioActual.CveEmpresa) 'SI UM NO ESTA REGISTRADA If e.Row.DBCampo("CveUM").ToString.ToEntero <= 0 Then @@ -10707,6 +10706,8 @@ Partial Class Compras_Compras 'EQUIVALENCIA If e.Row.DBCampo("CveUM").ToString.ToEntero > 0 And e.Row.DBCampo("CveTipoPS").ToString.ToEntero = 2 Then + Dim DtEquivalencias As DataTable = GlobalDTProductosServiciosEquivalencias(e.Row.DBCampo("CvePS").ToString.ToEntero, e.Row.DBCampo("CveUM").ToString.ToEntero, UsuarioActual.CveEmpresa) + If DtEquivalencias.FiltraParametros($"CveUM = {e.Row.DBCampo("CveUM").ToString.ToEntero}").Rows.Count > 0 Then If Not DtEquivalencias.FiltraParametros($"CveUM = {e.Row.DBCampo("CveUM").ToString.ToEntero} AND UnidadBase = 1").Rows.Count > 0 Then 'UM NO BASE @@ -10724,6 +10725,7 @@ Partial Class Compras_Compras e.Row.FCLabel("LtlUnidadMedida").Attributes.Add("data-toggle", "tooltip") e.Row.FCLabel("LtlUnidadMedida").Attributes.Add("title", "Unidad de medida SIN equivalencia") End If + DtEquivalencias.Dispose() End If End If diff --git a/General/PopUpPaqueteriasGuiasInternas.aspx.cs b/General/PopUpPaqueteriasGuiasInternas.aspx.cs index da9c3af0c..4de98d7c1 100644 --- a/General/PopUpPaqueteriasGuiasInternas.aspx.cs +++ b/General/PopUpPaqueteriasGuiasInternas.aspx.cs @@ -92,14 +92,14 @@ public partial class General_PopUpPaqueteriasGuiasInternas : ClsPaginas String Observaciones = TxtObservaciones.Text; - int CvePaqueteriaGuia = ObjGeneral.AddPaqueteriasGuias(-1, -1, CveEstatus, CveSubProyecto, Fecha, "-1", "-1", NoCajas, 0.00, "-1", FechaEstimada, Observaciones, + int CvePaqueteriaGuia = ObjGeneral.AddPaqueteriasGuias(-1, 9, CveEstatus, CveSubProyecto, Fecha, "-1", "-1", NoCajas, 0.00, "-1", FechaEstimada, Observaciones, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, EsEntregaInterna:true); if (CvePaqueteriaGuia > 0) { if (CveVenta > 0 || CveSubProyecto > 0 ) { - TieneError = !ObjGeneral.AddPaqueteriasGuiasDetalles(CvePaqueteriaGuia, CveVenta, -1, CveSubProyecto, -1); + TieneError = !ObjGeneral.AddPaqueteriasGuiasDetalles(CvePaqueteriaGuia, CveVenta, -1, -1, -1); } } else diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index 1e4424463..ec449551d 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -1667,7 +1667,7 @@ Partial Class Clientes End If TxtCorreoEntregaCompras.Text = ObjClientes.DtResultados(0)("CorreoEntregaCompras").ToString - TxtCorreoEntregaAlmacen.Text = ObjClientes.DtResultados(0)("CorreoEntregaCompras").ToString + TxtCorreoEntregaAlmacen.Text = ObjClientes.DtResultados(0)("CorreoEntregaAlmacen").ToString Else Existe = False Alert("El Cliente Solicitado no existe, por favor revise su búsqueda.", TipoMensaje.MsgAdvertencia) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index f6f71a957..53675d019 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -13775,7 +13775,7 @@ Partial Class Ventas End If Dim PorcentajePrecio As Double = 0 - If PrecioSugerido = 0 Then + If PrecioSugerido = 0 AndAlso CveCliente > 0 Then CvePrecioListaPS = GlobalDTCliente(UsuarioActual.CveEmpresa, Estatus:=-1, CveCliente:=CveCliente).FiltroPrimeroValor("CvePrecioLista").ToEntero() If CvePrecioListaPS > 0 Then Dim ObjPS As New ClsProductosServicios From 4f481c3ff95a7a7b1d6aa06ff086168d6648c284 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 2 Jun 2020 10:12:48 -0700 Subject: [PATCH 3/9] -- liga de descarga comprobante --- Bancos/IE.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index c877371bc..2773380fb 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -2492,7 +2492,7 @@ Partial Class Bancos_IE 'GUARDA COMPROBANTE If filemove <> "" Then - filemove.FilesMove(CveIE.ToString, String.Format("Empresas\{0}\IE", UsuarioActual.CveEmpresa, UsuarioActual.Empresa.Ruta)) + filemove.FilesMove(CveIE.ToString, String.Format("Empresas\{0}\IE", UsuarioActual.CveEmpresa)) End If 'GUARDA PREPOLIZAS DETALLE [PRIMERO SON LOS CASOS ESPECIALES, AL FINAL (ELSE) LOS CASOS NORMALES] --REEMPLAZA IFs From f2e419a06018c0b700a0c1285e6c2922d09c8842 Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 2 Jun 2020 11:20:56 -0700 Subject: [PATCH 4/9] - oculta columna condicion de SeccionAlmacen --- Inventarios/EntradasSalidas.aspx.vb | 2 +- vwd.webinfo | 2 ++ 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb index 2146c8de4..0013d4efd 100644 --- a/Inventarios/EntradasSalidas.aspx.vb +++ b/Inventarios/EntradasSalidas.aspx.vb @@ -2231,7 +2231,7 @@ Partial Class Inventarios_EntradasSalidas GvM.Columns(9).Visible = DtTemp.MAX("Serie") <> "" GvM.Columns(10).Visible = DtTemp.MAX("Lote") <> "" GvM.Columns(11).Visible = DtTemp.MAX("FechaCaducidad").ToDate > MinFecha - GvM.Columns(12).Visible = DtTemp.MAX("CveSeccionAlmacen") <> "" + GvM.Columns(12).Visible = DtTemp.MAX("CveSeccionAlmacen").ToEntero > 0 End If diff --git a/vwd.webinfo b/vwd.webinfo index c8632d677..7b35128de 100644 --- a/vwd.webinfo +++ b/vwd.webinfo @@ -66,6 +66,8 @@ + + From 99d5ebf0f07f08fbfcb449faa084e26d0058380b Mon Sep 17 00:00:00 2001 From: rrene Date: Tue, 2 Jun 2020 15:52:57 -0700 Subject: [PATCH 5/9] -guias --- General/RepPaqueteriasGuias.aspx.cs | 2 +- Ventas/Clientes.aspx | 4 ++-- Ventas/Clientes.aspx.vb | 5 +++++ Ventas/Ventas.aspx | 4 ++-- Ventas/Ventas.aspx.vb | 4 +++- 5 files changed, 13 insertions(+), 6 deletions(-) diff --git a/General/RepPaqueteriasGuias.aspx.cs b/General/RepPaqueteriasGuias.aspx.cs index ba858b386..75a951155 100644 --- a/General/RepPaqueteriasGuias.aspx.cs +++ b/General/RepPaqueteriasGuias.aspx.cs @@ -235,7 +235,7 @@ public partial class General_RepPaqueteriasGuias : ClsPaginas { DdlUsuarios.DataSource = get_GlobalDTUsuarios(CveEmpresa:UsuarioActual.CveEmpresa); DdlUsuarios.DataBind(); - DdlUsuarios.Items.Insert(0, new ListItem("Seleccione ", "-1")); + DdlUsuarios.Items.Insert(0, new ListItem("Todos ", "-1")); } protected void InicializaFechas() diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx index 61757410e..376ee22cf 100644 --- a/Ventas/Clientes.aspx +++ b/Ventas/Clientes.aspx @@ -605,12 +605,12 @@ -
+
-
+
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index ec449551d..ff52d9a63 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -5622,6 +5622,11 @@ Partial Class Clientes CobranzaTelefono = "" CodigoCliente = "" + If UsuarioActual.CveEmpresa.Contiene(1, 72, 80) Then + divCorreoEntregaCompras.Visible = True + divCorreoEntregaAlmacen.Visible = True + End If + End Sub Protected Sub BtnCargaExcel_Click(sender As Object, e As EventArgs) Handles BtnCargaExcel.Click diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index ff7dd77d3..3b1188c59 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -3260,10 +3260,10 @@
Correo Notificaciones: 
Correo Notificaciones: 
-
Orden de Compra:   @@ -3294,10 +3287,10 @@ Kilometraje 
Correo Notificaciones: