From 12ac2b0561724091985a760596fc809c7e2f0e92 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 26 Jul 2024 17:49:58 -0700 Subject: [PATCH 1/6] =?UTF-8?q?--=20validaci=C3=B3n=20de=20carga=20excel,?= =?UTF-8?q?=20cuando=20no=20existe=20el=20PS?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Inventarios/TraspasoAlmacen.aspx.vb | 21 +++++++++------------ 1 file changed, 9 insertions(+), 12 deletions(-) diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb index 68399421d..852727307 100644 --- a/Inventarios/TraspasoAlmacen.aspx.vb +++ b/Inventarios/TraspasoAlmacen.aspx.vb @@ -2953,16 +2953,14 @@ Partial Class Inventarios_TraspasoAlmacen Dim RowPS As DataRow = DtPS.FiltroPrimero(String.Format("Codigo='{0}'", RowExcel("Codigo").ToString())) - Dim CveProducto As Integer = RowPS("CvePS").ToString().ToEntero() - Dim CveUnidadMedida As Integer = RowPS("CveUnidadMedida").ToString().ToEntero() - - Dim Cantidad As Decimal = RowExcel("Cantidad").ToString().ToDecimal() - Dim Serie As String = RowExcel("Serie").ToString() - Dim Lote As String = RowExcel("Lote").ToString() - Dim FechaCaducidad As Date = If(RowExcel("FechaCaducidad").ToString = "", MinFecha, RowExcel("FechaCaducidad").ToString.ToDate) - Dim Observaciones As String = RowExcel("Observaciones").ToString() - - If CveProducto > 0 Then + If RowPS IsNot Nothing Then + Dim CveProducto As Integer = RowPS("CvePS").ToString().ToEntero() + Dim CveUnidadMedida As Integer = RowPS("CveUnidadMedida").ToString().ToEntero() + Dim Cantidad As Decimal = RowExcel("Cantidad").ToString().ToDecimal() + Dim Serie As String = RowExcel("Serie").ToString() + Dim Lote As String = RowExcel("Lote").ToString() + Dim FechaCaducidad As Date = If(RowExcel("FechaCaducidad").ToString = "", MinFecha, RowExcel("FechaCaducidad").ToString.ToDate) + Dim Observaciones As String = RowExcel("Observaciones").ToString() Dim Valido As Boolean = True Dim ValidarLote As Boolean = True @@ -3001,10 +2999,9 @@ Partial Class Inventarios_TraspasoAlmacen RowsNoCargados = RowsNoCargados + 1 ProductosNoCargados.AppendFormat("{0},", RowPS("PSCodigo").ToString()) End If - Else RowsNoCargados = RowsNoCargados + 1 - ProductosNoCargados.AppendFormat("{0},", RowExcel("Producto").ToString()) + ProductosNoCargados.AppendFormat("{0}, ", RowExcel("Producto").ToString()) End If End If Next From f8017daa3323bb27eb644d2cea638ebbd280a1f1 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 26 Jul 2024 18:12:57 -0700 Subject: [PATCH 2/6] -- cambio a globaldtvendedores --- Ventas/PV.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb index 9215c6c91..9d5c24792 100644 --- a/Ventas/PV.aspx.vb +++ b/Ventas/PV.aspx.vb @@ -3031,7 +3031,7 @@ Partial Class PV 'If ObjVendedores.GetVendedores(UsuarioActual.CveEmpresa) Then DtVendedores = ObjVendedores.DtResultados.Copy 'ObjVendedores.Dispose() - DtVendedores = GlobalDTVendedores(UsuarioActual.CveEmpresa) + DtVendedores = GlobalDTVendedores(UsuarioActual.CveEmpresa, VendedorTipo:=-1).Copy If DtVendedores IsNot Nothing Then If UsuarioActual.Empresa.Funcionalidad(302) = "1" AndAlso DdlSubProyectoDatos.SelectedValue.ToEntero > 0 Then From d3c799971cea9616d11f2b8bf94b4916ebf2978c Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 27 Jul 2024 07:36:25 -0700 Subject: [PATCH 3/6] =?UTF-8?q?--=20cambio=20en=20obtenci=C3=B3n=20de=20gl?= =?UTF-8?q?obaldtsubpro?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/ClientesAbonar.aspx.vb | 20 ++++++++++++++------ 1 file changed, 14 insertions(+), 6 deletions(-) diff --git a/Ventas/ClientesAbonar.aspx.vb b/Ventas/ClientesAbonar.aspx.vb index 5e3d9e961..111b6df00 100644 --- a/Ventas/ClientesAbonar.aspx.vb +++ b/Ventas/ClientesAbonar.aspx.vb @@ -1767,13 +1767,21 @@ Partial Class Ventas_ClientesAbonar DtImpuestos = CargaTotalesImpuestos(DtImpuestos) - Dim DrSubProyecto As DataRow = GlobalDTSubProyectos(-1, ObjFacturaDevolucion.CveSubProyecto).Rows(0) - + Dim DrSubProyecto As DataRow = GlobalDTSubProyectos(-1, ObjFacturaDevolucion.CveSubProyecto, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimero("") Dim Cantidad As Decimal = 1 - Dim CveProyecto As Integer = DrSubProyecto("CveProyecto").ToString().ToEntero() - Dim CveSubProyecto As Integer = DrSubProyecto("CveSubProyecto").ToString.ToEntero - Dim SubProyecto As String = DrSubProyecto("SubProyecto").ToString - Dim Proyecto As String = DrSubProyecto("Proyecto").ToString + Dim CveProyecto As Integer + Dim CveSubProyecto As Integer + Dim SubProyecto As String + Dim Proyecto As String + If DrSubProyecto IsNot Nothing Then + CveProyecto = DrSubProyecto("CveProyecto").ToString().ToEntero() + CveSubProyecto = DrSubProyecto("CveSubProyecto").ToString.ToEntero + SubProyecto = DrSubProyecto("SubProyecto").ToString + Proyecto = DrSubProyecto("Proyecto").ToString + Else + Alert("Ocurrió un error al obtener información de la sucursal") + Exit Sub + End If Dim CveSATNC As Integer Dim ArrayNC As String() = UsuarioActual.Empresa.Funcionalidad(591).Split(",".ToCharArray()) From 1751d97d7ebb70b8b5ae49343022f65b9d0cab3f Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 27 Jul 2024 07:40:37 -0700 Subject: [PATCH 4/6] =?UTF-8?q?-=20activaci=C3=B3n=20liga=20en=20c=C3=B3di?= =?UTF-8?q?go?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Ventas/CatPS.aspx | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/Ventas/CatPS.aspx b/Ventas/CatPS.aspx index 54ae45b71..be19ea384 100644 --- a/Ventas/CatPS.aspx +++ b/Ventas/CatPS.aspx @@ -214,10 +214,10 @@ - + - - + + From 438157531c35af57b314ead3fd7a892841ad3698 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 27 Jul 2024 15:13:43 -0700 Subject: [PATCH 5/6] -- que mande curp, cuando es Resico o RFC= longitud 13 --- App_Code/LogicNominas.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/App_Code/LogicNominas.vb b/App_Code/LogicNominas.vb index d49296456..bc203d834 100644 --- a/App_Code/LogicNominas.vb +++ b/App_Code/LogicNominas.vb @@ -330,7 +330,7 @@ Public Class LogicNominas cfdi.Emisor.RFC = UsuarioActual.Empresa.RFC cfdi.Emisor.RegimenFiscal = UsuarioActual.Empresa.CodigoRegimenFiscal 'aplica persona fisica debe de tener CURP - If cfdi.Emisor.RegimenFiscal.Contiene("605", "606", "608", "611", "612", "614", "616", "621", "622", "629", "630", "615") Then + If cfdi.Emisor.RegimenFiscal.Contiene("605", "606", "608", "611", "612", "614", "616", "621", "622", "629", "630", "615", "626") OrElse cfdi.Emisor.RFC.Length = 13 Then cfdi.Emisor.CURP = UsuarioActual.Empresa.CURP End If cfdi.Nomina.CveNomina = CveNomina From 968ae1556ac465b6a8db9eef27679227c9069067 Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 27 Jul 2024 15:16:01 -0700 Subject: [PATCH 6/6] - --- Compras/RepCxP.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Compras/RepCxP.aspx.vb b/Compras/RepCxP.aspx.vb index 39f548632..6472107ff 100644 --- a/Compras/RepCxP.aspx.vb +++ b/Compras/RepCxP.aspx.vb @@ -1945,7 +1945,7 @@ Partial Class Compras_RepCxP Dim Filtro As String = $"{Cliente}{Sucursal}{Grupo}{FechaIn}{FechaFn}{TipoDocto}{FVI}{FVF}{ClasificacionProv}{CorteA}" - GvCxP.ExportToExcelGembox("ReporteCxC", UsuarioActual, "REPORTE DE CUENTAS POR PAGAR", DatoTituloExtra:=$"", DatosFiltros:=Filtro) + GvCxP.ExportToExcelGembox("ReporteCxP", UsuarioActual, "REPORTE DE CUENTAS POR PAGAR", DatoTituloExtra:=$"", DatosFiltros:=Filtro) End Sub