diff --git a/App_Code/ClsClientes.vb b/App_Code/ClsClientes.vb index 0904a892b..ef09f2a2c 100644 --- a/App_Code/ClsClientes.vb +++ b/App_Code/ClsClientes.vb @@ -23,11 +23,13 @@ Public Class ClsClientes 'Atributos de la clase Private disposedValue As Boolean = False ' Para detectar llamadas redundantes 'REGISTRAR CONEXIÓN - Private CveConexion As Integer = 0 + Private CveConexion As Integer = 0 + Private EsTransaccionCompartida As Boolean = False + #End Region - + #Region "Propiedades" - + Public Property CveCliente As Integer Public Property Nombre As String Public Property NombreComercial As String @@ -186,7 +188,8 @@ Public Class ClsClientes End Try Else SqlConexion = TransaccionCompartida.Connection - SqlTransacc = TransaccionCompartida + SqlTransacc = TransaccionCompartida + EsTransaccionCompartida = True End If SqlCommand = New SqlCommand("", SqlConexion) @@ -201,11 +204,11 @@ Public Class ClsClientes End With If Not SqlTransacc Is Nothing Then SqlAdapter.SelectCommand.Transaction = SqlTransacc Data = New DataTable - End Sub + End Sub #Region "Conexiones" - + Private Sub ConexionAdd() - If ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then + If Not EsTransaccionCompartida AndAlso ConfigurationManager.AppSettings("RegistraConexion") IsNot Nothing AndAlso ConfigurationManager.AppSettings("RegistraConexion").ToString() = "1" Then Try DataAdapter("PA_Sis_RegistrarConexion") With SqlAdapter.SelectCommand.Parameters diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index 62b5e8d2e..4e2ca49e7 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -4749,13 +4749,17 @@ Public Class ClsInventarios #Region "MOVIMIENTOS SALIDA" - Public Function GetRepMovimientosSalida(FechaI As Date, FechaF As Date, CveEmpresa As Integer) As Boolean + Public Function GetRepMovimientosSalida(FechaI As Date, FechaF As Date, CveSubProyecto As Integer, CveCliente As Integer, CveClasificacion As Integer, Grupo As Integer, CveEmpresa As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_RepMovimientosSalidaGet") With SqlAdapter.SelectCommand.Parameters .Add("@FechaI", SqlDbType.Date).Value = FechaI .Add("@FechaF", SqlDbType.Date).Value = FechaF + .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + .Add("@CveCliente", SqlDbType.Int).Value = CveCliente + .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@Grupo", SqlDbType.Int).Value = Grupo End With Try SqlAdapter.Fill(Data) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index fd1b013bf..a7b7a4a24 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" @@ -5044,8 +5045,8 @@ Public Class ClsPaginas Protected Overrides Sub SavePageStateToPersistenceMedium(pviewState As Object) 'If Request.Form("__VIEWSTATE_KEY") IsNot Nothing Then Cache.Remove(Request.Form("__VIEWSTATE_KEY")) 'elimino la cachado anteriormente Dim VSKey As String = String.Format("VIEWSTATE_{0}_{1}_{2}", Session.SessionID, Request.Path, Date.Now.Ticks) - 'Cache.Add(VSKey, pviewState, Nothing, Date.Now.AddMinutes(60), Cache.NoSlidingExpiration, CacheItemPriority.Default, Nothing) 'Store the ViewState on Cache - Session.Add(VSKey, pviewState) 'Store the ViewState on Cache + Cache.Add(VSKey, pviewState, Nothing, Date.Now.AddMinutes(60), Cache.NoSlidingExpiration, CacheItemPriority.Default, Nothing) 'Store the ViewState on Cache + 'Session.Add(VSKey, pviewState) 'Store the ViewState on Cache ClientScript.RegisterHiddenField("__VIEWSTATE_KEY", VSKey) End Sub @@ -5055,11 +5056,11 @@ Public Class ClsPaginas If Not VSKey.StartsWith("VIEWSTATE_") Then 'Request the Key from the page and validade it. Throw New Exception(String.Format("Invalid VIEWSTATE Key: {0}", VSKey)) End If - If Session(VSKey) Is Nothing Then 'si por algún motivo, el caché expiró, le dice a la página que se recargue y obtenga los datos de nuevo, y así evitar errores al obtener el viewstate vacío + If Cache(VSKey) Is Nothing Then 'si por algún motivo, el caché expiró, le dice a la página que se recargue y obtenga los datos de nuevo, y así evitar errores al obtener el viewstate vacío Response.Redirect(Request.RawUrl) Return Nothing Else - Return Session(VSKey) + Return Cache(VSKey) End If End Function @@ -5267,6 +5268,8 @@ Public Class ClsPaginas params.Add(param) Next Bytes = wsreport.StreamPDFBytes(RutaReporte, ds, params.ToArray(), NombreArchivo, Formato, CveEmpresa, CveUsuario) + wsreport = Nothing + params = Nothing Else If IsNothing(MR) Then MR = New ReportViewer Try @@ -5339,6 +5342,7 @@ Public Class ClsPaginas End If sw.Stop() + If sw.Elapsed.TotalSeconds > 5 Then GuardaLog($"Reporte:{RutaReporte} | Tiempo Renderizado Milisegundos: {sw.ElapsedMilliseconds},Total Segundos: {sw.Elapsed.TotalSeconds} ") End If @@ -5591,7 +5595,7 @@ Public Class ClsPaginas HttpContext.Current.Response.SuppressContent = True HttpContext.Current.ApplicationInstance.CompleteRequest() HttpContext.Current.Response.End() - + bytes = Nothing Catch ex As Exception If UsuarioActual.CveRol = 1 Then @@ -7246,6 +7250,20 @@ Public Class ClsPaginas params.Add(New ReportParameter("Comprador", ObjOC.UsuarioAsignado)) End If + If UsuarioActual.CveEmpresa.Contiene(13, 83) Then + Dim ObjCuentasBancos As New ClsGenerales() + If ObjCuentasBancos.GetCuentasDepositos(ObjOC.CveProveedor) Then + Dim CuentasActivas As DataTable = ObjCuentasBancos.DtResultados.FiltraParametros("EstatusTexto = 'Activo'") + Dim CuentasStr As New StringBuilder("") + For Each CuentasBancarios As DataRow In CuentasActivas.Rows + Dim CuentaClabe As String = If(CuentasBancarios.Item("BancoNombre").ToString.Contains("BBVA") Or CuentasBancarios.Item("BancoNombre").ToString.Contains("BANCOMER"), CuentasBancarios.Item("Cuenta").ToString, CuentasBancarios.Item("CLABE").ToString) + Dim infoCuenta As String = String.Format("
{0} {1}: {2}", CuentasBancarios.Item("BancoNombre").ToString, CuentasBancarios.Item("Abreviatura").ToString, CuentaClabe) + CuentasStr.AppendFormat(infoCuenta) + Next + params.Add(New ReportParameter("Cuentas", CuentasStr.ToString)) + End If + ObjCuentasBancos.Dispose() + End If 'params.Add(New ReportParameter("FechaOC", ObjOC.Fecha.ToShortDateString)) Dim RutaFisicaSol As String = String.Format("Empresas\{0}\Firmas\{1}.png", EmpresaActual.CveEmpresa, CveUsuarioSol) Dim RutaVirtuaSol As String = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?P={0}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(RutaFisicaSol)) 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/MyHub.vb b/App_Code/MyHub.vb index 133da54e7..6a34d2eb9 100644 --- a/App_Code/MyHub.vb +++ b/App_Code/MyHub.vb @@ -69,13 +69,4 @@ Public Class MyHub Public Sub send(name As String, mensaje As String) Clients.All.broadcastMessage(name, mensaje) End Sub -End Class -Public Class MyhubUserIdProvider - Implements IUserIdProvider - - - Private Function IUserIdProvider_GetUserId(request As IRequest) As String Implements IUserIdProvider.GetUserId - Dim userId = Decripta(request.User.Identity.Name) 'MyCustomUserClass.FindUserId(request.User.Identity.Name) - Return userId.ToString() - End Function End Class \ No newline at end of file diff --git a/App_Code/Notificaciones.vb b/App_Code/Notificaciones.vb index 8efed087d..6c5d7902a 100644 --- a/App_Code/Notificaciones.vb +++ b/App_Code/Notificaciones.vb @@ -44,3 +44,12 @@ Public Class Notificaciones ' Clients.Users(Para).AlertaVentana(Titulo, Message, DirectCast(Tipo, Integer), timeoutseconds) 'End Sub End Class +Public Class MyhubUserIdProvider + Implements IUserIdProvider + + + Private Function IUserIdProvider_GetUserId(request As IRequest) As String Implements IUserIdProvider.GetUserId + Dim userId = Decripta(request.User.Identity.Name) 'MyCustomUserClass.FindUserId(request.User.Identity.Name) + Return userId.ToString() + End Function +End Class diff --git a/App_Code/modExtensiones.vb b/App_Code/modExtensiones.vb index 1b799cb7d..0c2141fd0 100644 --- a/App_Code/modExtensiones.vb +++ b/App_Code/modExtensiones.vb @@ -192,10 +192,10 @@ Namespace Extensiones Public Sub GuardaLogAD(Mensaje As String, Optional Archivo As String = "Log") Dim ArchivoW As StreamWriter - Dim MensajeFormato = $"{Chr(13)}{Chr(10)}Log: {Mensaje} | Fecha:{Now.ToString("dd/MM/yyyy HH:mm")}" + Dim MensajeFormato = String.Format("{0}{1}Log: {2} | Fecha:{3}", Chr(13), Chr(10), Mensaje, Now.ToString("dd/MM/yyyy HH:mm")) Try - ArchivoW = New StreamWriter($"{AppDomain.CurrentDomain.BaseDirectory}\Log\{Archivo}.txt", True, System.Text.Encoding.UTF8) + ArchivoW = New StreamWriter(String.Format("{0}\Log\{1}.txt", AppDomain.CurrentDomain.BaseDirectory, Archivo), True, System.Text.Encoding.UTF8) Catch ex As UnauthorizedAccessException 'Alert("No hay permisos para guardar en el Log.", Extensiones.TipoMensaje.MsgError) Exit Sub @@ -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/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index c877371bc..25ce1b6b2 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -941,7 +941,8 @@ Partial Class Bancos_IE HplListaProveedores.NavigateUrl = $"/Compras/PopUpVerFactura.aspx?P={StrEncript}" Else - HplListaProveedores.NavigateUrl = String.Format("/Bancos/Reportes.aspx?Opcion=ImprimeMov&CveIE={0}", ObjIE.CveIE) + Dim StrEncript As String = Encripta($"OP=ImprimeMov&CveIE={ObjIE.CveIE}") + HplListaProveedores.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", StrEncript) End If If CveIEDeposito2 > 0 Then divDepositado.Visible = True @@ -2492,7 +2493,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 diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb index 1cc586d2c..67a28c29a 100644 --- a/Bancos/ProveedoresAbonar.aspx.vb +++ b/Bancos/ProveedoresAbonar.aspx.vb @@ -2292,7 +2292,7 @@ Partial Class Bancos_ProveedoresAbonar 'If Archivo.Exists Then Msg.AppendFormat("
  • Imprimir movimiento
    • ", Encripta(String.Format("OP=IECHEQUE&CVEIE={0}", CveIE))) 'End If - Msg.AppendFormat("
  • Listado
    • ", CveIE) + Msg.AppendFormat("
  • Listado
    • ", Encripta(String.Format("Opcion=ImprimeMov&CveIE={0}", CveIE))) If IDPoliza > 0 Then Msg.AppendFormat("
  • Póliza
    • ", IDPoliza) Dim Mensaje As String = String.Format("
    El Documento se generó correctamente.


    Descargas:", Msg.ToString) 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 @@ - @@ -718,7 +720,6 @@
    Cantidad -
    @@ -761,8 +762,6 @@ Cant.: - -
    @@ -884,8 +883,7 @@
    diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb index 6fd5a6a6f..d68c26807 100644 --- a/Inventarios/EntregaAlmacen.aspx.vb +++ b/Inventarios/EntregaAlmacen.aspx.vb @@ -2,16 +2,14 @@ Option Explicit On Imports System.Data -Imports System.IO -Imports System.Linq -Imports CrystalDecisions.[Shared].Json +Imports System.IO Imports Extensiones Imports Microsoft.Reporting.WebForms Partial Class Inventarios_EntregaAlmacen - Inherits ClsPaginas - + Inherits ClsPaginas + #Region "PROPIEDADES" Private Property CveVentaAD As Integer Get @@ -245,10 +243,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 +254,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 @@ -318,6 +316,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() @@ -325,11 +324,11 @@ Partial Class Inventarios_EntregaAlmacen LimpiaCampos() - End Sub - + End Sub + #End Region - - + + #Region " CARGA PARAMETROS - EXCLUSIVO USO AD " Private Sub CargaParametrosAD() @@ -347,9 +346,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() @@ -467,11 +466,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) @@ -917,14 +916,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) @@ -951,10 +950,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 @@ -1159,11 +1158,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 @@ -1351,9 +1350,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) @@ -1487,12 +1486,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) @@ -2422,12 +2421,19 @@ 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 CvePaqueteria As Integer = GlobalDTPaqueterias().FiltroPrimeroValor("CvePaqueteria", String.Format("CveEmpresa={0} AND TipoPaqueteria = 0", UsuarioActual.CveEmpresa)).ToEntero + + Dim CvePaqueteriaGuia As Integer = ObjGeneral.AddPaqueteriasGuias(CvePaqueteria, 9, CveEstatus, CveSubProyecto, Fecha, "", "", 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) @@ -2754,6 +2760,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("ClienteNombre"), 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 @@ -3050,7 +3103,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/EntregasPorRealizar.aspx b/Inventarios/EntregasPorRealizar.aspx index 9b5943b7e..98b35e26b 100644 --- a/Inventarios/EntregasPorRealizar.aspx +++ b/Inventarios/EntregasPorRealizar.aspx @@ -15,11 +15,23 @@ - <%--Paqueterías Guías--%>Entrega Interna + Entregas por Realizar + + + + +
  • + +
    • +     + + + +     @@ -70,9 +82,10 @@   + -   +   diff --git a/Inventarios/EntregasPorRealizar.aspx.cs b/Inventarios/EntregasPorRealizar.aspx.cs index bf831e4e3..47ab0e863 100644 --- a/Inventarios/EntregasPorRealizar.aspx.cs +++ b/Inventarios/EntregasPorRealizar.aspx.cs @@ -6,9 +6,22 @@ using System.Web.UI; using System.Web.UI.WebControls; using System.Data; using Extensiones; +using Microsoft.Reporting.WebForms; public partial class Inventarios_EntregasPorRealizar : ClsPaginas { + private DataTable DtPaqueteriasGuias + { + get + { + return (ViewState["DtPaqueteriasGuias"] == null) ? null : (DataTable)ViewState["DtPaqueteriasGuias"]; + } + set + { + ViewState["DtPaqueteriasGuias"] = value; + } + } + protected void Page_Load(object sender, EventArgs e) { if (!IsPostBack) @@ -65,6 +78,7 @@ public partial class Inventarios_EntregasPorRealizar : ClsPaginas if (ObjGeneral.GetEntregasPorRealizar(UsuarioActual.CveEmpresa)) { GvPaqueteriasGuias.DataSource = ObjGeneral.DtResultados; + DtPaqueteriasGuias = ObjGeneral.DtResultados; GvPaqueteriasGuias.DataBind(); } ObjGeneral.Dispose(); @@ -76,4 +90,15 @@ public partial class Inventarios_EntregasPorRealizar : ClsPaginas DdlUsuario.DataBind(); DdlUsuario.Items.Insert(0, new ListItem("Seleccione", "-1")); } + + protected void LnkImprimir_Click(object sender, EventArgs e) + { + List RepParams = new List(); + string Usuario = DdlUsuario.SelectedValue.ToEntero() > 0 ? DdlUsuario.SelectedItem.Text : "Todos"; + RepParams.Add(new ReportParameter("Fecha", DateTime.Today.ToString())); + RepParams.Add(new ReportParameter("AsignadoA", Usuario)); + RepParams.Add(new ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)); + + ImprimirPDF($"Empresas/{UsuarioActual.CveEmpresa}/Formatos/EntregasPorRealizar.rdlc", DtPaqueteriasGuias, RepParams, "Entregas por realizar", "PDF",RDSName:"DsInventarios"); + } } \ No newline at end of file diff --git a/Inventarios/PaquetesArmadoDesarmado.aspx.vb b/Inventarios/PaquetesArmadoDesarmado.aspx.vb index 54ec0779b..ba212c0e1 100644 --- a/Inventarios/PaquetesArmadoDesarmado.aspx.vb +++ b/Inventarios/PaquetesArmadoDesarmado.aspx.vb @@ -713,8 +713,8 @@ Partial Class Inventarios_PaquetesArmadoDesarmado If e.Row.RowType = DataControlRowType.DataRow Then If e.Row.DBCampo("Inv_CveMetodoInventario") = "5" Then - e.Row.FCButton("BtnSerieLote").Visible = True - e.Row.FCButton("BtnSerieLote").CommandArgument = String.Format("{0}°{1}°{2}°{3}°{4}°1", e.Row.DBCampo("CvePS"), e.Row.DBCampo("CveUM"), e.Row.DBCampo("PS"), e.Row.DBCampo("Cantidad"), e.Row.DBCampo("Consec")) + e.Row.FCButton("BtnSerie").Visible = True + e.Row.FCButton("BtnSerie").CommandArgument = String.Format("{0}°{1}°{2}°{3}°{4}°1", e.Row.DBCampo("CvePS"), e.Row.DBCampo("CveUM"), e.Row.DBCampo("PS"), e.Row.DBCampo("Cantidad"), e.Row.DBCampo("Consec")) e.Row.FCLinkButton("BtnSeriePaquete").CommandArgument = e.Row.DBCampo("Consec") 'Dim Contador = DtDatosDetalle.FiltraParametros(String.Format("ConsecId = {0}", e.Row.DBCampo("Consec"))).Rows.Count 'e.Row.FCTextBox("TbCantidadF").Text = Contador.ToString @@ -727,7 +727,7 @@ Partial Class Inventarios_PaquetesArmadoDesarmado GvDatosArmado.Columns(4).Visible = True Else - e.Row.FCButton("BtnSerieLote").Visible = False + e.Row.FCButton("BtnSerie").Visible = False End If ''FUNCIONALIDAD PISTOLA DE CODIGOS @@ -744,10 +744,10 @@ Partial Class Inventarios_PaquetesArmadoDesarmado If e.Row.RowType = DataControlRowType.DataRow Then If e.Row.DBCampo("Inv_CveMetodoInventario") = "5" Then - e.Row.FCButton("BtnSerieLote").Visible = True - e.Row.FCButton("BtnSerieLote").CommandArgument = String.Format("{0}°{1}°{2}°{3}°{4}°2", e.Row.DBCampo("CvePS"), e.Row.DBCampo("CveUM"), e.Row.DBCampo("PS"), e.Row.DBCampo("Cantidad"), e.Row.DBCampo("Consec")) + e.Row.FCButton("BtnSerie").Visible = True + e.Row.FCButton("BtnSerie").CommandArgument = String.Format("{0}°{1}°{2}°{3}°{4}°2", e.Row.DBCampo("CvePS"), e.Row.DBCampo("CveUM"), e.Row.DBCampo("PS"), e.Row.DBCampo("Cantidad"), e.Row.DBCampo("Consec")) Else - e.Row.FCButton("BtnSerieLote").Visible = False + e.Row.FCButton("BtnSerie").Visible = False End If @@ -770,7 +770,7 @@ Partial Class Inventarios_PaquetesArmadoDesarmado DtDatosDetalle.Columns.Add("SeriePaquete", GetType(String)) End If End Sub - Protected Sub BtnSerieLote_Click(sender As Object, e As EventArgs) + Protected Sub BtnSerie_Click(sender As Object, e As EventArgs) Dim Argumentos = CType(sender, Button).CommandArgument.Split("°"c) diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb index f0f919c1a..d63df0d6a 100644 --- a/Inventarios/RecepcionAlmacen.aspx.vb +++ b/Inventarios/RecepcionAlmacen.aspx.vb @@ -1019,7 +1019,7 @@ Partial Class Inventarios_RecepcionAlmacen CveImportacionSurtir = pCveImportacion CveImportacionProveedor = ddlProveedor.SelectedValue.ToEntero CveImportacionCompra = DdlFactura.SelectedValue.ToEntero - LbProveedor.Text = ObjCompras.DtResultados.Rows(0)("Aduanal").ToString + LbProveedor.Text = ObjCompras.DtResultados.Rows(0)("ProveedorCompra").ToString HLFolio.Text = ObjCompras.DtResultados.Rows(0)("PedimentoDescripcion").ToString If UsuarioActual.TienePermisoProceso(201) Then HLFolio.NavigateUrl = $"/Compras/Importaciones.aspx?CveImportacion={CveImportacionSurtir}" @@ -3100,12 +3100,13 @@ Partial Class Inventarios_RecepcionAlmacen End If Dim CvePrePoliza As Integer = 0 Dim UsaComplementariaCostoIndirecto As Boolean = False + Dim ConceptoPrePoliza As String = LbProveedor.Text If UsuarioActual.CveEmpresa = 119 Then UsaComplementariaCostoIndirecto = False Dim PorcentajeCompraImportacion As Decimal = 0 ' si hay mas de una factura de importación saber lo que se está recibiendo 'SE REGISTRAN LAS PREPOLIZAS If Not ErrorMovInv Then - CvePrePoliza = ObjConta.AddPrePolizas("Inventario/RecepcionAlmacen CostoInd", 74, 0, 0, 1, FechaMovto, TxtObservaciones.Text.Trim, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) + CvePrePoliza = ObjConta.AddPrePolizas("Inventario/RecepcionAlmacen CostoInd", 74, 0, 0, 1, FechaMovto, ConceptoPrePoliza, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Dim DtTempCompras As DataTable = Nothing PorcentajeCompraImportacion = 1 If CveFleteSurtir > 0 Then diff --git a/Inventarios/RepMovimientosSalida.aspx b/Inventarios/RepMovimientosSalida.aspx index 4a75260b7..5a5fe95da 100644 --- a/Inventarios/RepMovimientosSalida.aspx +++ b/Inventarios/RepMovimientosSalida.aspx @@ -63,21 +63,68 @@ + +
    + + + +
    + +
    + + + + + + + + + +
    + + + -
    + -
    + +
    +
    +
    +
    + + Información: + +
    +
    +
    + +
    " style="display: inline-block; margin-right: -20px; width: 150px;" /> " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info">
    -
    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/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 4ac3f5c5b..afbf7ad7b 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -382,6 +382,13 @@ Partial Class PopUpVerFactura End If End If + 'Imprime Movimiento de IE + If UrlParametros("OP").ToString = "ImprimeMov" Then + If UrlParametros("CVEIE") IsNot Nothing AndAlso UrlParametros("CVEIE").ToString.ToEntero > 0 Then + ImprimeMov(UrlParametros("CVEIE").ToString.ToEntero) + End If + End If + 'IMPRIME DEPOSITOS CAJA If UrlParametros("OP").ToString = "DC" Then If UrlParametros("CVEIE") IsNot Nothing AndAlso UrlParametros("CVEIE").ToString.ToEntero > 0 Then @@ -3922,10 +3929,171 @@ Partial Class PopUpVerFactura ObjIE.Dispose() - End Sub - + End Sub + + Private Sub ImprimeMov(CveIE As Integer) + Dim ObjIE As New ClsBancos() + Dim DtGvRH As New DataTable + Dim DtComprobacion As New DataTable + Dim ParamComprobacion As New DataTable + + 'Movimientos Relacionados de Comprobacion - Hijo + If ObjIE.GetBancosIEMovimientosHijo(CveIE, UsuarioActual.CveEmpresa) Then + DtGvRH = ObjIE.DtResultados + End If + + If DtGvRH IsNot Nothing AndAlso DtGvRH.Rows.Count > 0 Then + + If ObjIE.GetBancosIE(CveIE, UsuarioActual.CveEmpresa) Then + ParamComprobacion = ObjIE.DtResultados + End If + + Dim ObjMov As New ClsMovimientos + For Each dr As DataRow In DtGvRH.Rows + If ObjMov.GetPersonalCajaChica(UsuarioActual.CveEmpresa, dr("CveCompra").ToString.ToEntero) Then + DtComprobacion.Merge(ObjMov.DtResultados.FiltraParametros("CveCompra =" + dr("CveCompra").ToString)) + End If + Next + ObjMov.Dispose() + + Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos\Reembolso.rdlc", UsuarioActual.Empresa.Ruta)) + Dim Imagen As New System.IO.FileInfo(String.Format("{0}Logo.png", UsuarioActual.Empresa.Ruta)) + Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + + Dim params As New List(Of ReportParameter) + + If Archivo.Exists Then + + If UsuarioActual.CveEmpresa = 72 Then + params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) + params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) + params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToString)) + params.Add(New ReportParameter("CveCajaChica", DtComprobacion.Rows(0)("CveCajaChica").ToString)) + params.Add(New ReportParameter("CveFyE", "0")) ' + + params.Add(New ReportParameter("cuentaRetiro", "Cuenta retiro: " & ParamComprobacion.Rows(0)("BancoNumCuentaMoneda").ToString)) + params.Add(New ReportParameter("CajaChica", "Caja chica: " & ParamComprobacion.Rows(0)("BancoNumCuentaMoneda").ToString)) + params.Add(New ReportParameter("observaciones", "Observaciones: " & ParamComprobacion.Rows(0)("Observaciones").ToString)) + params.Add(New ReportParameter("folio", ParamComprobacion.Rows(0)("Folio").ToString)) + params.Add(New ReportParameter("fecha", ParamComprobacion.Rows(0)("FechaDocumento").ToString)) + params.Add(New ReportParameter("importe", ParamComprobacion.Rows(0)("Importe").ToString)) + params.Add(New ReportParameter("TotAbono", DtComprobacion.SUM("Abonado").ToString)) + + ImprimirPDF(String.Format("{0}Formatos\Reembolso.rdlc", UsuarioActual.Empresa.Ruta), DtComprobacion, params, String.Format("IE{0}", CveIE), Formato:="PDF") + Else + params.Add(New ReportParameter("Numero", "")) ' + params.Add(New ReportParameter("Anio", DtComprobacion.FiltraParametros("CveCompra > 0").MAX("Fecha").ToDate.Year.ToString)) + params.Add(New ReportParameter("Nombre", DtComprobacion.MAX("SubProyecto"))) + params.Add(New ReportParameter("Fecha", Now.Date.ToString)) + params.Add(New ReportParameter("Elaboro", "")) + params.Add(New ReportParameter("Autorizo", "")) + params.Add(New ReportParameter("ElaboroPuesto", "")) + params.Add(New ReportParameter("AutorizoPuesto", "")) + ImprimirPDF(String.Format("{0}Formatos\Reembolso.rdlc", UsuarioActual.Empresa.Ruta), DtComprobacion.FiltraParametros("CveCompra > 0"), params, String.Format("IE{0}", CveIE), RDSName:="DsCompras") + End If + Else + params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) + params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) + params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToString)) + + params.Add(New ReportParameter("cuentaRetiro", "Cuenta retiro: " & ParamComprobacion.Rows(0)("BancoNumCuentaMoneda").ToString)) + params.Add(New ReportParameter("CajaChica", "Caja chica: " & ParamComprobacion.Rows(0)("BancoNumCuentaMoneda").ToString)) + params.Add(New ReportParameter("observaciones", "Observaciones: " & ParamComprobacion.Rows(0)("Observaciones").ToString)) + params.Add(New ReportParameter("folio", ParamComprobacion.Rows(0)("Folio").ToString)) + params.Add(New ReportParameter("fecha", ParamComprobacion.Rows(0)("FechaDocumento").ToString)) + params.Add(New ReportParameter("importe", ParamComprobacion.Rows(0)("Importe").ToString)) + params.Add(New ReportParameter("TotAbono", DtComprobacion.SUM("Abonado").ToString)) + + If Imagen.Exists Then + params.Add(New ReportParameter("LogoPath", logouri)) + Else + params.Add(New ReportParameter("LogoPath", "")) + End If + + ImprimirPDF("Empresas/Grales/Formatos/RepRembolsosComprobaciones.rdlc", DtComprobacion, params, String.Format("IE{0}", CveIE), Formato:="PDF") + End If + Else + If ObjIE.GetBancosIE(CveIE, UsuarioActual.CveEmpresa) Then + If ObjIE.DtResultados.Rows.Count > 0 Then + + Dim reportDataSetsList As New List(Of ReportDataSource) + + Dim dtMovs As New DataTable + Dim Mov As New ClsContabilidad + If Mov.GetPrePolizasDetalle(-1, CveIE) Then + + dtMovs = Mov.DtResultados.FiltraParametros("CveConceptoContable IN (17,2,312)") + + If Not UsuarioActual.CveEmpresa.Contiene(13, 83) Then + 'CONVIERTO A PESOS CUANDO SE PAGA CON PESOS FACTURAS DE DOLARES + For Each Dr As DataRow In dtMovs.Rows + Dr("Importe") = Dr("ImporteMN").ToString.ToDecimal + Dr("ImporteNC") = Dr("ImporteNC").ToString.ToDecimal * Dr("TC").ToString.ToDecimal + Dr("Total") = Dr("Total").ToString.ToDecimal * Dr("TC").ToString.ToDecimal + Dr("Saldo") = Dr("Saldo").ToString.ToDecimal * Dr("TC").ToString.ToDecimal + Next + End If + + End If + Mov.Dispose() + Dim rds = New ReportDataSource("DataSet1", dtMovs) + reportDataSetsList.Add(rds) + + Dim dtnc As New DataTable + Dim ObjCompra As New ClsCompras() + If ObjCompra.GetComprasNotasCredito(-1, -1, CveIE) Then + dtnc = ObjCompra.DtResultados + End If + ObjCompra.Dispose() + Dim rds2 = New ReportDataSource("DataSet2", dtnc) + reportDataSetsList.Add(rds2) + dtnc.Dispose() + + Dim paramList As New List(Of ReportParameter) + With paramList + 'Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + 'Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + + Dim LogoRutaFisica As String = String.Format("Empresas\{0}\Logo.png", UsuarioActual.CveEmpresa) + Dim logouri = String.Format("{0}://{1}:{2}/ashx/sigfiles.ashx?P={3}", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, Encripta(LogoRutaFisica)) + Dim Imagen As New System.IO.FileInfo(String.Format("{0}Logo.png", UsuarioActual.Empresa.Ruta)) + .Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) + .Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString)) + .Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) + .Add(New ReportParameter("Cuenta", ObjIE.NumCuenta, True)) + .Add(New ReportParameter("Fecha", ObjIE.FechaDocumento.ToString("dd/MM/yyyy"), True)) + .Add(New ReportParameter("Paguese", ObjIE.PagueseA.Trim, True)) + .Add(New ReportParameter("Importe", ObjIE.Importe.ToString, True)) + .Add(New ReportParameter("Observaciones", ObjIE.Observaciones, True)) + .Add(New ReportParameter("Folio", ObjIE.Folio, True)) + .Add(New ReportParameter("MonedaAbreviatura", ObjIE.MonedaAbreviatura, True)) + + + If Imagen.Exists Then + .Add(New ReportParameter("LogoPath", logouri)) + Else + .Add(New ReportParameter("LogoPath", "")) + End If + + End With + dtMovs.Dispose() + + ImprimirPDF("Empresas\Grales\Formatos\rptChequeMovimientos.rdlc", reportDataSetsList, paramList, ObjIE.Folio, "PDF") + + End If + + End If + End If + + DtGvRH.Dispose() + DtComprobacion.Dispose() + ParamComprobacion.Dispose() + + ObjIE.Dispose() + End Sub + #End Region - + #Region "OP = RECIBO DE PAGOS" Private Sub ImprimirReciboDePagos(CveIE As Integer, CveVenta As Integer) diff --git a/Compras/ReembolsosComprobaciones.aspx.vb b/Compras/ReembolsosComprobaciones.aspx.vb index 6b3f13f29..87e301517 100644 --- a/Compras/ReembolsosComprobaciones.aspx.vb +++ b/Compras/ReembolsosComprobaciones.aspx.vb @@ -1432,11 +1432,11 @@ Partial Class Compras_ReembolsosComprobaciones Dim Mensaje As New StringBuilder If CvePrePolizaExcedente > 0 Then - Mensaje.AppendFormat("Abono Registrado Correctamente.

    Cheque: {1}

    Imprimir", CveIEExcedente, TxtFolio.Text) + Mensaje.AppendFormat("Abono Registrado Correctamente.

    Cheque: {1}

    Imprimir", CveIEExcedente, TxtFolio.Text, Encripta(String.Format("Opcion=ImprimeMov&CveIE={0}", CveIEExcedente))) Mensaje.AppendFormat("

    Póliza: {1}
    ", ObjMov.ContaIdPoliza, ObjMov.ContaFolio) Alert(Mensaje.ToString, TipoMensaje.MsgInformacion) Else - Mensaje.AppendFormat("Abono Registrado Correctamente.

    Imprimir", CveIERegistrado) + Mensaje.AppendFormat("Abono Registrado Correctamente.

    Imprimir", Encripta(String.Format("Opcion=ImprimeMov&CveIE={0}", CveIERegistrado))) If CvePrePolizaIERegistrado > 0 Then Mensaje.AppendFormat("

    Póliza: {1}
    ", ObjMov.ContaIdPoliza, ObjMov.ContaFolio) End If diff --git a/Contabilidad/RegPoliza.aspx.vb b/Contabilidad/RegPoliza.aspx.vb index afeb6b527..ecd4b6116 100644 --- a/Contabilidad/RegPoliza.aspx.vb +++ b/Contabilidad/RegPoliza.aspx.vb @@ -1765,13 +1765,14 @@ Partial Class RegPoliza Try Select Case Tipo Case "EXCEL" - Conexion = New Odbc.OdbcConnection("Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DBQ=" + Ruta + FileName + ";") - Conexion.Open() - Dim cmd = Conexion.CreateCommand() - cmd.CommandType = CommandType.Text - cmd.CommandText = "Select * FROM [Hoja1$]" - Dim DataAdapter = New Odbc.OdbcDataAdapter(cmd) - DataAdapter.Fill(dt) + 'Conexion = New Odbc.OdbcConnection("Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DBQ=" + Ruta + FileName + ";") + 'Conexion.Open() + 'Dim cmd = Conexion.CreateCommand() + 'cmd.CommandType = CommandType.Text + 'cmd.CommandText = "Select * FROM [Hoja1$]" + 'Dim DataAdapter = New Odbc.OdbcDataAdapter(cmd) + 'DataAdapter.Fill(dt) + dt = Extensiones.ModExtensiones.ReadExcelFile(String.Format("{0}{1}", Ruta, FileName), True) Case Else Alert("El archivo no tiene el formato correcto", TipoMensaje.MsgError) Exit Sub diff --git a/Default2.aspx b/Default2.aspx new file mode 100644 index 000000000..622c9e37e --- /dev/null +++ b/Default2.aspx @@ -0,0 +1,20 @@ +<%@ Page Title="" Language="C#" MasterPageFile="~/Site.master" AutoEventWireup="true" CodeFile="Default2.aspx.cs" Inherits="Default2" %> + + + + + + + + + + + + + + + + + + + diff --git a/Default2.aspx.cs b/Default2.aspx.cs new file mode 100644 index 000000000..030cb567b --- /dev/null +++ b/Default2.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 Default2 : System.Web.UI.Page +{ + protected void Page_Load(object sender, EventArgs e) + { + + } +} \ No newline at end of file diff --git a/Empresas/13/Formatos/OC.rdlc b/Empresas/13/Formatos/OC.rdlc index 281ecf1a6..d4506917f 100644 --- a/Empresas/13/Formatos/OC.rdlc +++ b/Empresas/13/Formatos/OC.rdlc @@ -3089,6 +3089,46 @@ 2pt + + true + true + + + + + Cuentas Bancarias: + + + + =Parameters!Cuentas.Value + HTML + + + + + + 2pt + 2pt + 2pt + 2pt + + 5.19589in + + + + + + Textbox8 + + + + + + + + + #bbd915 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + Folio + + + + + + + Textbox1 + + + + + + + + + #bbd915 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + Fecha + + + + + + + Textbox3 + + + + Black + + 1pt + + + Black + + 1pt + + #bbd915 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + Nombre + + + + + + + + + + + + + + + + Textbox7 + + + + Black + + 1pt + + + Black + + 1pt + + #bbd915 + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + + + + + Contacto + + + + + + + Textbox5 + + + + Black + + 1pt + + + Black + + 1pt + + #bbd915 + 2pt + 2pt + 2pt + 2pt + + + + + + + + 0.4095cm + + + + + true + true + + + + + =Fields!Num.Value + + + + + + + Num + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + =Fields!serieFolio.Value + + + + + + + serieFolio + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + =Fields!fecha.Value + + + + + + + fecha + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + + + + + =Fields!nombre.Value + + + + + + + nombre + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + true + true + true + + + + + =Fields!contacto.Value + + + + + + + contacto + + + Bottom + 2pt + 2pt + =IIf(rownumber(nothing) = 1, "2pt", "0pt") + + + + + + + + + + + + + + + + + + + + + After + + + + + + + DsInventarios + 0.07056cm + 0.03488cm + 0.92264cm + 20.29479cm + + + + + + true + true + + + + + Recibido por: + + + + + + + + + + + + 2pt + 2pt + 2pt + 2pt + + + + 1.22221in + + + + + + + Textbox2 + 0.19477cm + 2.55499cm + 1.1027cm + 15.46868cm + + + 2pt + 2pt + 2pt + 2pt + + + + Embedded + Logo1 + FitProportional + 0.07668in + 0cm + 0.86392in + 1.0059in + 1 + + + + + + true + true + + + + + ENTREGAS POR REALIZAR + + + + + + + Textbox4 + 1.40331cm + 7.12631cm + 0.98582cm + 6.32604cm + 2 + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha: + + + + + + + + =Parameters!Fecha.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Asignado a: + + + + + + + + =Parameters!AsignadoA.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + + + + 0.87489cm + true + true + + + true + true + + + + + Usuario: + + + + =Parameters!UsuarioImprimio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha Impresión: + + + + =Now + + + + + + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + ="Página " & Globals.PageNumber & " de " & Globals.TotalPages + + + + + + + Textbox35 + 0.24341cm + 17.71971cm + 0.41981cm + 2.5cm + 2 + + + 2pt + 2pt + 2pt + 2pt + + + + 0.06702cm + 0.05952cm + 0cm + 20.27015cm + 3 + + + + + + + + + + 25cm + 21.59cm + 0.5cm + 0.5cm + 0.5cm + 0.5cm + 0.13cm + + + true + true + + + + + Cuentas Bancarias: + + + + =Parameters!Cuentas.Value + HTML + + + + + + 2pt + 2pt + 2pt + 2pt + + 5.1933in + + + Textbox3 + + + + + + 2pt + 2pt + 2pt + 2pt + + + + @@ -47,16 +82,16 @@ - 3.5579cm + 2.36727cm - 7.63463cm + 7.23964cm - 2.64509cm + 2.57894cm - 2.86998cm + 2.34081cm @@ -172,7 +207,10 @@ - =Switch(Fields!FueValidado.Value = "1","Validado", Fields!FueValidado.Value = "2","Cancelada", Fields!FueValidado.Value = "3","Omitida") + =Switch(Fields!FueValidado.Value = "1","Validado", +Fields!FueValidado.Value = "2","Cancelada", +Fields!FueValidado.Value = "3","Omitida", +1=1,"No validado") @@ -378,7 +419,7 @@ @@ -389,16 +430,51 @@ 2pt - true + + + + 2.33715cm + + + true + true + + + + + =Fields!SerieFolio.Value + + + + + + 2pt + 2pt + 2pt + 2pt + + + + + + DataSet1 0.06614cm 1.2cm - 19.04475cm + 19.0265cm @@ -805,6 +881,10 @@ /* Local Query */ + + TipoComprobante + System.String + SerieFolio System.String 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/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/Inicio.aspx b/Inicio.aspx index b45294990..bc2192868 100644 --- a/Inicio.aspx +++ b/Inicio.aspx @@ -1144,7 +1144,7 @@
    - + diff --git a/Inventarios/EntradasSalidas.aspx b/Inventarios/EntradasSalidas.aspx index 393d66ab9..996067e98 100644 --- a/Inventarios/EntradasSalidas.aspx +++ b/Inventarios/EntradasSalidas.aspx @@ -1325,7 +1325,7 @@ - +
    @@ -1342,6 +1342,7 @@
    +
    @@ -1350,7 +1351,7 @@
    diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb index 2146c8de4..977f91881 100644 --- a/Inventarios/EntradasSalidas.aspx.vb +++ b/Inventarios/EntradasSalidas.aspx.vb @@ -2165,6 +2165,10 @@ Partial Class Inventarios_EntradasSalidas 'TrLote2.Visible = True End If + If CBool(dr("AplicaSeccion")) Then + divSeccionAlmacen.Visible = True + + End If End If End If @@ -2231,7 +2235,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 @@ -2370,6 +2374,9 @@ Partial Class Inventarios_EntradasSalidas TxtObservacionesdetalle.Text = GvRow.DataKey("Observaciones") DdlSeccionAlmacen.SelectedValueExist(GvRow.DataKey("CveSeccionAlmacen")) LkAgregarDetalle.Text = "Actualizar" + Dim Origen As Integer = GlobalDTInvConceptos.FiltroPrimeroValor("Origen", String.Format("CveConcepto = {0}", DdlConcepto.SelectedValue)).ToEntero + divPrecio.Visible = Origen = 1 + txtPrecio.Visible = Origen = 1 UpAgregar.Update() RegistraScript("$('#ModalAgregar').modal()") CargaGVM(DtMovimientos.FiltraParametros("Estatus <> 'E' ")) @@ -2392,6 +2399,9 @@ Partial Class Inventarios_EntradasSalidas TxtnSerie.Text = GvRow.DataKey("Serie") TxtObservacionesdetalle.Text = GvRow.DataKey("Observaciones") DdlSeccionAlmacen.SelectedValueExist(GvRow.DataKey("CveSeccionAlmacen")) + Dim Origen As Integer = GlobalDTInvConceptos.FiltroPrimeroValor("Origen", String.Format("CveConcepto = {0}", DdlConcepto.SelectedValue)).ToEntero + divPrecio.Visible = Origen = 1 + txtPrecio.Visible = Origen = 1 LkAgregarDetalle.Text = "Actualizar" UpAgregar.Update() RegistraScript("$('#ModalAgregar').modal()") @@ -4198,7 +4208,9 @@ Partial Class Inventarios_EntradasSalidas Else VisualizaPUExtranjero(False) End If - + Dim Origen As Integer = GlobalDTInvConceptos.FiltroPrimeroValor("Origen", String.Format("CveConcepto = {0}", DdlConcepto.SelectedValue)).ToEntero + divPrecio.Visible = Origen = 1 + txtPrecio.Visible = Origen = 1 UpAgregar.Update() End Sub diff --git a/Inventarios/EntregaAlmacen.aspx b/Inventarios/EntregaAlmacen.aspx index b3623247f..0b3268214 100644 --- a/Inventarios/EntregaAlmacen.aspx +++ b/Inventarios/EntregaAlmacen.aspx @@ -242,11 +242,13 @@
    -
    - - - -
    + + + + + + +
    # Cajas: - - +
    +
    @@ -94,6 +141,13 @@ + + + + + + + diff --git a/Inventarios/RepMovimientosSalida.aspx.cs b/Inventarios/RepMovimientosSalida.aspx.cs index 399526c7f..c845da4e0 100644 --- a/Inventarios/RepMovimientosSalida.aspx.cs +++ b/Inventarios/RepMovimientosSalida.aspx.cs @@ -16,18 +16,50 @@ public partial class Inventarios_RepMovimientosSalida : ClsPaginas { txtFechaI.Text = DateTime.Now.FirstDayOfMonth().ToShortDateString(); txtFechaF.Text = DateTime.Now.ToShortDateString(); + DdlSubProyecto.DataSource = get_GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa); + DdlSubProyecto.DataBind(); + + //Cargo Clasificaciones + DdlClasificacion.DataSource = get_GlobalDTClasificaciones(UsuarioActual.CveEmpresa); + DdlClasificacion.DataBind(); + + DdlClientes.setEsWebService(true); + } private void Consulta() { + int tCveCliente = -1; + int tCveGrupo = -1; + if (DdlClientes.SelectedValue.ToEntero() > 0) tCveCliente = DdlClientes.SelectedValue.ToEntero(); + if (DdlGrupo.SelectedValue.ToEntero() > 0) tCveGrupo = DdlGrupo.SelectedValue.ToEntero(); + ClsInventarios ObjInv = new ClsInventarios(); - if (ObjInv.GetRepMovimientosSalida(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), UsuarioActual.CveEmpresa)) + if (ObjInv.GetRepMovimientosSalida(txtFechaI.Text.ToDate(), txtFechaF.Text.ToDate(), DdlSubProyecto.SelectedValue.ToEntero(), tCveCliente, DdlClasificacion.SelectedValue.ToEntero(), DdlGrupo.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa)) { - GvDatos.DataSource = ObjInv.DtResultados; + if (tCveGrupo == 1) + GvDatos.DataSource = ObjInv.DtResultados; + else + GvGrupo.DataSource = ObjInv.DtResultados; } ObjInv.Dispose(); GvDatos.DataBind(); + GvGrupo.DataBind(); UpDatos.Update(); + + if (DdlGrupo.SelectedValue == "1") + { + TbDetalle.Visible = true; + GvDatos.Visible = true; + GvGrupo.Visible = false; + } + else + { + TbDetalle.Visible = false; + GvDatos.Visible = false; + GvGrupo.Visible = true; + } + } protected void BtnConsultar_Click(object sender, EventArgs e) @@ -48,6 +80,25 @@ public partial class Inventarios_RepMovimientosSalida : ClsPaginas } + protected void GvGrupo_RowDataBound(object sender, GridViewRowEventArgs e) + { + if (e.Row.RowType == DataControlRowType.DataRow) + { + if (e.Row.RowIndex == 0) + { + e.Row.Cells[0].Text = "Total"; + e.Row.CssClass = "Totales"; + } + else + { + if (e.Row.DBCampo("Grupo2") == "" && e.Row.DBCampo("Grupo1") != "") + { + e.Row.CssClass = "SubTotales"; + } + } + } + } + public override void VerifyRenderingInServerForm(Control control) { //base.VerifyRenderingInServerForm(control); @@ -55,6 +106,14 @@ public partial class Inventarios_RepMovimientosSalida : ClsPaginas protected void LnkExcel_Click(object sender, EventArgs e) { - GvDatos.ExportToExcelG("Movimientos de Salida", "Movimientos de Salida", UsuarioActual); + if (DdlGrupo.SelectedValue == "1") + { + GvDatos.ExportToExcelG("Movimientos de Salida", "Movimientos de Salida", UsuarioActual); + } + else + { + GvGrupo.ExportToExcelG("Movimientos de Salida", "Movimientos de Salida", UsuarioActual); + } + } } \ No newline at end of file diff --git a/Inventarios/ResguardoMaterial.aspx b/Inventarios/ResguardoMaterial.aspx index 05c36bef0..a543fe7b5 100644 --- a/Inventarios/ResguardoMaterial.aspx +++ b/Inventarios/ResguardoMaterial.aspx @@ -208,7 +208,7 @@ - + diff --git a/Inventarios/ResguardoMaterial.aspx.vb b/Inventarios/ResguardoMaterial.aspx.vb index 9aabeb893..debb185dc 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) @@ -824,7 +787,7 @@ Partial Class Inventarios_ResguardoMaterial Dim Cont As Integer = 0 For Each Gvr As GridViewRow In GvMLiberacion.Rows If Gvr.FCTextBox("TxtCantidad").Text.ToDouble > 0 Then - If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, Gvr.FCTextBox("TxtCantidad").Text.ToDouble, Gvr.DataKey("CveUM").ToString.ToEntero, Gvr.DataKey("CvePS").ToString.ToEntero, Gvr.DataKey("PU").ToString.ToDecimal, -1, -1, Gvr.DataKey("SerieLote").ToString, Gvr.DataKey("Observaciones").ToString) Then + If Not ObjInventario.AddMovimientoDetalle(CveMovimientoSalida, Gvr.FCTextBox("TxtCantidad").Text.ToDouble, Gvr.DataKey("CveUM").ToString.ToEntero, Gvr.DataKey("CvePS").ToString.ToEntero, Gvr.DataKey("PU").ToString.ToDecimal, -1, -1, Gvr.DataKey("Serie").ToString, Gvr.DataKey("Observaciones").ToString) Then MensajeError = "Ocurrió un error al guardar los detalles del movimiento de salida. Por favor vuelva a intentar." TieneError = True Exit For @@ -846,7 +809,7 @@ Partial Class Inventarios_ResguardoMaterial If ObjInventario.GetMovimientosDetalle(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then Cont = 0 For Each Dr As DataRow In ObjInventario.DtResultados.Rows - If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, Dr("CveAF").ToString.ToEntero, -1, Dr("SerieLote").ToString, Dr("Observaciones").ToString) Then + If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString.ToDouble, Dr("CveUM").ToString.ToEntero, Dr("CvePS").ToString.ToEntero, Dr("PU").ToString.ToDecimal, Dr("CveAF").ToString.ToEntero, -1, Dr("Serie").ToString, Dr("Observaciones").ToString) Then TieneError = True MensajeError = "Ocurrió un error al guardar los movimientos de entrada" Exit For diff --git a/Metronic/assets/admin/layout/css/custom.css b/Metronic/assets/admin/layout/css/custom.css index 992599c9a..42984d0c5 100644 --- a/Metronic/assets/admin/layout/css/custom.css +++ b/Metronic/assets/admin/layout/css/custom.css @@ -2656,7 +2656,14 @@ select.select2-offscreen, select.select2-offscreen:focus { content: "Arrastre el archivo"; color: #808080; font-size: 30px; - margin-top: 80px; + margin-top: 15px; +} +.addropzone.dz-clickable:after { + position: absolute; + content: "o presione doble click"; + color: #808080; + font-size: 30px; + margin-top: 45px; } .mypaste { diff --git a/Nomina/Nomina2.aspx b/Nomina/Nomina2.aspx index 7ce1b7f3d..676d992db 100644 --- a/Nomina/Nomina2.aspx +++ b/Nomina/Nomina2.aspx @@ -70,26 +70,29 @@
  • - Cargar Nomina + Autorizar nómina
  • - Tablas + Carga masiva de Asistencia
  • - Autorizar + Lista de raya
  • - Carga Asistencia + Cargar masiva de conceptos
  • - Asistencia + Tablas de cálculo +
    • +
  • + Ir a asistencia
    • + + +     -
  • - Lista de Raya -
    • @@ -209,7 +212,7 @@
    - @@ -402,10 +405,12 @@
    No. Trabajador
    -
    + +
    Días Trabajados
    -
    + +
    Afi IMSS
    @@ -414,39 +419,48 @@
    Faltas
    -
    + +
    R.F.C.
    -
    + +
    Retardos
    -
    + +
    Curp
    -
    + +
    Días Vacaciones
    -
    + +
    Tipo de Pago
    -
    + +
    Días Incapacidad
    -
    + +
    Fecha de Pago
    -
    + +
    Periodo del
    -
    + + @@ -951,6 +965,20 @@
    +
    +
    +
    + + Paso 1: Descargar Plantilla +
    +
    + +
    +
    +
    + Descargar Plantilla +
    +
    <%-- -recuerda Solo editar de las tercer fila en adelante.
    -No se debe editar el nombre de la hoja 'Nomina'.
    -la columna para referenciar al emplado es la primer columna 'Codigo', la columna empleado es solo es informativa.
    @@ -958,24 +986,38 @@ -si no desea insertar un concepto puede borrar la columna.
    -no se debe borrar la columna codigo.
    --%> - +
    +
    +
    + + Paso 2: cargar plantilla +
    +
    + +
    +
    +
    + +
    +
    Formato - Formato - cargar + Procesar -
    + + + @@ -990,14 +1032,14 @@

    Cargar asistencia del periodo

    - -
    - - + +
    + + Ejercicio:
    - + Tipo:
    diff --git a/Nomina/Nomina2.aspx.cs b/Nomina/Nomina2.aspx.cs index 02decfc01..6d970144d 100644 --- a/Nomina/Nomina2.aspx.cs +++ b/Nomina/Nomina2.aspx.cs @@ -625,6 +625,7 @@ public partial class Nomina_Nomina2 : ClsPaginas int CvePeriodo = e.Row.DataKey("CvePeriodo").ToEntero(); int CveNomina = e.Row.DataKey("CveNomina").ToEntero(); string SeTimbro = e.Row.DataKey("SeTimbro").ToString(); + string NomAutorizado = e.Row.DataKey("NomAutorizado").ToString(); string Nombre = e.Row.DataKey("Nombre").ToString(); string Turno = e.Row.DataKey("Turno").ToString(); string SubProyecto = e.Row.DataKey("SubProyecto").ToString(); @@ -634,15 +635,24 @@ public partial class Nomina_Nomina2 : ClsPaginas LtlNombre.Text = String.Format("{1}", cvePersonal, Nombre); if (CveNomina > 0) { - if (SeTimbro == "False") + if (NomAutorizado == "False") { - LnkTimbrar.Visible = true; - e.Row.CssClass = "info"; + } else { - e.Row.CssClass = "success"; + if (SeTimbro == "False") + { + LnkTimbrar.Visible = true; + e.Row.CssClass = "info"; + + } + else + { + e.Row.CssClass = "success"; + } + } } diff --git a/OC/RepSolicitudesAnticipo.aspx b/OC/RepSolicitudesAnticipo.aspx index 7b3187682..1cb414460 100644 --- a/OC/RepSolicitudesAnticipo.aspx +++ b/OC/RepSolicitudesAnticipo.aspx @@ -16,6 +16,9 @@
  • Exporta Excel
    • +
  • + Descargar PDFs +
    • @@ -34,7 +37,8 @@
    - + <%----%> +
    @@ -92,7 +96,7 @@ " style="margin-top: -3px;" class="btn btn-circle btn-sm label-info">
    - diff --git a/OC/RepSolicitudesAnticipo.aspx.cs b/OC/RepSolicitudesAnticipo.aspx.cs index b8cc189ea..265ea97ca 100644 --- a/OC/RepSolicitudesAnticipo.aspx.cs +++ b/OC/RepSolicitudesAnticipo.aspx.cs @@ -9,7 +9,11 @@ using System.Web.UI.WebControls; using Extensiones; using Microsoft.Reporting.WebForms; using static Extensiones.ModExtensiones; - +using iTextSharp; +using iTextSharp.text; +using iTextSharp.text.pdf; +using System.IO; +using Ionic.Zip; public partial class OC_RepSolicitudesAnticipo : ClsPaginas { #region "Propiedades" @@ -66,6 +70,8 @@ public partial class OC_RepSolicitudesAnticipo : ClsPaginas protected void InicializaDatos() { + txtFechaI.Text = DateTime.Now.AddMonths(-1).FirstDayOfMonth().ToShortDateString(); + txtFechaF.Text = DateTime.Now.ToShortDateString(); CveProveedor = -1; CargaProveedor(); CargaDatos(); @@ -73,17 +79,17 @@ public partial class OC_RepSolicitudesAnticipo : ClsPaginas protected void CargaProveedor() { - DdlProveedor.DataSource = get_GlobalDTCompProveedores(UsuarioActual.CveEmpresa); - DdlProveedor.DataBind(); - DdlProveedor.Items.Insert(0, new ListItem("Todos", "-1")); - DdlProveedor.SelectedValue = "-1"; + DdlProveedores.setEsWebService(true); + DdlProveedores.Attributes.Add("data-metodo", "getproveedores"); + DdlProveedores.SelectedText = "Seleccione"; + DdlProveedores.SelectedValue = "-1"; } protected void CargaDatos() { ClsOC ObjOC = new ClsOC(); - CveProveedor = DdlProveedor.SelectedValue.ToEntero(); + CveProveedor = DdlProveedores.SelectedValue.ToEntero(); FechaI = (txtFechaI.Text.ToString() != "" ? txtFechaI.Text.ToDateTime() : MinFecha); FechaF = (txtFechaF.Text.ToString() != "" ? txtFechaF.Text.ToDateTime() : DateTime.Now); @@ -124,6 +130,10 @@ public partial class OC_RepSolicitudesAnticipo : ClsPaginas { GenerarPDF("PDF"); } + protected void LnkImpresionMasiva_Click(object sender,EventArgs e) + { + GenerarImpresionMasiva(); + } protected void GenerarPDF(String Opcion) { @@ -132,7 +142,7 @@ public partial class OC_RepSolicitudesAnticipo : ClsPaginas String FechaF; if (txtFechaF.Text == "" || txtFechaF.Text == "__/__/____") { FechaF = ""; } else { FechaF = $" Fecha Final: {txtFechaF.Text}"; } String Proveedor; - if (DdlProveedor.SelectedValue != "-1") { Proveedor = $" Proveedor: {DdlProveedor.SelectedItem.Text}"; } else { Proveedor = ""; } + if (DdlProveedores.SelectedValue != "-1") { Proveedor = $" Proveedor: {DdlProveedores.ddl.SelectedItem.Text}"; } else { Proveedor = ""; } String Estatus; if (DdlEstatus.SelectedValue != "1") { Estatus = $" Estatus: {DdlEstatus.SelectedItem.Text}"; } else { Estatus = ""; } @@ -161,4 +171,38 @@ public partial class OC_RepSolicitudesAnticipo : ClsPaginas Alert("No hay datos consultados", ModExtensiones.TipoMensaje.MsgAdvertencia); } } + + private void GenerarImpresionMasiva() + { + + byte[] all; + + using (MemoryStream ms = new MemoryStream()) + { + using (Document d = new Document()) + { + using (PdfCopy copy = new PdfCopy(d,ms)) + { + d.Open(); + foreach (GridViewRow Gvr in GvSolicitudes.Rows) + { + int CveOC = Gvr.DataKey("CveOrdenCompra").ToEntero(); + byte[] reporteByte = NewGeneraBytesOC(CveOC); + PdfReader reader = new PdfReader(reporteByte); + int n = reader.NumberOfPages; + int page = 0; + while (page < n) + { + page++; + copy.AddPage(copy.GetImportedPage(reader, page)); + } + } + } + + } + all = ms.ToArray(); + } + ImprimirbytesPDF(all, "RepSolicitudesAnticipo"); + + } } \ No newline at end of file diff --git a/OI/ConvocatoriaDetalle.aspx.cs b/OI/ConvocatoriaDetalle.aspx.cs index d6e2055c0..388e15bd5 100644 --- a/OI/ConvocatoriaDetalle.aspx.cs +++ b/OI/ConvocatoriaDetalle.aspx.cs @@ -519,7 +519,7 @@ public partial class OI_ConvocatoriaDetalle : ClsPaginas CveEventoMinuta = CveEvento; LnkOpenModalAsistencia.Visible = true; UpAcciones.Update(); - this.Alert(string.Format("Se ha iniciado la minuta
    para ir a la minuta click aquí", CveEvento), ModExtensiones.TipoMensaje.ToastInformacion, "", 0); + this.Alert(string.Format("Se ha iniciado la minuta, si desea ir a la minuta Click Aquí.", CveEvento), ModExtensiones.TipoMensaje.ToastInformacion, "", 0); LnkOpenModalAsistencia_Click(null, null); } } @@ -561,7 +561,7 @@ public partial class OI_ConvocatoriaDetalle : ClsPaginas { if (CveEventoMinuta > 0) { - Alert(string.Format("se ingresó la asistencia correctamente.
    para ir a la minuta click aquí", CveEventoMinuta)); + Alert(string.Format("Se ingresó la asistencia correctamente, si desea ir a la minuta Click Aquí.", CveEventoMinuta)); } else { diff --git a/OI/MinutaDetalle.aspx b/OI/MinutaDetalle.aspx index b0b1d6b1d..4735927e6 100644 --- a/OI/MinutaDetalle.aspx +++ b/OI/MinutaDetalle.aspx @@ -115,7 +115,7 @@
    - +
    @@ -125,7 +125,7 @@
    -

    Moderador:

    +

    Moderador

    @@ -133,7 +133,7 @@
    -

    Participantes:

    +

    Participantes

    @@ -149,8 +149,8 @@
    Guardar - Enviar Minuta - Terminar y Enviar Minuta + Enviar minuta + Terminar y enviar minuta
    @@ -284,7 +284,7 @@
    - Agregar + Agregar <%--Agregar--%>
    @@ -355,7 +355,7 @@
    - +
    @@ -393,7 +393,7 @@ - Prioridad: + Prioridad
    @@ -402,7 +402,7 @@ - Para: + Para @@ -529,7 +529,7 @@
    - +
    @@ -593,7 +593,7 @@ - Para: + Para
    diff --git a/OI/MinutaDetalle.aspx.cs b/OI/MinutaDetalle.aspx.cs index 9d5f41357..69abb5fae 100644 --- a/OI/MinutaDetalle.aspx.cs +++ b/OI/MinutaDetalle.aspx.cs @@ -752,7 +752,7 @@ public partial class OI_MinutaDetalle : ClsPaginas objOI.IniciaTransacSQL(); - tCveSeguimiento = objOI.AddEventoComentario2(RCveEvento, "Termino Minuta", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa); + tCveSeguimiento = objOI.AddEventoComentario2(RCveEvento, "Termino minuta.", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa); if (tCveSeguimiento > 0) { @@ -774,7 +774,7 @@ public partial class OI_MinutaDetalle : ClsPaginas { script = string.Format("location.replace(\"/OI/ConvocatoriaDetalle.aspx?CveEventoPadre={0}\");", RCveEvento); } - Alert("La minuta se termino con exito.", ModExtensiones.TipoMensaje.MsgInformacion, script); + Alert("La minuta ha finalizado.", ModExtensiones.TipoMensaje.MsgInformacion, script); objOI.Commit(); } else @@ -800,7 +800,7 @@ public partial class OI_MinutaDetalle : ClsPaginas protected void LnkEnviarMinuta_Click(object sender, EventArgs e) { EnviarMinuta(); - Alert("La minuta se envió con exito.", ModExtensiones.TipoMensaje.MsgInformacion); + Alert("La minuta se envió por correo electronico.", ModExtensiones.TipoMensaje.MsgInformacion); } #region "enviarminuta" diff --git a/OI/RepReuniones.aspx b/OI/RepReuniones.aspx index 0a3f0b54b..714ee487c 100644 --- a/OI/RepReuniones.aspx +++ b/OI/RepReuniones.aspx @@ -20,10 +20,10 @@
  • - Nueva Convocatoria + Nueva convocatoria
  • - Nueva Minuta + Nueva minuta
    • @@ -211,7 +211,7 @@ <%----%> - +     diff --git a/OI/RepTareas.aspx.vb b/OI/RepTareas.aspx.vb index 50d6ff229..26151b487 100644 --- a/OI/RepTareas.aspx.vb +++ b/OI/RepTareas.aspx.vb @@ -109,6 +109,7 @@ Partial Class OI_RepTareas If ObjProspectos.GetRepEventos(-1, -1, -1, "-1", "-1", -1, -1, -1, CveEventoEstatus, DdlRevision.SelectedValue.ToEntero, -1, "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FechaI, FechaF, TipoReporte:=TipoReporte) Then DTOIEventosTareas = ObjProspectos.DtResultados.FiltraParametros(String.Format("CveUsuarioPara = {0} AND CveTipoEvento IN (1,3)", UsuarioActual.CveUsuario)) + DTOIEventosTareas = DTOIEventosTareas.FiltraParametros(String.Format("CveEmpresa={0}", UsuarioActual.CveEmpresa)) ltlGrafMEasiginaron.Text = DTOIEventosTareas.Rows.Count.ToString() 'BURBUJITAS - BADGE If DTOIEventosTareas.FiltraParametros("EventoEstatus = 'Pendiente'").Rows.Count > 0 Then @@ -176,6 +177,7 @@ Partial Class OI_RepTareas If ObjProspectos.GetEventosUsuarioCCP(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 1, DdlRevision.SelectedValue.ToEntero, FechaI, FechaF, CveEventoEstatus) Then DTOIEventosTareasCCP = ObjProspectos.DtResultados.FiltraParametros(String.Format("CveUsuarioIng = {0} And CveTipoEvento In (1,3)", UsuarioActual.CveUsuario)) + DTOIEventosTareasCCP = DTOIEventosTareasCCP.FiltraParametros(String.Format("CveEmpresa={0}", UsuarioActual.CveEmpresa)) ltlgrafCcp.Text = DTOIEventosTareasCCP.Rows.Count.ToString() 'BURBUJITAS - BADGE If DTOIEventosTareasCCP.FiltraParametros("EventoEstatus = 'Pendiente'").Rows.Count > 0 Then @@ -243,6 +245,7 @@ Partial Class OI_RepTareas If ObjProspectos.GetRepEventos(-1, -1, -1, "-1", "-1", -1, -1, -1, CveEventoEstatus, DdlRevision.SelectedValue.ToEntero, -1, "-1", -1, -1, -1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, FechaI, FechaF, TipoReporte:=TipoReporte) Then DTOIEventosTareasAsigne = ObjProspectos.DtResultados.FiltraParametros(String.Format("CveUsuarioIng = {0} And CveTipoEvento In (1,3)", UsuarioActual.CveUsuario)) + DTOIEventosTareasAsigne = DTOIEventosTareasAsigne.FiltraParametros(String.Format("CveEmpresa={0}", UsuarioActual.CveEmpresa)) ltlgrafAsigne.Text = DTOIEventosTareasAsigne.Rows.Count.ToString() 'BURBUJITAS - BADGE If DTOIEventosTareasAsigne.FiltraParametros("EventoEstatus = 'Pendiente'").Rows.Count > 0 Then diff --git a/OI/TareaDetalle.aspx b/OI/TareaDetalle.aspx index 3bd705b2c..63d26b4d2 100644 --- a/OI/TareaDetalle.aspx +++ b/OI/TareaDetalle.aspx @@ -124,6 +124,11 @@ height: 100%; cursor: not-allowed; } + .porcentajelabel{ + color: #ed5565; + font-size: 64px; + font-weight:bold; + } @@ -361,7 +366,10 @@ Estatus: - + +
    + % +
    Avance: @@ -371,7 +379,7 @@
    - +
    @@ -744,15 +752,20 @@ Agregar relación
    -
    - - - <%----%> +
    + Relacionar Con: + + + + + + + <%-- + - - Relacionar Con: + --%>
    @@ -830,7 +843,7 @@ --%> - + Cliente: <%-- 0) { - titulo = "Cliente: "; + titulo = "Cliente "; link = string.Format("{0}", drow["Cliente"], CveCliente); } else if (CveVenta > 0) { - titulo = "Venta: "; + titulo = "Venta "; link = string.Format("{0} ", drow["Venta"], CveVenta); } else if (CveProveedor > 0) { - titulo = "proveedor: "; + titulo = "Proveedor "; link = string.Format("{0} ", drow["Proveedor"], CveProveedor); } else if (CveCompra > 0) { - titulo = "Compra: "; + titulo = "Compra "; link = string.Format("{0} ", drow["Compra"], CveCompra); } else if (CvePersonal > 0) { - titulo = "Personal: "; + titulo = "Personal "; link = string.Format("{0} ", drow["NombreCompleto"], CvePersonal); } else if (CveActivoFijo > 0) @@ -1269,7 +1270,8 @@ public partial class OI_TareaDetalle : ClsPaginas { if (objoi.DtResultados.Rows.Count > 0) { - LtlTitulo.Text = objoi.DtResultados.Rows[0]["Titulo"].ToString(); + //LtlTitulo.Text = objoi.DtResultados.Rows[0]["Titulo"].ToString(); + LblPorcentaje.Text = string.Format("{0:##0.##}", TxtAvance.Text.ToDecimal()); } cargaActividades(objoi); @@ -1300,7 +1302,7 @@ public partial class OI_TareaDetalle : ClsPaginas this.Alert("Avance Actualizadó", ModExtensiones.TipoMensaje.ToastInformacion); } - UpTitulo.Update(); + //UpTitulo.Update(); } protected void LnkAddTtemaB_Click(object sender, EventArgs e) diff --git a/OI/UnoaUno.aspx b/OI/UnoaUno.aspx index 4e558e968..87d179ea7 100644 --- a/OI/UnoaUno.aspx +++ b/OI/UnoaUno.aspx @@ -153,7 +153,7 @@
    - +
      @@ -166,8 +166,8 @@ - - + +
    @@ -187,7 +187,7 @@
    - + @@ -288,17 +288,17 @@
    -
    +
    Cuestionario -
    Selecciona un cuestionario existente, o bien, genera uno nuevo
    +
    Selecciona un cuestionario existente, o bien, genera uno nuevo
    <%----%> @@ -308,7 +308,7 @@ Cuestionario: - +
    -
    +
    < Anterior @@ -481,7 +481,7 @@ Siguiente >
    -
    +
    @@ -489,7 +489,8 @@

    - + + <%-- --%> <%-- --%>
    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 1e4424463..ff52d9a63 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) @@ -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/RepIngresos.aspx.vb b/Ventas/RepIngresos.aspx.vb index e82b64b60..8e5a5f6af 100644 --- a/Ventas/RepIngresos.aspx.vb +++ b/Ventas/RepIngresos.aspx.vb @@ -94,7 +94,7 @@ Partial Class Ventas_RepIngresos Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load If Not IsPostBack Then TCEspecifico = -1 - TipoCambio = 2 + TipoCambio = 1 CveSubProyecto = -1 TxtFechaInicio.Text = String.Format("01/01/{0}", Now.Year) DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1) diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 3157f71ac..f942b9039 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -3259,7 +3259,7 @@
    - + - - + + - + diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index e948d617f..4928b7d97 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 @@ -3936,6 +3938,8 @@ Partial Class Ventas TxtSubTotal2.Text = (TxtSubTotal.Text.Replace(",", "").Trim.Trim.ToDouble - LblDescuentos.Text.Replace(",", "").Trim.Trim.ToDouble - LblAmortizacion.Text.Replace(",", "").Trim.Trim.ToDouble).FormatoNumero(2) TxtIVA.Text = DbRowVenta("IVA").ToString().FormatoNumero(2) TxtRetIVA.Text = DbRowVenta("RetIVA").ToString().FormatoNumero(2) + TxtCorreoNotificaciones.Text = DbRowVenta("CorreoNotificacion").ToString() + If TxtRetIVA.Text.ToDecimal() > 0 Then TrRetIVA.Style.Add("display", "") UsuarioActual.Empresa.MostrarRetIVA = True @@ -13775,7 +13779,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 diff --git a/asmx/WSSIGApp.asmx b/asmx/WSSIGApp.asmx index 71c1f2945..1a6b79d95 100644 --- a/asmx/WSSIGApp.asmx +++ b/asmx/WSSIGApp.asmx @@ -2049,7 +2049,7 @@ Public Class WSSIGApp Return TmpDT End Function Private Function AgregarProductoServicioRem(TmpDT As DataTable, PS As MVentaProductos, CveEmpresa As Integer, CveSubProyecto As Integer, - Optional SerieLote As String = "", Optional TiempoEntrega As String = "", Optional EntregaDirecta As Integer = 0, + Optional Serie As String = "", Optional TiempoEntrega As String = "", Optional EntregaDirecta As Integer = 0, Optional CveContratoDetalle As Integer = 0, Optional CveVentaDetalle As Integer = 0, Optional CveMovimientoDetallePedido As Integer = 0, Optional CveOrdenCompraDetalle As Integer = 0, Optional CveVentaDetalleRemision As Integer = 0, Optional CveVentaDetalleCotizacion As Integer = 0, Optional CuentaPredial As String = "", Optional RegeneraIEPS As Boolean = True, Optional CveVentaDetallePedido2 As Integer = 0) As DataRow @@ -2083,7 +2083,7 @@ Public Class WSSIGApp Row("Proyecto") = DrSubProyecto("Proyecto").ToString() Row("CveSubProyecto") = CveSubProyecto Row("SubProyecto") = DrSubProyecto("SubProyecto").ToString() - Row("SerieLote") = SerieLote + Row("Serie") = Serie Row("TiempoEntrega") = TiempoEntrega Row("Orden") = TmpDT.Rows.Count + 1 Row("Cantidad") = PS.Cantidad
    Ventas MovimientosClasificación
    Producto     		U.M.Serie - LoteSerie Observaciones
    Orden de Compra:   @@ -3287,10 +3287,10 @@ Kilometraje 
    Correo Notificaciones: 
    Correo Notificacion: