From cd62f9a238edfb9854b8312d786645b066efed15 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Fri, 19 Apr 2024 08:41:30 -0700 Subject: [PATCH 01/11] Kardex siguiente siguiente PS con movimientos (Ajustes) --- Inventarios/Kardex.aspx.vb | 39 ++++++++++++++++++++++++-- Inventarios/KardexAlmacen.aspx.vb | 39 +++++++++++++++++++++++++- Inventarios/RepEntradasSalidas.aspx.vb | 38 ++++++++++++++++++++++++- 3 files changed, 112 insertions(+), 4 deletions(-) diff --git a/Inventarios/Kardex.aspx.vb b/Inventarios/Kardex.aspx.vb index 29b52f758..5811d25d8 100644 --- a/Inventarios/Kardex.aspx.vb +++ b/Inventarios/Kardex.aspx.vb @@ -2,9 +2,11 @@ Option Explicit On Imports System.Data +Imports System.Security.Cryptography.Pkcs Imports ADSNetLibrary.SIGAPI.Models.CGame Imports Extensiones Imports Microsoft.Reporting.WebForms +Imports Telerik.Web.UI Partial Class Inventarios_Kardex Inherits ClsPaginas @@ -569,7 +571,10 @@ Partial Class Inventarios_Kardex Dim CvePS As Integer = ddlProducto2.SelectedValue.ToEntero If Not CvePS > 0 Then - Exit Sub + CvePS = ObtenerInicioPSNavegacion(Siguiente:=Siguiente) + If Not CvePS > 0 Then + Exit Sub + End If End If Dim dt As DataTable = New DataTable @@ -609,6 +614,34 @@ Partial Class Inventarios_Kardex ObjInventarios.Dispose() If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then + ddlProducto2.SelectedValue = dt.Rows(0)("CvePS").ToString + ddlProducto2.SelectedText = dt.Rows(0)("CodigoPS").ToString + ddlProducto2.txtValue.Value = dt.Rows(0)("CvePS").ToString + ddlProducto2.txtText.Value = dt.Rows(0)("CodigoPS").ToString + UPFiltros.Update() + UPDatos.Update() + End If + + End Sub + + Private Function ObtenerInicioPSNavegacion(Siguiente As Boolean) As Integer + + Dim CvePSRespuesta As Integer = -1 + Dim dt As DataTable = New DataTable + + If Siguiente Then + If TxtCodigoInicio.Text.Trim.Length > 0 Then + dt = GlobalDTPS(UsuarioActual.CveEmpresa, Codigo:=TxtCodigoInicio.Text.Trim) + End If + Else + If TxtCodigoFinal.Text.Trim.Length > 0 Then + dt = GlobalDTPS(UsuarioActual.CveEmpresa, Codigo:=TxtCodigoFinal.Text.Trim) + End If + End If + + + If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then + CvePSRespuesta = dt.Rows(0)("CvePS").ToString.ToEntero ddlProducto2.SelectedValue = dt.Rows(0)("CvePS").ToString ddlProducto2.SelectedText = dt.Rows(0)("CodigoPS").ToString ddlProducto2.txtValue.Value = dt.Rows(0)("CvePS").ToString @@ -617,7 +650,9 @@ Partial Class Inventarios_Kardex UPFiltros.Update() UPDatos.Update() End If - End Sub + Return CvePSRespuesta + + End Function End Class diff --git a/Inventarios/KardexAlmacen.aspx.vb b/Inventarios/KardexAlmacen.aspx.vb index f95e5c3b4..bfad31eaa 100644 --- a/Inventarios/KardexAlmacen.aspx.vb +++ b/Inventarios/KardexAlmacen.aspx.vb @@ -212,8 +212,12 @@ Partial Class Inventarios_KardexAlmacen Dim CvePS As Integer = ddlProducto2.SelectedValue.ToEntero If Not CvePS > 0 Then - Exit Sub + CvePS = ObtenerInicioPSNavegacion(Siguiente:=Siguiente) + If Not CvePS > 0 Then + Exit Sub + End If End If + Dim dt As DataTable = New DataTable Dim Entrada As Boolean = True @@ -261,4 +265,37 @@ Partial Class Inventarios_KardexAlmacen End If End Sub + Private Function ObtenerInicioPSNavegacion(Siguiente As Boolean) As Integer + + Dim CvePSRespuesta As Integer = -1 + Dim dt As DataTable = New DataTable + + If Siguiente Then + If TxtCodigoInicio.Text.Trim.Length > 0 Then + 'CvePSRespuesta = GlobalDTPS(UsuarioActual.CveEmpresa, Codigo:=TxtCodigoInicio.Text.Trim).FiltroPrimeroValor("CvePS").ToEntero + dt = GlobalDTPS(UsuarioActual.CveEmpresa, Codigo:=TxtCodigoInicio.Text.Trim) + End If + Else + If TxtCodigoFinal.Text.Trim.Length > 0 Then + 'CvePSRespuesta = GlobalDTPS(UsuarioActual.CveEmpresa, Codigo:=TxtCodigoFinal.Text.Trim).FiltroPrimeroValor("CvePS").ToEntero + dt = GlobalDTPS(UsuarioActual.CveEmpresa, Codigo:=TxtCodigoFinal.Text.Trim) + End If + End If + + + If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then + CvePSRespuesta = dt.Rows(0)("CvePS").ToString.ToEntero + ddlProducto2.SelectedValue = dt.Rows(0)("CvePS").ToString + ddlProducto2.SelectedText = dt.Rows(0)("CodigoPS").ToString + ddlProducto2.txtValue.Value = dt.Rows(0)("CvePS").ToString + ddlProducto2.txtText.Value = dt.Rows(0)("CodigoPS").ToString + UPFiltros.Update() + + End If + + + Return CvePSRespuesta + + End Function + End Class diff --git a/Inventarios/RepEntradasSalidas.aspx.vb b/Inventarios/RepEntradasSalidas.aspx.vb index 586d6d878..3e299a807 100644 --- a/Inventarios/RepEntradasSalidas.aspx.vb +++ b/Inventarios/RepEntradasSalidas.aspx.vb @@ -586,7 +586,10 @@ Partial Class Inventarios_ReporteEntradasSalidas Dim CvePS As Integer = DdlPS.SelectedValue.ToEntero If Not CvePS > 0 Then - Exit Sub + CvePS = ObtenerInicioPSNavegacion(Siguiente:=Siguiente) + If Not CvePS > 0 Then + Exit Sub + End If End If Dim dt As DataTable = New DataTable @@ -636,6 +639,39 @@ Partial Class Inventarios_ReporteEntradasSalidas End If End Sub + Private Function ObtenerInicioPSNavegacion(Siguiente As Boolean) As Integer + + Dim CvePSRespuesta As Integer = -1 + Dim dt As DataTable = New DataTable + + If Siguiente Then + If TxtCodigoInicio.Text.Trim.Length > 0 Then + 'CvePSRespuesta = GlobalDTPS(UsuarioActual.CveEmpresa, Codigo:=TxtCodigoInicio.Text.Trim).FiltroPrimeroValor("CvePS").ToEntero + dt = GlobalDTPS(UsuarioActual.CveEmpresa, Codigo:=TxtCodigoInicio.Text.Trim) + End If + Else + If TxtCodigoFinal.Text.Trim.Length > 0 Then + 'CvePSRespuesta = GlobalDTPS(UsuarioActual.CveEmpresa, Codigo:=TxtCodigoFinal.Text.Trim).FiltroPrimeroValor("CvePS").ToEntero + dt = GlobalDTPS(UsuarioActual.CveEmpresa, Codigo:=TxtCodigoFinal.Text.Trim) + End If + End If + + + If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then + CvePSRespuesta = dt.Rows(0)("CvePS").ToString.ToEntero + DdlPS.SelectedValue = dt.Rows(0)("CvePS").ToString + DdlPS.SelectedText = dt.Rows(0)("CodigoPS").ToString + DdlPS.txtValue.Value = dt.Rows(0)("CvePS").ToString + DdlPS.txtText.Value = dt.Rows(0)("CodigoPS").ToString + 'UPFiltros.Update() + UPPMov.Update() + End If + + + Return CvePSRespuesta + + End Function + 'Protected Sub Lnkcompuxlsinventarios_Click(sender As Object, e As EventArgs) ' Dim continuar = True ' Try From 3bc514ab667658c08a5fdb82fc5bb77fa7a17ab7 Mon Sep 17 00:00:00 2001 From: AbrahamCastilloV Date: Fri, 19 Apr 2024 16:49:55 -0700 Subject: [PATCH 02/11] =?UTF-8?q?--Se=20hicieron=20modificaciones=20al=20.?= =?UTF-8?q?mrt=20de=20contratos=20V&A=20y=20se=20agregaron=20otros=20campo?= =?UTF-8?q?s=20para=20su=20impresi=C3=B3n.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Transportes/RepContratoDetalle.aspx.vb | 34 ++++++++++++++++++++------ Transportes/RepContratos.aspx.vb | 2 +- 2 files changed, 27 insertions(+), 9 deletions(-) diff --git a/Transportes/RepContratoDetalle.aspx.vb b/Transportes/RepContratoDetalle.aspx.vb index 2a77ddaaf..946121897 100644 --- a/Transportes/RepContratoDetalle.aspx.vb +++ b/Transportes/RepContratoDetalle.aspx.vb @@ -1,6 +1,10 @@ Option Explicit On Option Strict On +Imports System.Data Imports System.IO +Imports Extensiones +Imports Microsoft.Reporting.WebForms + Partial Class RepContratoDetalle Inherits ClsPaginas @@ -85,6 +89,15 @@ Partial Class RepContratoDetalle ViewState("AsientoSeleccionado") = value End Set End Property + Private Property TelefonoEmpresa As String + Get + Return ViewState("TelefonoEmpresa").ToString() + End Get + Set(value As String) + ViewState("TelefonoEmpresa") = value + End Set + End Property + #End Region #Region "Carga Página" @@ -100,6 +113,7 @@ Partial Class RepContratoDetalle CveViajePasajero = 0 Session("FileExtension") = "" ArchivoUpdate = "" + TelefonoEmpresa = "" End If End Sub @@ -122,7 +136,6 @@ Partial Class RepContratoDetalle Dim Importe As Decimal = Contrato.Rows(0)("Importe").ToString.ToDecimal Dim Pesos As Decimal = Contrato.Rows(0)("ImporteMax").ToString.ToDecimal Dim Anticipo As Decimal = Contrato.Rows(0)("ImporteMin").ToString.ToDecimal - CveContratoTipo = Contrato.Rows(0)("CveContratoTipo").ToString.ToEntero SubProyecto = Contrato.Rows(0)("SubProyecto").ToString CveMasivo = Contrato.Rows(0)("CveMasivo").ToString.ToEntero @@ -132,6 +145,7 @@ Partial Class RepContratoDetalle DdlClientes.SelectedValue = Contrato.Rows(0)("CveCliente").ToString TxtDescripcion.Text = Contrato.Rows(0)("DescripcionContrato").ToString TxtObservaciones.Text = Contrato.Rows(0)("Observaciones").ToString + TelefonoEmpresa = Contrato.Rows(0)("Telefono").ToString TxtUbicacion.Text = Contrato.Rows(0)("Ubicacion").ToString TxtFechaSalida.Text = Contrato.Rows(0)("FechaInicial").ToString TxtFechaRegreso.Text = Contrato.Rows(0)("FechaFinal").ToString @@ -180,7 +194,7 @@ Partial Class RepContratoDetalle #Region "Información General" Protected Sub BtnGuardarArchivo_Click1(sender As Object, e As EventArgs) Handles BtnGuardarArchivo.Click Dim FileExtension As String = "-1" - Dim Filesgral As List(Of Archivo) = Anexo.getfiles().Archivos + Dim Filesgral As List(Of Extensiones.Archivo) = Anexo.getfiles().Archivos Dim Filename As String = "" Dim folderContratosPath As String = Path.Combine(UsuarioActual.Empresa.Ruta, "Contratos") @@ -253,7 +267,7 @@ Partial Class RepContratoDetalle Dim ObjContratos As New ClsContratos ObjContratos.IniciaTransacSQL() Try - If ObjContratos.UpdateContratos(CveContrato, LbFolio.Text, TxtDescripcion.Text, "", UsuarioActual.CveProveedor, DdlClientes.SelectedValue.ToEntero, -1, TxtFechaSalida.Text.ToDate, TxtFechaRegreso.Text.ToDate, TxtUbicacion.Text, "", LbCveSubProyecto.Text.ToEntero, -1, -1, -1, -1, ArchivoUpdate, "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, TxtAnticipo.Text.ToDecimal, -1, TxtImporte.Text.ToDecimal, DdlMoneda.SelectedValue.ToEntero, 0, CveContratoTipo:=CveContratoTipo, CveTipoAF:=DdlTipoAF.SelectedValue.ToEntero, CveContratosEstatus:=CveContratoEstatus) Then + If ObjContratos.UpdateContratos(CveContrato, LbFolio.Text, TxtDescripcion.Text, "", UsuarioActual.CveProveedor, DdlClientes.SelectedValue.ToEntero, -1, TxtFechaSalida.Text.ToDate, TxtFechaRegreso.Text.ToDate, TxtUbicacion.Text, "", LbCveSubProyecto.Text.ToEntero, -1, -1, -1, -1, ArchivoUpdate, "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, TxtAnticipo.Text.ToDecimal, -1, TxtImporte.Text.ToDecimal, DdlMoneda.SelectedValue.ToEntero, 0, CveContratoTipo:=CveContratoTipo, CveTipoAF:=DdlTipoAF.SelectedValue.ToEntero, CveContratosEstatus:=CveContratoEstatus, Observaciones:=TxtObservacion.Text) Then Alert("Contrato actualizado correctamente") End If ObjContratos.Commit() @@ -304,12 +318,16 @@ Partial Class RepContratoDetalle New ReportParameter("Servicio", TxtDescripcion.Text), New ReportParameter("Observaciones", TxtObservaciones.Text), New ReportParameter("Ubicacion", TxtUbicacion.Text), - New ReportParameter("FechaSalida", TxtFechaSalida.Text.ToDate.ToString("HH:mm")), - New ReportParameter("FechaRegreso", TxtFechaRegreso.Text.ToDate.ToString("HH:mm")), + New ReportParameter("FechaSalida", TxtFechaSalida.Text.ToDate.ToString("dd/MM/yyyy")), + New ReportParameter("FechaRegreso", TxtFechaRegreso.Text.ToDate.ToString("dd/MM/yyyy")), New ReportParameter("CantidadPasajeros", TxtCantidadPasajeros.Text), - New ReportParameter("TipoAF", DdlTipoAF.Text), - New ReportParameter("Importe", Math.Round(TxtImporte.Text.ToDecimal, 2).ToString), - New ReportParameter("Anticipo", (TxtAnticipo.Text.ToDecimal * 100).ToString) + New ReportParameter("TipoAF", DdlTipoAF.SelectedItem.ToString()), + New ReportParameter("Pesos", Math.Round(TxtImporte.Text.ToDecimal, 2).ToString), + New ReportParameter("Dolares", Math.Round((TxtImporte.Text.ToDecimal / 17.1), 2).ToString), + New ReportParameter("Anticipo", Math.Round((TxtAnticipo.Text.ToDecimal * TxtImporte.Text.ToDecimal) / 2).ToString), + New ReportParameter("Total", Math.Round((TxtImporte.Text.ToDecimal - (TxtAnticipo.Text.ToDecimal * TxtImporte.Text.ToDecimal)), 2).ToString), + New ReportParameter("DiaSalida", $"{TxtFechaSalida.Text.ToDate.Hour}:{TxtFechaSalida.Text.ToDate.Minute} "), + New ReportParameter("TelefonoEmpresa", TelefonoEmpresa) } ImprimirPDFStimul($"{UsuarioActual.Empresa.Ruta}Formatos\Contrato.mrt", dtResult, params, NombreArchivo:="Contrato") diff --git a/Transportes/RepContratos.aspx.vb b/Transportes/RepContratos.aspx.vb index 135ddb22d..4df1d60ee 100644 --- a/Transportes/RepContratos.aspx.vb +++ b/Transportes/RepContratos.aspx.vb @@ -100,7 +100,7 @@ Partial Class ListadoContratos 'Agregamos Contrato Dim ObjContratos As New ClsContratos ObjContratos.IniciaTransacSQL() - If ObjContratos.AddContratos(LbFolio.Text, TxtDescripcion.Text, "", UsuarioActual.CveProveedor, DdlClientes.SelectedValue.ToEntero, -1, TxtFechaSalida.Text.ToDateTime, TxtFechaRegreso.Text.ToDateTime, TxtUbicacion.Text, "", CveSubProyecto, -1, -1, -1, -1, LbArchivo.Text, "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, TxtAnticipo.Text.ToDecimal, -1, TxtImporte.Text.ToDecimal, DdlMoneda.SelectedValue.ToEntero, 0, CveContratoTipo:=34, CveContratosEstatus:=50, CveTipoAF:=DdlTipoAF.SelectedValue.ToEntero, CantidadPasajeros:=TxtCantidadPasajeros.Text.ToEntero, Observaciones:=TxtObservaciones.Text) > 0 Then + If ObjContratos.AddContratos(LbFolio.Text, TxtDescripcion.Text, "", UsuarioActual.CveProveedor, DdlClientes.SelectedValue.ToEntero, -1, TxtFechaSalida.Text.ToDateTime, TxtFechaRegreso.Text.ToDateTime, TxtUbicacion.Text, "", CveSubProyecto, -1, -1, -1, -1, LbArchivo.Text, "", -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, False, TxtAnticipo.Text.ToDecimal, -1, TxtImporte.Text.ToDecimal, DdlMoneda.SelectedValue.ToEntero, 0, CveContratoTipo:=34, CveContratosEstatus:=50, CveTipoAF:=DdlTipoAF.SelectedValue.ToEntero, CantidadPasajeros:=TxtCantidadPasajeros.Text.ToEntero, Observaciones:=TxtObservaciones.Text, CveVendedor:=UsuarioActual.CveVendedor) > 0 Then ObjContratos.Commit() Alert("Agregado Correctamente.") End If From 302d0694992085e8f45ed3283ed91e6e1938f634 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Fri, 19 Apr 2024 17:21:22 -0700 Subject: [PATCH 03/11] Thread GeneraPDFFactura --- Ventas/Ventas.aspx | 2 +- Ventas/Ventas.aspx.vb | 23 ++++++++++++++++++++--- 2 files changed, 21 insertions(+), 4 deletions(-) diff --git a/Ventas/Ventas.aspx b/Ventas/Ventas.aspx index 935689de9..81715ba2b 100644 --- a/Ventas/Ventas.aspx +++ b/Ventas/Ventas.aspx @@ -1,4 +1,4 @@ -<%@ Page Title="Ventas - Facturación" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="Ventas.aspx.vb" Inherits="Ventas" EnableEventValidation="false" %> +<%@ Page Title="Ventas - Facturación" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="Ventas.aspx.vb" Inherits="Ventas" EnableEventValidation="false" %> <%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="cc1" %> <%@ Register Src="~/UserControl/AddMedico.ascx" TagPrefix="UserControl" TagName="AddMedico" %> diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 0706e5dba..86e9bb18b 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -2898,6 +2898,7 @@ Partial Class Ventas End If End If + Else TxtFechaOS.Text = NowADS().ToDateTime.ToString("yyyy-MM-dd HH:mm").Replace(" ", "T") @@ -10770,8 +10771,9 @@ Partial Class Ventas If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then GeneraPDFFactura(ChkEnviarFactura.Checked, Factura, UsuarioActual, "", UsarDescargaDesdePopUpVerFactura:=False) Else + Dim capturedContext = HttpContext.Current Dim strURLHOST As String = String.Format("{0}://{1}:{2}", HttpContext.Current.Request.Url.Scheme, HttpContext.Current.Request.Url.Host, HttpContext.Current.Request.Url.Port) - Dim Hilo As New System.Threading.Thread(Sub() GeneraPDFFactura(ChkEnviarFactura.Checked, Factura, UsuarioActual, strURLHOST)) + Dim Hilo As New System.Threading.Thread(Sub() GeneraPDFFactura(ChkEnviarFactura.Checked, Factura, UsuarioActual, strURLHOST, EsHilo:=True, Contexto:=capturedContext)) Hilo.Start() End If Catch ex As Exception @@ -16307,7 +16309,14 @@ Partial Class Ventas ''' ''' ''' - Private Sub GeneraPDFFactura(EnviaCorreo As Boolean, Factura As Modelos.Factura, UsuarioActual As Usuario, strURLHOST As String, Optional CorreoCRM As String = "", Optional UsarDescargaDesdePopUpVerFactura As Boolean = True) + Private Sub GeneraPDFFactura(EnviaCorreo As Boolean, Factura As Modelos.Factura, UsuarioActual As Usuario, strURLHOST As String, Optional CorreoCRM As String = "", Optional UsarDescargaDesdePopUpVerFactura As Boolean = True, + Optional EsHilo As Boolean = False, Optional Contexto As HttpContext = Nothing) + + If EsHilo Then + HttpContext.Current = Contexto + HttpContext.Current.Session("UsuarioSIG") = UsuarioActual + End If + 'GUARDA PDF Dim LocalSerieFolio As String = String.Empty Dim LocalTipoDocto As String = String.Empty @@ -16368,6 +16377,8 @@ Partial Class Ventas End If End If + + End Sub Private Sub GeneraPDFCotizacion(EnviaCorreo As Boolean, Optional CorreoContactoCRM As String = "", Optional pdfCRM As Byte() = Nothing, Optional SerieFolioCRM As String = "", Optional TipoDoctoCRM As String = "") @@ -17278,9 +17289,10 @@ Partial Class Ventas 'IMPRESION Try 'MANDA CORREO + Dim capturedContext = HttpContext.Current Dim strURLHOST As String = String.Format("{0}://{1}:{2}", HttpContext.Current.Request.Url.Scheme, HttpContext.Current.Request.Url.Host, HttpContext.Current.Request.Url.Port) Dim Factura As New Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, EsCancelacion:=False, CargaDTDetalle:=False, CargaDatosCliente:=False, CargaDatosRelacionados:=False, VerificaAlmacen:=False) - Dim Hilo As New System.Threading.Thread(Sub() GeneraPDFFactura(ChkEnviarFactura.Checked, Factura, UsuarioActual, strURLHOST)) + Dim Hilo As New System.Threading.Thread(Sub() GeneraPDFFactura(ChkEnviarFactura.Checked, Factura, UsuarioActual, strURLHOST, EsHilo:=True, Contexto:=capturedContext)) Hilo.Start() Catch ex As Exception OnError("Ocurrió un error al enviar el PDF", ex) @@ -38113,5 +38125,10 @@ Partial Class Ventas End If End Sub + + + + + End Class From 7d92ef383185c736976e0eccfe81970d09bb7497 Mon Sep 17 00:00:00 2001 From: AbrahamCastilloV Date: Fri, 19 Apr 2024 17:45:21 -0700 Subject: [PATCH 04/11] --Ajustes al tipo de moneda del contrato --- Transportes/RepContratoDetalle.aspx.vb | 3 ++- packages.config | 1 + 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/Transportes/RepContratoDetalle.aspx.vb b/Transportes/RepContratoDetalle.aspx.vb index 946121897..39150edd3 100644 --- a/Transportes/RepContratoDetalle.aspx.vb +++ b/Transportes/RepContratoDetalle.aspx.vb @@ -143,6 +143,7 @@ Partial Class RepContratoDetalle LbCveSubProyecto.Text = Contrato.Rows(0)("CveSubProyecto").ToString DdlClientes.SelectedText = Contrato.Rows(0)("NombreComercial").ToString DdlClientes.SelectedValue = Contrato.Rows(0)("CveCliente").ToString + DdlMoneda.SelectedValue = Contrato.Rows(0)("CveMoneda").ToString TxtDescripcion.Text = Contrato.Rows(0)("DescripcionContrato").ToString TxtObservaciones.Text = Contrato.Rows(0)("Observaciones").ToString TelefonoEmpresa = Contrato.Rows(0)("Telefono").ToString @@ -323,7 +324,7 @@ Partial Class RepContratoDetalle New ReportParameter("CantidadPasajeros", TxtCantidadPasajeros.Text), New ReportParameter("TipoAF", DdlTipoAF.SelectedItem.ToString()), New ReportParameter("Pesos", Math.Round(TxtImporte.Text.ToDecimal, 2).ToString), - New ReportParameter("Dolares", Math.Round((TxtImporte.Text.ToDecimal / 17.1), 2).ToString), + New ReportParameter("Moneda", DdlMoneda.SelectedItem.ToString), New ReportParameter("Anticipo", Math.Round((TxtAnticipo.Text.ToDecimal * TxtImporte.Text.ToDecimal) / 2).ToString), New ReportParameter("Total", Math.Round((TxtImporte.Text.ToDecimal - (TxtAnticipo.Text.ToDecimal * TxtImporte.Text.ToDecimal)), 2).ToString), New ReportParameter("DiaSalida", $"{TxtFechaSalida.Text.ToDate.Hour}:{TxtFechaSalida.Text.ToDate.Minute} "), diff --git a/packages.config b/packages.config index c3434bbfd..b08049006 100644 --- a/packages.config +++ b/packages.config @@ -63,6 +63,7 @@ + From d60bd65e5f2fe53d0679c942135006e962b65ddf Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Fri, 19 Apr 2024 18:00:14 -0700 Subject: [PATCH 05/11] --V&A Cambios en cronograma --- Transportes/RepContratosCalendario.aspx | 8 +++++++- Transportes/RepContratosCalendario.aspx.vb | 18 ++++++++++-------- 2 files changed, 17 insertions(+), 9 deletions(-) diff --git a/Transportes/RepContratosCalendario.aspx b/Transportes/RepContratosCalendario.aspx index b8ab0b757..be43ad1ff 100644 --- a/Transportes/RepContratosCalendario.aspx +++ b/Transportes/RepContratosCalendario.aspx @@ -21,7 +21,7 @@ #chartdiv { width: 100%; - height: 500px; + height: 700px; } @@ -613,9 +613,15 @@ orientation: "horizontal" }); + var scrollbarY = am5.Scrollbar.new(root, { + orientation: "vertical" + }); + chart.set("scrollbarX", scrollbarX); chart.bottomAxesContainer.children.push(scrollbarX); + chart.set("scrollbarY", scrollbarY); + // Make stuff animate on load // https://www.amcharts.com/docs/v5/concepts/animations/ series.appear(); diff --git a/Transportes/RepContratosCalendario.aspx.vb b/Transportes/RepContratosCalendario.aspx.vb index 91813e109..383b245e7 100644 --- a/Transportes/RepContratosCalendario.aspx.vb +++ b/Transportes/RepContratosCalendario.aspx.vb @@ -62,11 +62,13 @@ Partial Class RepContratosCalendario Private Sub CargaCronograma() If DtAvance IsNot Nothing Then - For Each Row As DataRow In DtAvance.Rows - If String.IsNullOrEmpty(Row("CodigoAF").ToString()) Then - Row("CodigoAF") = "Unidad no asignada" - End If - Next + Dim DtUnidades As DataTable = GlobalDTActivoFijos(UsuarioActual.CveEmpresa).FiltraParametros("Codigo <> '' AND MedidaVehicular IN (2,3)", "Codigo", {"Codigo"}) + + 'For Each Row As DataRow In DtAvance.Rows + ' If String.IsNullOrEmpty(Row("CodigoAF").ToString()) Then + ' Row("CodigoAF") = "Unidad no asignada" + ' End If + 'Next Dim jsonData As New JArray() Dim jsonCategorias As New JArray() @@ -87,10 +89,10 @@ Partial Class RepContratosCalendario jsonData.Add(obj) Next - 'CATEGORIAS - For Each Row As DataRow In DtAvance.FiltraParametros("CodigoAF <> ''", "", {"CodigoAF"}).Rows + 'CATEGORIAS 'AGREGAR TODAS LAS UNIDADES + For Each Row As DataRow In DtUnidades.Rows Dim obj As New JObject( - New JProperty("category", Row("CodigoAF")) + New JProperty("category", Row("Codigo")) ) jsonCategorias.Add(obj) Next From e8a993f3facf2816489af7b44d663fbb1b8585b7 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Fri, 19 Apr 2024 18:01:29 -0700 Subject: [PATCH 06/11] --FIX, cerrar corte de caja al dia siguiente --Anticipos de publico general en otros clientes --- Ventas/Ventas.aspx.vb | 22 +++++++++++++++++++--- 1 file changed, 19 insertions(+), 3 deletions(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 0706e5dba..87fd3ae4a 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -3746,7 +3746,7 @@ Partial Class Ventas If ObjPVenta.DtResultados.Rows.Count > 0 Then CveCorte = ObjPVenta.CveCorte Dim FechaICorte As Date = ObjPVenta.FechaInicial.Date '.AddDays(-5) - If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso FechaICorte < NowADS().Date Then + If (UsuarioActual.Empresa.Funcionalidad(531) = "1" OrElse UsuarioActual.Empresa.Funcionalidad(109) = "1") AndAlso FechaICorte < NowADS().Date Then DebeCerrarCorte = True LblMotivoBloqueo.Text = $"Existe un corte del día {FechaICorte.ToString("dd/MM/yyyy")}. Favor de cerrarlo para iniciar un nuevo corte." Else @@ -16501,8 +16501,25 @@ Partial Class Ventas Dim ObjMovtos As New ClsMovimientos() If ObjMovtos.GetAnticiposNCIxCCliente(CveCliente) Then - Me.TmpDTAnticiposNCIxCCliente = ObjMovtos.DtResultados.Copy() + End If + + 'AGREGAR LOS ANTICIPOS, DEV, IxC QUE ESTEN EN PUBLICO GENERAL + If Me.TmpDTAnticiposNCIxCCliente IsNot Nothing AndAlso UsuarioActual.Empresa.Funcionalidad(109) = "1" AndAlso UsuarioActual.CveEmpresa = 190 Then + Dim CveClientePublicoGeneral = UsuarioActual.Empresa.Funcionalidad(714).ToEntero() + If CveClientePublicoGeneral > 0 Then + If CveCliente <> CveClientePublicoGeneral Then + If ObjMovtos.GetAnticiposNCIxCCliente(CveClientePublicoGeneral) Then + For Each DrGeneral As DataRow In ObjMovtos.DtResultados.Rows + Me.TmpDTAnticiposNCIxCCliente.Rows.Add(DrGeneral.ItemArray) + Next + End If + End If + End If + End If + ObjMovtos.Dispose() + + If Me.TmpDTAnticiposNCIxCCliente IsNot Nothing Then Dim DtMovtos As DataTable = Me.TmpDTAnticiposNCIxCCliente.FiltraParametros($"Saldo > 0 AND SaldoSubtotal > 0 {If(CveVenta < 0, $"AND Tipo = 'Ant' ", "")} {If(DdlTipoComprobante.SelectedValue = "Ant", "AND Tipo = 'NC'", "")}") If UsuarioActual.CveEmpresa.Contiene(72, 80, 146) Then @@ -16516,7 +16533,6 @@ Partial Class Ventas Else GVAnticipos.DataSource = Nothing End If - ObjMovtos.Dispose() If CveVenta <= 0 OrElse (EsCreaApartirDe Or CveDevolucion > 0) Then divAmortizacionTipo.Visible = True From 6af51a671cbb842ad623b7d61de004420239e963 Mon Sep 17 00:00:00 2001 From: AbrahamCastilloV Date: Fri, 19 Apr 2024 18:13:45 -0700 Subject: [PATCH 07/11] -- --- Transportes/RepContratoDetalle.aspx.vb | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/Transportes/RepContratoDetalle.aspx.vb b/Transportes/RepContratoDetalle.aspx.vb index 39150edd3..0a2d19126 100644 --- a/Transportes/RepContratoDetalle.aspx.vb +++ b/Transportes/RepContratoDetalle.aspx.vb @@ -325,10 +325,12 @@ Partial Class RepContratoDetalle New ReportParameter("TipoAF", DdlTipoAF.SelectedItem.ToString()), New ReportParameter("Pesos", Math.Round(TxtImporte.Text.ToDecimal, 2).ToString), New ReportParameter("Moneda", DdlMoneda.SelectedItem.ToString), - New ReportParameter("Anticipo", Math.Round((TxtAnticipo.Text.ToDecimal * TxtImporte.Text.ToDecimal) / 2).ToString), + New ReportParameter("Anticipo", Math.Round((TxtAnticipo.Text.ToDecimal * TxtImporte.Text.ToDecimal), 2).ToString), New ReportParameter("Total", Math.Round((TxtImporte.Text.ToDecimal - (TxtAnticipo.Text.ToDecimal * TxtImporte.Text.ToDecimal)), 2).ToString), New ReportParameter("DiaSalida", $"{TxtFechaSalida.Text.ToDate.Hour}:{TxtFechaSalida.Text.ToDate.Minute} "), - New ReportParameter("TelefonoEmpresa", TelefonoEmpresa) + New ReportParameter("TelefonoEmpresa", TelefonoEmpresa), + New ReportParameter("FechaImpresion", Date.Now.ToString("dd/MM/yyyy HH:mm:ss")), + New ReportParameter("Usuario", UsuarioActual.Nombre) } ImprimirPDFStimul($"{UsuarioActual.Empresa.Ruta}Formatos\Contrato.mrt", dtResult, params, NombreArchivo:="Contrato") From f77e7adbb8aa557dd813f0a091924e05e263bb4c Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Fri, 19 Apr 2024 18:26:59 -0700 Subject: [PATCH 08/11] --- Nomina/CalculoISRAnual.aspx | 10 +++++----- Nomina/Nomina.aspx | 8 ++------ 2 files changed, 7 insertions(+), 11 deletions(-) diff --git a/Nomina/CalculoISRAnual.aspx b/Nomina/CalculoISRAnual.aspx index 64c1e0fed..85ad28de4 100644 --- a/Nomina/CalculoISRAnual.aspx +++ b/Nomina/CalculoISRAnual.aspx @@ -26,19 +26,19 @@ -
  • - Excel -
  • - Autoriza + Autorizar
    • +
  • + Descargar XLS +
  • - Formato Anual +  Constancia 37
    • diff --git a/Nomina/Nomina.aspx b/Nomina/Nomina.aspx index ed55de56d..6723242a6 100644 --- a/Nomina/Nomina.aspx +++ b/Nomina/Nomina.aspx @@ -215,10 +215,7 @@ - -
  • - Ordenar -
    • +
  • Autorizar
    • @@ -5049,8 +5046,7 @@
    done_all Guardar - - + <%----%>
    From 6d172f53c7f6fd10053a1d055c04ab858b223156 Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Fri, 19 Apr 2024 18:27:25 -0700 Subject: [PATCH 09/11] --- Nomina/Nomina.aspx.cs | 7 +------ 1 file changed, 1 insertion(+), 6 deletions(-) diff --git a/Nomina/Nomina.aspx.cs b/Nomina/Nomina.aspx.cs index 89610e570..d42c673e6 100644 --- a/Nomina/Nomina.aspx.cs +++ b/Nomina/Nomina.aspx.cs @@ -10994,12 +10994,7 @@ public partial class Nomina_Nomina2 : ClsPaginas Alert("Se cargo satisfactoriamente."); RegistraScript(string.Format("$('#divCargaMasiva').modal('hide');")); - if (ChkCargaMasivaRecalcularNomina.Checked) - { - cargaDatos(true); - - } - // + cargaPeriodos(); } } } From e74c1edb63c938178a5276e422137239f5e240a6 Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Fri, 19 Apr 2024 18:54:30 -0700 Subject: [PATCH 10/11] --- RH/CatPersonal.aspx.vb | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/RH/CatPersonal.aspx.vb b/RH/CatPersonal.aspx.vb index 05de5de9c..5ecad4271 100644 --- a/RH/CatPersonal.aspx.vb +++ b/RH/CatPersonal.aspx.vb @@ -134,7 +134,10 @@ Partial Class RH_CatPersonal FechaFIngreso = "-1" End If - If ObjPersonal.GetPersonal(-1, "-1", "-1", "-1", "-1", CveTurno, CvePuesto, CveDepartamento, CveRuta, CveEscolaridad, CveEstadoCivil, CveGenero, CveEstatusPersonal, CveSubProyecto, CveClienteAsignado, HorarioTrabajo, CveSupervisor, CveTipoPeriodo, CveMetodoPago, CveTipoContrato, CveMotivoBaja, CveProyecto, FechaIFinContrato, FechaFFinContrato, FechaIIngreso, FechaFIngreso, UsuarioActual.CveEmpresa, ddlclasificacion.SelectedValue.ToEntero()) Then + If ObjPersonal.GetPersonal(-1, "-1", "-1", "-1", "-1", CveTurno, CvePuesto, CveDepartamento, CveRuta, CveEscolaridad, CveEstadoCivil, CveGenero, + CveEstatusPersonal, CveSubProyecto, CveClienteAsignado, HorarioTrabajo, CveSupervisor, CveTipoPeriodo, CveMetodoPago, + CveTipoContrato, CveMotivoBaja, CveProyecto, FechaIFinContrato, FechaFFinContrato, FechaIIngreso, FechaFIngreso, + UsuarioActual.CveEmpresa, ddlclasificacion.SelectedValue.ToEntero()) Then DTDatos = ObjPersonal.DtResultados 'filtro por usuario subproyecto/sucursal vsh From c32dc25c537d3a818cf6a63b5325bebc362c851b Mon Sep 17 00:00:00 2001 From: rakcsle Date: Fri, 19 Apr 2024 19:14:07 -0700 Subject: [PATCH 11/11] =?UTF-8?q?Verificaci=C3=B3n=20update=20de=20env?= =?UTF-8?q?=C3=ADo=20de=20correo=20=20(MandaMails)?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/Ventas.aspx.vb | 16 +++++++++++++--- 1 file changed, 13 insertions(+), 3 deletions(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 121b91ca6..ed4a6ef7b 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -16426,7 +16426,9 @@ Partial Class Ventas Try ' BytesPdfCotizacion(CveVenta) - Dim Hilo As New System.Threading.Thread(Sub() MandaMails(UsuarioActual, CveVenta, DdlTipoComprobante.SelectedValue.ToString(), LocalSerieFolio, ChkEnviarFactura.Checked, ArchivoXML, ArchivoPDF, ArchivoAdjunto, CorreoContactoCRM:=CorreoContactoCRM)) + Dim capturedContext = HttpContext.Current + Dim Hilo As New System.Threading.Thread(Sub() MandaMails(UsuarioActual, CveVenta, DdlTipoComprobante.SelectedValue.ToString(), LocalSerieFolio, ChkEnviarFactura.Checked, ArchivoXML, ArchivoPDF, ArchivoAdjunto, CorreoContactoCRM:=CorreoContactoCRM, + EsHilo:=True, Contexto:=capturedContext)) Hilo.Start() Catch ex As Exception OnError("Ocurrió error al mandar Mail", ex) @@ -16473,7 +16475,9 @@ Partial Class Ventas Try ' BytesPdfCotizacion(CveVenta) - Dim Hilo As New System.Threading.Thread(Sub() MandaMails(UsuarioActual, CveVenta, DdlTipoComprobante.SelectedValue.ToString(), LocalSerieFolio, ChkEnviarFactura.Checked, ArchivoXML, ArchivoPDF, ArchivoAdjunto)) + Dim capturedContext = HttpContext.Current + Dim Hilo As New System.Threading.Thread(Sub() MandaMails(UsuarioActual, CveVenta, DdlTipoComprobante.SelectedValue.ToString(), LocalSerieFolio, ChkEnviarFactura.Checked, ArchivoXML, ArchivoPDF, ArchivoAdjunto, + EsHilo:=True, Contexto:=capturedContext)) Hilo.Start() Catch ex As Exception OnError("Ocurrió error al mandar Mail", ex) @@ -21922,7 +21926,13 @@ Partial Class Ventas #End Region #Region " MANDA CORREO " - Private Sub MandaMails(UsuarioActual As Usuario, CveVenta As Integer, TipoDocto As String, SerieFolio As String, EnviarFactura As Boolean, XML As String, PDF As String, Adjunto As String, Optional CorreoContactoCRM As String = "") + Private Sub MandaMails(UsuarioActual As Usuario, CveVenta As Integer, TipoDocto As String, SerieFolio As String, EnviarFactura As Boolean, XML As String, PDF As String, Adjunto As String, Optional CorreoContactoCRM As String = "", + Optional EsHilo As Boolean = False, Optional Contexto As HttpContext = Nothing) + + If EsHilo Then + HttpContext.Current = Contexto + HttpContext.Current.Session("UsuarioSIG") = UsuarioActual + End If Dim ObjMail As New ClsSisMail() Dim ResultadoMail As Integer = 0