From c6ad5c5d6ede8f12839a0ef4c68e346f4d14c833 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 22 Jul 2021 10:47:53 -0700 Subject: [PATCH 01/39] fecha caducidad no requerida --- Inventarios/PrestamosdeProveedor.aspx | 7 +------ Inventarios/PrestamosdeProveedor.aspx.vb | 1 + 2 files changed, 2 insertions(+), 6 deletions(-) diff --git a/Inventarios/PrestamosdeProveedor.aspx b/Inventarios/PrestamosdeProveedor.aspx index 0363de115..dd8e3f67e 100644 --- a/Inventarios/PrestamosdeProveedor.aspx +++ b/Inventarios/PrestamosdeProveedor.aspx @@ -158,12 +158,7 @@ - - - - - - + diff --git a/Inventarios/PrestamosdeProveedor.aspx.vb b/Inventarios/PrestamosdeProveedor.aspx.vb index 1426454a2..3913420b9 100644 --- a/Inventarios/PrestamosdeProveedor.aspx.vb +++ b/Inventarios/PrestamosdeProveedor.aspx.vb @@ -33,6 +33,7 @@ Partial Class Inventarios_PrestamosdeProveedor Private Sub CargaCombos() RVFechaEntrega.MaximumValue = Now.ToShortDateString + TxtFechaEntrega.Text = Now.ToShortDateString ddlProveedor.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1") From 48a6f07420a83022e9c9dbd7aa04f0dac88dccb9 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 22 Jul 2021 10:48:12 -0700 Subject: [PATCH 02/39] codigo temporal para el usuario --- App_Code/Modelos.vb | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index afc155043..be8c5a86e 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -4615,6 +4615,10 @@ Namespace Modelos '1 NORMAL, 2 CON PAGOS Dim ModalidadRefacturacion As Integer = UsuarioActual.Empresa.Funcionalidad(586).ToEntero() + If CveUsuario = 1719 Then + ModalidadRefacturacion = 2 + End If + If EsRefacturacion AndAlso ModalidadRefacturacion <= 0 Then Retorno.Mensaje = "La factura no se puede refacturar debido a que la empresa no tiene asignada una modalidad de refacturación." Retorno.TipoMensaje = TipoMensaje.MsgAdvertencia From 567604c3a1813297a860d7e80b25c13d7dd8a862 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 22 Jul 2021 10:48:40 -0700 Subject: [PATCH 03/39] correcion para devoluciones --- Inventarios/RecepcionAlmacen.aspx.vb | 55 +++++++++++++++------------- 1 file changed, 29 insertions(+), 26 deletions(-) diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb index cf7cb2ec5..826698cd6 100644 --- a/Inventarios/RecepcionAlmacen.aspx.vb +++ b/Inventarios/RecepcionAlmacen.aspx.vb @@ -992,40 +992,41 @@ Partial Class Inventarios_RecepcionAlmacen Dim CargaSoloUsados As Boolean = False If ObjInventario.RecepcionAlmacenGet(pCveCompra, BuscaEntregaDirecta, UsuarioActual.CveEmpresa) AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then - Dim DtRecepcion As DataTable = Nothing + Dim DtRecepcion As DataTable = ObjInventario.DtResultados.Copy() Dim NumUsados = ObjInventario.DtResultados.COUNT("EsUsado", "EsUsado = True").ToEntero() Dim NumProductos = ObjInventario.DtResultados.COUNT("EsUsado", "EsUsado = False").ToEntero() Dim CveSubProyecto As Integer - 'SI LA COMPRA TIENE PRODUCTOS Y USADOS SOLO MOSTRAR LOS PRODUCTOS - If NumProductos > 0 AndAlso NumUsados > 0 Then - DtRecepcion = ObjInventario.DtResultados.FiltraParametros("EsUsado = False") - SumarImporteUsados = True - ValidarRecepcionUsados = True - 'SI LA COMPRA TIENE PUROS USADOS, MOSTRAR LOS USADOS Y CARGAR LOS ALMACENES - ElseIf NumProductos = 0 AndAlso NumUsados > 0 Then - CargaSoloUsados = True - SumarImporteUsados = True - ValidarRecepcionUsados = True - DtRecepcion = ObjInventario.DtResultados.Copy() - If TipoMovimiento <> 3 Then 'sino es devolucion/NC + If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then + 'SI LA COMPRA TIENE PRODUCTOS Y USADOS SOLO MOSTRAR LOS PRODUCTOS + If NumProductos > 0 AndAlso NumUsados > 0 Then + DtRecepcion = ObjInventario.DtResultados.FiltraParametros("EsUsado = False") + SumarImporteUsados = True + ValidarRecepcionUsados = True + 'SI LA COMPRA TIENE PUROS USADOS, MOSTRAR LOS USADOS Y CARGAR LOS ALMACENES + ElseIf NumProductos = 0 AndAlso NumUsados > 0 Then + CargaSoloUsados = True + SumarImporteUsados = True + ValidarRecepcionUsados = True + DtRecepcion = ObjInventario.DtResultados.Copy() + CargaAlmacenes(DtRecepcion.Rows(0)("CveSubProyecto").ToString.ToEntero, "22", CveTipoCompra) - End If - Else - DtRecepcion = ObjInventario.DtResultados.Copy() + Else + DtRecepcion = ObjInventario.DtResultados.Copy() - 'VERIFICA LOS QUE TENGAN LAS CLASIFICACION DE USADOS - If ObjCompras.GetCompraDetalle(pCveCompra) Then - If ObjCompras.DtResultados.COUNT("Cantidad", "CveClasificacion=20519") > 0 Then - SumarImporteUsados = True - ValidarRecepcionUsados = True - Else - SumarImporteUsados = False - ValidarRecepcionUsados = False + 'VERIFICA LOS QUE TENGAN LAS CLASIFICACION DE USADOS + If ObjCompras.GetCompraDetalle(pCveCompra) Then + If ObjCompras.DtResultados.COUNT("Cantidad", "CveClasificacion=20519") > 0 Then + SumarImporteUsados = True + ValidarRecepcionUsados = True + Else + SumarImporteUsados = False + ValidarRecepcionUsados = False + End If End If - End If + End If End If CveSubProyecto = DtRecepcion.Rows(0)("CveSubProyecto").ToString.ToEntero @@ -1129,7 +1130,9 @@ Partial Class Inventarios_RecepcionAlmacen If CargaSoloUsados Then CargaAlmacenes(DtRecepcion.Rows(0)("CveSubProyecto").ToString.ToEntero, "22", CveTipoCompra) Else - CargaAlmacenes(DtRecepcion.Rows(0)("CveSubProyecto").ToString.ToEntero, CveTipoCompra:=CveTipoCompra) + If TipoMovimiento <> 3 Then 'cuando no es devolución + CargaAlmacenes(DtRecepcion.Rows(0)("CveSubProyecto").ToString.ToEntero, CveTipoCompra:=CveTipoCompra) + End If End If End If End If From 311ded16af709bc3af6fe76ca8c7e005326bfddd Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 22 Jul 2021 11:02:10 -0700 Subject: [PATCH 04/39] =?UTF-8?q?--=20correci=C3=B3n.=20=20para=20eliminar?= =?UTF-8?q?=20un=20movimeinto=20cancelado.=20estaba=20invertidas=20las=20v?= =?UTF-8?q?alidaciones?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Bancos/IE.aspx.vb | 17 ++++++++++++++++- 1 file changed, 16 insertions(+), 1 deletion(-) diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index 43a82a7dc..e0ef0f2ee 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -193,6 +193,20 @@ Partial Class Bancos_IE End Set End Property + Private Property CveIECancelado As Integer + Get + If ViewState("CveIECancelado") Is Nothing Then + Return -1 + Else + Return ViewState("CveIECancelado").ToString().ToEntero() + End If + + End Get + Set(value As Integer) + ViewState("CveIECancelado") = value + End Set + End Property + Private Property ImporteOriginalDevDin As Decimal Get Return ViewState("ImporteOriginalDevDin").ToString.ToDecimal @@ -1132,6 +1146,7 @@ Partial Class Bancos_IE LbMovimientoCancelado.Text = "Movimiento Cancelado:" HLIECancelacion.NavigateUrl = String.Format("/Bancos/IE.aspx?CveIE={0}", ObjIE.CveIECancelado) HLIECancelacion.Text = ObjIE.FolioIECancelado + CveIECancelado = ObjIE.CveIECancelacion End If 'Esconde datos que no tenemos @@ -4736,7 +4751,7 @@ Partial Class Bancos_IE End Sub Protected Sub LnkEliminar_Click(sender As Object, e As EventArgs) Handles LnkEliminar.Click - If CveIECancelacion > 0 Then + If CveIECancelado > 0 Then Alert("El Movimiento no se puede eliminar porque tiene una cancelación relacionada, se tiene que eliminar primero la cancelación", TipoMensaje.MsgAdvertencia) Else RegistraScript(String.Format("$('#{0}').modal('show');", "divDescripcion")) From c245759d10fe023b2cd6724f41dddd7d8098c191 Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Thu, 22 Jul 2021 13:14:07 -0700 Subject: [PATCH 05/39] --- Nomina/Nomina.aspx.cs | 2 +- Site.master.vb | 2 +- vwd.webinfo | 2 ++ 3 files changed, 4 insertions(+), 2 deletions(-) diff --git a/Nomina/Nomina.aspx.cs b/Nomina/Nomina.aspx.cs index 2e63ddb18..5fb57800d 100644 --- a/Nomina/Nomina.aspx.cs +++ b/Nomina/Nomina.aspx.cs @@ -2055,7 +2055,7 @@ public partial class Nomina_Nomina2 : ClsPaginas && (dtempleadosConceptos.COUNT("CveConcepto", string.Format("CveConcepto={0} AND CvePersonal ={1} AND Estatus =2", CveConcepto, SRCvePersonal)) == 0) ) { - if(!row["CveSistema"].ToString().ToEntero().Contiene(new int[] { 20,21,112,202, 203 })) + if(!row["CveSistema"].ToString().ToEntero().Contiene(new int[] { 20,21,112,202, 203,204,205,206,207,50,51 })) { BorradoLogico = 1; } diff --git a/Site.master.vb b/Site.master.vb index d187dbef2..5f9de4168 100644 --- a/Site.master.vb +++ b/Site.master.vb @@ -365,7 +365,7 @@ Partial Class Site For Each drN As DataRow In Nietos LinkNieto = drN("LIGA").ToString() If (drH("IsAngular").ToString() = "1") Then - LinkNieto = String.Format("{1}:4200{0}", drN("LIGA"), strdomain) + LinkNieto = String.Format("{1}:84{0}", drN("LIGA"), strdomain) End If If CveModulo = drN("CveModulo").ToString().ToEntero Then CveModuloPadreSeleccionado = CveModuloPadre : CveModuloHijoSeleccionado = CveModuloHijo diff --git a/vwd.webinfo b/vwd.webinfo index a4b7678ae..5384d515a 100644 --- a/vwd.webinfo +++ b/vwd.webinfo @@ -276,6 +276,8 @@ + + From 4f84d3e13c3677569a68c89c8d71978acf8d85f8 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Thu, 22 Jul 2021 16:43:58 -0700 Subject: [PATCH 06/39] Update Compras detalles, actualizar inzumo --- Compras/Compras.aspx.vb | 1 + 1 file changed, 1 insertion(+) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 699a08d12..386f967c1 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -10283,6 +10283,7 @@ Partial Class Compras_Compras (row1("CveTipoGasto").ToString.ToEntero <> row2("CveTipoGasto").ToString.ToEntero) Or (row1("Total").ToString.ToDouble <> row2("Total").ToString.ToDouble) Or (row1("NoDeducible").ToString <> row2("NoDeducible").ToString) Or + (row1("CveActivoFijo").ToString.ToEntero <> row2("CveActivoFijo").ToString.ToEntero) Or (row1("CvePS").ToString.ToEntero <> row2("CvePS").ToString.ToEntero) Then Return False End If From 3740d8c9191e43425d9b63a30f072b44d1194a5c Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 22 Jul 2021 20:26:50 -0700 Subject: [PATCH 07/39] -- modulo liberado. usuario fromo, e119 --- App_Code/ClsPaginas.vb | 25 +++++++++++++++++++++---- 1 file changed, 21 insertions(+), 4 deletions(-) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index b7c9bd027..63911c9ad 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -1798,12 +1798,29 @@ Public Class ClsPaginas Application("GlobalDTContratosSecciones") = value End Set End Property - Property GlobalDTContratos() As DataTable + Property GlobalDTContratos(CveEmpresa As Integer, Optional CveContrato As Integer = -1, Optional CveSubProyecto As Integer = -1) As DataTable Get - GlobalDTContratos = DirectCast(Application("GlobalDTContratos"), DataTable) + Dim AppNombre As String = String.Format("GlobalDTContratos-{0}", CveEmpresa) + 'sino existe, recarga los datos + If Application(AppNombre) Is Nothing Then + Using ObjContratos As New ClsContratos + If ObjContratos.GetContratos(-1, -1) Then Application(AppNombre) = ObjContratos.DtResultados Else Application(AppNombre) = Nothing + End Using + End If + + Dim StrSQL As New StringBuilder + StrSQL.Append(" 1 = 1 ") + If CveContrato >= 0 Then StrSQL.AppendFormat(" AND CveContrato = {0} ", CveContrato) + If CveSubProyecto >= 0 Then StrSQL.AppendFormat(" AND CveSubProyecto = {0} ", CveSubProyecto) + + Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), StrSQL.ToString, "", DataViewRowState.CurrentRows) + GlobalDTContratos = Dv.ToTable + Dv.Dispose() + End Get Set(value As DataTable) - Application("GlobalDTContratos") = value + Dim AppNombre As String = String.Format("GlobalDTContratos-{0}", CveEmpresa) + Application(AppNombre) = value End Set End Property Property GlobalDTContratosTipos(CveEmpresa As Integer) As DataTable @@ -5083,7 +5100,7 @@ Public Class ClsPaginas PaginaDict.Add("/Ventas/RepAuxiliarFacturas.aspx".ToUpper(), 567) PaginaDict.Add("/Ventas/CatAutorizacionLimites.aspx".ToUpper(), 781) PaginaDict.Add("/Ventas/RepComisionesServec.aspx".ToUpper(), 782) - PaginaDict.Add("/Ventas/RepComisionesServecDetalle.aspx".ToUpper(), 783) + PaginaDict.Add("/Ventas/RepComisionesServecDetalle.aspx".ToUpper(), 782) #End Region From d8fd70c9e3cbd39874dd7c05781b977c14b82202 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 22 Jul 2021 20:27:32 -0700 Subject: [PATCH 08/39] =?UTF-8?q?filtro=20de=20opci=C3=B3n=20de=20cuentas?= =?UTF-8?q?=20asignadas/no=20asignadas?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsContabilidad.vb | 3 ++- Contabilidad2/CatCuentasAsignaciones.aspx | 9 +++++++++ Contabilidad2/CatCuentasAsignaciones.aspx.vb | 4 ++-- 3 files changed, 13 insertions(+), 3 deletions(-) diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index 289b3981f..4556220f6 100644 --- a/App_Code/ClsContabilidad.vb +++ b/App_Code/ClsContabilidad.vb @@ -5747,7 +5747,7 @@ Public Class ClsContabilidad Return Retorno End Function - Public Function GetCuentasAsignacionesSistema(CveEmpresa As Integer, Tipo As Integer) As Boolean + Public Function GetCuentasAsignacionesSistema(CveEmpresa As Integer, Tipo As Integer, Opcion As Integer) As Boolean Dim Retorno = False DataAdapter("PA_Conta_CuentasAsignacionesSistemaGet") @@ -5755,6 +5755,7 @@ Public Class ClsContabilidad With SqlAdapter.SelectCommand.Parameters .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@Tipo", SqlDbType.Int).Value = Tipo + .Add("@Opcion", SqlDbType.Int).Value = Opcion End With Try diff --git a/Contabilidad2/CatCuentasAsignaciones.aspx b/Contabilidad2/CatCuentasAsignaciones.aspx index 5169e3e04..e518412a9 100644 --- a/Contabilidad2/CatCuentasAsignaciones.aspx +++ b/Contabilidad2/CatCuentasAsignaciones.aspx @@ -45,6 +45,15 @@ + + +
+ + + + + +
diff --git a/Contabilidad2/CatCuentasAsignaciones.aspx.vb b/Contabilidad2/CatCuentasAsignaciones.aspx.vb index b350aa975..2dcb413aa 100644 --- a/Contabilidad2/CatCuentasAsignaciones.aspx.vb +++ b/Contabilidad2/CatCuentasAsignaciones.aspx.vb @@ -21,7 +21,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones End If End Sub - Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click + Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) CargaDatosSistema() End Sub @@ -37,7 +37,7 @@ Partial Class Contabilidad2_CatCuentasAsignaciones Private Sub CargaDatosSistema() Dim ObjConta As New ClsContabilidad - If ObjConta.GetCuentasAsignacionesSistema(UsuarioActual.CveEmpresa, DdlTipo.selectedvalue.toentero) Then + If ObjConta.GetCuentasAsignacionesSistema(UsuarioActual.CveEmpresa, DdlTipo.SelectedValue.ToEntero, DdlOpcion.SelectedValue.ToEntero) Then GvDatos.DataSource = ObjConta.DtResultados End If ObjConta.Dispose() From d1240718346f46d5cc0a033b7aeb247d6b6baa0d Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 22 Jul 2021 20:27:55 -0700 Subject: [PATCH 09/39] - usuario fromo e119 --- App_Code/Modelos.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb index be8c5a86e..e4f5db821 100644 --- a/App_Code/Modelos.vb +++ b/App_Code/Modelos.vb @@ -4615,7 +4615,7 @@ Namespace Modelos '1 NORMAL, 2 CON PAGOS Dim ModalidadRefacturacion As Integer = UsuarioActual.Empresa.Funcionalidad(586).ToEntero() - If CveUsuario = 1719 Then + If UsuarioActual.CveUsuario = 1719 Then ModalidadRefacturacion = 2 End If From 36c63080cba5b6246b175c5b2bb71b31c4a8610f Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 22 Jul 2021 20:28:42 -0700 Subject: [PATCH 10/39] =?UTF-8?q?mensaje=20de=20rfc=20duplicado=20o=20c?= =?UTF-8?q?=C3=B3digo=20duplicado?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/ClsClientes.vb | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/App_Code/ClsClientes.vb b/App_Code/ClsClientes.vb index 5cfb77001..154097b80 100644 --- a/App_Code/ClsClientes.vb +++ b/App_Code/ClsClientes.vb @@ -720,11 +720,14 @@ Public Class ClsClientes ElseIf Ex1.Message.Contains("Número: 2601;") Then If Ex1.Message.Contains("UN_ClientesRFCEmpresa") Then - Alert("Ya existe un cliente registrado con el mismo RFC.", TipoMensaje.MsgAdvertencia) + Dim tRFC As String = Ex1.Message.Substring(194, 13) + Alert("Ya existe un cliente registrado con el mismo RFC: " & tRFC, TipoMensaje.MsgAdvertencia) + GuardaLog(String.Format("{0} DESCRIPCIÓN DETALLADA: {1} {2} {3}", "Ya existe un cliente registrado con el mismo RFC.", Ex1.ToString, vbCrLf, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)) End If If Ex1.Message.Contains("IND_Clientes_Codigo") Then Alert("Ya existe un cliente registrado con el mismo Código.", TipoMensaje.MsgAdvertencia) + GuardaLog(String.Format("{0} DESCRIPCIÓN DETALLADA: {1} {2} {3}", "Ya existe un cliente registrado con el mismo Código.", Ex1.ToString, vbCrLf, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)) End If Else Me.OnError("Ocurrió un error al Intentar guardar el Nuevo Cliente.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) From d52893f05c0eda800aa523a40a473006b85634a4 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 22 Jul 2021 20:29:02 -0700 Subject: [PATCH 11/39] cambio de PA de ER por segmento --- App_Code/ClsContPAQi.vb | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/App_Code/ClsContPAQi.vb b/App_Code/ClsContPAQi.vb index ec9312444..bef333969 100644 --- a/App_Code/ClsContPAQi.vb +++ b/App_Code/ClsContPAQi.vb @@ -5048,8 +5048,8 @@ Public Class ClsContPAQi ") - 'SqlDataAdapter(StrSQL.ToString, CommandType.Text) - SqlDataAdapter("PA_EstadoResultadosPorSegmento", CommandType.StoredProcedure) + SqlDataAdapter(StrSQL.ToString, CommandType.Text) + 'SqlDataAdapter("PA_EstadoResultadosPorSegmento", CommandType.StoredProcedure) With SqlAdapter.SelectCommand.Parameters From 09b5c4c2fc1e0a84ef4c840968bd5fd1ec408f3f Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 22 Jul 2021 20:29:24 -0700 Subject: [PATCH 12/39] globaldtcontratos, filtro por empresa --- Compras/PopUpVerFactura.aspx.vb | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index cc01a4d23..1cb659ebc 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -2233,10 +2233,10 @@ Partial Class PopUpVerFactura Dim CveContrato As Integer = DtMovimientos(0)("CveContrato").ToString.ToEntero If CveContrato > 0 Then - Contrato = GlobalDTContratos().FiltroPrimeroValor("DescripcionContrato", $"CveContrato={CveContrato} AND CveEmpresa = {UsuarioActual.CveEmpresa}") - NumContrato = GlobalDTContratos().FiltroPrimeroValor("NumeroContrato", $"CveContrato={CveContrato} AND CveEmpresa = {UsuarioActual.CveEmpresa}") - CveCliente = GlobalDTContratos().FiltroPrimeroValor("CveCliente", $"CveContrato = {CveContrato}").ToEntero - CveDireccionEnvio = GlobalDTContratos().FiltroPrimeroValor("CveDireccionEnvio", $"CveContrato = {CveContrato}").ToEntero + Contrato = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("DescripcionContrato", $"CveContrato={CveContrato} AND CveEmpresa = {UsuarioActual.CveEmpresa}") + NumContrato = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("NumeroContrato", $"CveContrato={CveContrato} AND CveEmpresa = {UsuarioActual.CveEmpresa}") + CveCliente = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveCliente", $"CveContrato = {CveContrato}").ToEntero + CveDireccionEnvio = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveDireccionEnvio", $"CveContrato = {CveContrato}").ToEntero If CveCliente > 0 Then DTCliente = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltraParametros($"CveCliente = {CveCliente}") From c9383dd152860c4535e5d9a6dfc6339a70d67b17 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 22 Jul 2021 20:29:52 -0700 Subject: [PATCH 13/39] globaldtcontratos y dispose --- Compras/Compras.aspx.vb | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb index 699a08d12..4c47d5360 100644 --- a/Compras/Compras.aspx.vb +++ b/Compras/Compras.aspx.vb @@ -18103,7 +18103,7 @@ Partial Class Compras_Compras Dim ObjContratos As New ClsContratos Dim TieneError As Boolean = False Dim Mensaje As String = "" - Dim dttemp As DataTable = Nothing ' GlobalDTContratos().FiltraParametros(String.Format("CveSubProyecto = {0}", DdlSubProyecto.SelectedValue.ToString)) + Dim dttemp As DataTable = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveSubProyecto = {0}", DdlSubProyecto.SelectedValue.ToString)) If dttemp IsNot Nothing AndAlso dttemp.Rows.Count > 0 Then Dim drContrato As DataRow = dttemp.Rows(0) If ObjContratos.GetContratosDetalle(drContrato("CveContrato").ToString.ToEntero) Then @@ -18136,6 +18136,7 @@ Partial Class Compras_Compras End If End If + ObjContratos.Dispose() If Not TieneError Then Select Case Modalidad Case "A" 'ADD From fc439b8e4a211e38a57a56cf08a915d855a90671 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 22 Jul 2021 20:30:13 -0700 Subject: [PATCH 14/39] usuario fromo temporal --- Ventas/Ventas.aspx.vb | 3 +++ 1 file changed, 3 insertions(+) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index f1a2176db..71af12c8d 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -13146,6 +13146,9 @@ Partial Class Ventas End If Dim ModalidadRefacturacion As Integer = UsuarioActual.Empresa.Funcionalidad(586).ToEntero() + If UsuarioActual.CveUsuario.Contiene(100, 1719) Then + ModalidadRefacturacion = 2 + End If 'REFACTURACION CON PAGOS, DEBE CANCELAR SALDOS DEL DOCUMENTO ANTERIOR Y TRASPASAR PAGOS AL NUEVO If ModalidadRefacturacion = 2 AndAlso ObjFactura.TipoDocto.Contiene("Ing", "Ant") AndAlso ObjFactura.NuevaFactura = 1 Then From e8cf498e70c4cb4e0b903931ff3dbd95f835fc9d Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 22 Jul 2021 20:30:40 -0700 Subject: [PATCH 15/39] trim. de estado --- General/SaldosIniciales.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb index 96c1fc580..03fa02cb5 100644 --- a/General/SaldosIniciales.aspx.vb +++ b/General/SaldosIniciales.aspx.vb @@ -901,7 +901,7 @@ Partial Class General_SaldosIniciales Dim Colonia As String = Row("Colonia").ToString Dim CodigoPostal As String = Row("Código Postal").ToString Dim Poblacion As String = Row("Población").ToString - Dim Estado As String = Row("Estado").ToString + Dim Estado As String = Row("Estado").ToString.Trim Dim Pais As String = Row("Pais").ToString Dim Telefono As String = Row("Teléfono").ToString.Replace("-", "").Replace(" ", "").Replace("(", "").Replace(")", "") Dim Contacto As String = Row("Contacto").ToString From d3ed373bad9eef3c5453236f4ddd2fcc0378da45 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 22 Jul 2021 20:30:55 -0700 Subject: [PATCH 16/39] cambio de globaldtcontratos --- Global.asax | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/Global.asax b/Global.asax index a5425d84b..97c839e09 100644 --- a/Global.asax +++ b/Global.asax @@ -480,11 +480,11 @@ '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ 'C O N T R A T O S - Using ObjContratos As New ClsContratos - If ObjContratos.GetContratos(-1, -1) Then Application("GlobalDTContratos") = ObjContratos.DtResultados Else Application("GlobalDTContratos") = Nothing - If ObjContratos.GetSecciones() Then Application("GlobalDTContratosSecciones") = ObjContratos.DtResultados Else Application("GlobalDTContratosSecciones") = Nothing - 'If ObjContratos.GetContratosTipos(-1) Then Application("GlobalDTContratosTipos") = ObjContratos.DtResultados Else Application("GlobalDTContratosTipos") = Nothing - End Using + 'Using ObjContratos As New ClsContratos + ' If ObjContratos.GetContratos(-1, -1) Then Application("GlobalDTContratos") = ObjContratos.DtResultados Else Application("GlobalDTContratos") = Nothing + ' If ObjContratos.GetSecciones() Then Application("GlobalDTContratosSecciones") = ObjContratos.DtResultados Else Application("GlobalDTContratosSecciones") = Nothing + ' 'If ObjContratos.GetContratosTipos(-1) Then Application("GlobalDTContratosTipos") = ObjContratos.DtResultados Else Application("GlobalDTContratosTipos") = Nothing + 'End Using GuardaLogAsax(String.Format("Globalasax 30:{0}", DateTime.Now)) From 94a4c32564d8163e8329873d375cb790d5c5cd5b Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 22 Jul 2021 21:15:33 -0700 Subject: [PATCH 17/39] -- cambios en globaldtContratos, parametro cveempresa --- App_Code/ClsPaginas.vb | 2 +- Contratos/Contrato.aspx.vb | 2 +- Contratos/ContratoAvance.aspx.vb | 2 +- Contratos/ContratoObraAutorizacion.aspx.vb | 2 +- Contratos/Estimaciones.aspx.vb | 2 +- Contratos/FacturacionMasiva.aspx.vb | 2 +- Contratos/RepContratos.aspx.vb | 2 +- Contratos/RepContratosAvances.aspx.vb | 2 +- Contratos/RepContratosCostos.aspx.vb | 2 +- Contratos/RepContratosDetalle.aspx.vb | 2 +- Contratos/RepContratosFianzas.aspx.cs | 2 +- Contratos/RepContratosObraAvances.aspx.vb | 2 +- Contratos/RepContratosSuministros.aspx.vb | 2 +- Contratos/RepPedidosDevolucionesXContrato.aspx.vb | 2 +- 14 files changed, 14 insertions(+), 14 deletions(-) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 63911c9ad..9e898f86c 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -1804,7 +1804,7 @@ Public Class ClsPaginas 'sino existe, recarga los datos If Application(AppNombre) Is Nothing Then Using ObjContratos As New ClsContratos - If ObjContratos.GetContratos(-1, -1) Then Application(AppNombre) = ObjContratos.DtResultados Else Application(AppNombre) = Nothing + If ObjContratos.GetContratos(-1, CveEmpresa) Then Application(AppNombre) = ObjContratos.DtResultados Else Application(AppNombre) = Nothing End Using End If diff --git a/Contratos/Contrato.aspx.vb b/Contratos/Contrato.aspx.vb index 62fc596a4..81398fed4 100644 --- a/Contratos/Contrato.aspx.vb +++ b/Contratos/Contrato.aspx.vb @@ -1654,7 +1654,7 @@ Partial Class Contratos_Default End Sub Private Sub CargaContratoPadre() DdlContratoPadre.Items.Clear() - DdlContratoPadre.DataSource = GlobalDTContratos.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveContratoTipo = {TipoContrato} {If(DdlCliente.SelectedValue.ToEntero > 0, $"AND CveCliente = {DdlCliente.SelectedValue}", "")} {If(CveContrato > 0, $"AND CveContrato <> {CveContrato}", "")} ") + DdlContratoPadre.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltraParametros($" CveContratoTipo = {TipoContrato} {If(DdlCliente.SelectedValue.ToEntero > 0, $"AND CveCliente = {DdlCliente.SelectedValue}", "")} {If(CveContrato > 0, $"AND CveContrato <> {CveContrato}", "")} ") DdlContratoPadre.DataBind() DdlContratoPadre.Items.Insert(0, New ListItem("Seleccione", "-1")) End Sub diff --git a/Contratos/ContratoAvance.aspx.vb b/Contratos/ContratoAvance.aspx.vb index a2271dff1..43540332c 100644 --- a/Contratos/ContratoAvance.aspx.vb +++ b/Contratos/ContratoAvance.aspx.vb @@ -135,7 +135,7 @@ Partial Class Contratos_ContratoAvance #Region "Filtros" Private Sub CargaContrato() - DdlContratos.DataSource = GlobalDTContratos.FiltraParametros(String.Format($"CveContratoTipo in (30,31) AND CveEmpresa = {UsuarioActual.CveEmpresa}")) + DdlContratos.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltraParametros(" CveContratoTipo in (30,31) ") DdlContratos.DataBind() End Sub diff --git a/Contratos/ContratoObraAutorizacion.aspx.vb b/Contratos/ContratoObraAutorizacion.aspx.vb index 312288238..ccd33f44e 100644 --- a/Contratos/ContratoObraAutorizacion.aspx.vb +++ b/Contratos/ContratoObraAutorizacion.aspx.vb @@ -133,7 +133,7 @@ Partial Class Contratos_ContratoObraAutorizacion Private Sub CargaContrato() - DDlContratosEstimaciones.DataSource = GlobalDTContratos.FiltraParametros(String.Format($"CveContratoTipo in (30,31) AND CveEmpresa = {UsuarioActual.CveEmpresa}")) + DDlContratosEstimaciones.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltraParametros("CveContratoTipo in (30,31) ") DDlContratosEstimaciones.DataBind() End Sub diff --git a/Contratos/Estimaciones.aspx.vb b/Contratos/Estimaciones.aspx.vb index 1c846d0f6..afd08771d 100644 --- a/Contratos/Estimaciones.aspx.vb +++ b/Contratos/Estimaciones.aspx.vb @@ -54,7 +54,7 @@ Partial Class Contratos_Estimaciones End Sub Private Sub CargaContratos() - DdlContrato.DataSource = GlobalDTContratos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DdlContrato.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa) DdlContrato.DataBind() DdlContrato.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todos", "-1")) End Sub diff --git a/Contratos/FacturacionMasiva.aspx.vb b/Contratos/FacturacionMasiva.aspx.vb index 5bf22c51f..e7f136f5d 100644 --- a/Contratos/FacturacionMasiva.aspx.vb +++ b/Contratos/FacturacionMasiva.aspx.vb @@ -115,7 +115,7 @@ Partial Class Contratos_FacturacionMasiva Private Sub CargaCombos() DdlCliente.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa) DdlCliente.DataBind() - DdlContrato.DataSource = GlobalDTContratos().FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}") + DdlContrato.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa) DdlContrato.DataBind() DdlSucursal.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1) DdlSucursal.DataBind() diff --git a/Contratos/RepContratos.aspx.vb b/Contratos/RepContratos.aspx.vb index 19902c81d..862ba07a6 100644 --- a/Contratos/RepContratos.aspx.vb +++ b/Contratos/RepContratos.aspx.vb @@ -55,7 +55,7 @@ Partial Class RepContratos End Sub Private Sub CargaContratos() - DdlContrato.DataSource = GlobalDTContratos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DdlContrato.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa) DdlContrato.DataBind() DdlContrato.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todos", "-1")) End Sub diff --git a/Contratos/RepContratosAvances.aspx.vb b/Contratos/RepContratosAvances.aspx.vb index cb5c64c16..efbfb6a52 100644 --- a/Contratos/RepContratosAvances.aspx.vb +++ b/Contratos/RepContratosAvances.aspx.vb @@ -42,7 +42,7 @@ Partial Class RepContratosAvances Private Sub CargaContratos() - DdlContrato.DataSource = GlobalDTContratos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DdlContrato.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa) DdlContrato.DataBind() DdlContrato.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todos", "-1")) End Sub diff --git a/Contratos/RepContratosCostos.aspx.vb b/Contratos/RepContratosCostos.aspx.vb index 24ec4e969..1f992d9dd 100644 --- a/Contratos/RepContratosCostos.aspx.vb +++ b/Contratos/RepContratosCostos.aspx.vb @@ -44,7 +44,7 @@ Partial Class Contratos_RepContratosCostos #Region "C O M B O S" Public Sub CargaContratos() - DdlContratos.DataSource = GlobalDTContratos().FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}") + DdlContratos.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa) DdlContratos.DataBind() End Sub diff --git a/Contratos/RepContratosDetalle.aspx.vb b/Contratos/RepContratosDetalle.aspx.vb index c62f0b3bd..95da1ce79 100644 --- a/Contratos/RepContratosDetalle.aspx.vb +++ b/Contratos/RepContratosDetalle.aspx.vb @@ -55,7 +55,7 @@ Partial Class RepContratos End Sub Private Sub CargaContratos() - DdlContrato.DataSource = GlobalDTContratos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DdlContrato.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa) DdlContrato.DataBind() DdlContrato.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todos", "-1")) End Sub diff --git a/Contratos/RepContratosFianzas.aspx.cs b/Contratos/RepContratosFianzas.aspx.cs index 3a4ab2e29..2497b618d 100644 --- a/Contratos/RepContratosFianzas.aspx.cs +++ b/Contratos/RepContratosFianzas.aspx.cs @@ -69,7 +69,7 @@ public partial class Contratos_RepContratosFianzas : ClsPaginas protected void CargaContratos() { - DdlContratos.DataSource = GlobalDTContratos.FiltraParametros("CveEmpresa = " + UsuarioActual.CveEmpresa); + DdlContratos.DataSource = get_GlobalDTContratos(UsuarioActual.CveEmpresa); DdlContratos.DataBind(); } protected void CargaClientes() diff --git a/Contratos/RepContratosObraAvances.aspx.vb b/Contratos/RepContratosObraAvances.aspx.vb index 987e7206c..1ee3aa59b 100644 --- a/Contratos/RepContratosObraAvances.aspx.vb +++ b/Contratos/RepContratosObraAvances.aspx.vb @@ -79,7 +79,7 @@ Partial Class RepContratosObraAvances Private Sub CargaContratos() - DdlContrato.DataSource = GlobalDTContratos.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveContratoTipo IN(30,31) ") + DdlContrato.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltraParametros(" CveContratoTipo IN(30,31) ") DdlContrato.DataBind() DdlContrato.Items.Insert(0, New System.Web.UI.WebControls.ListItem("Todos", "-1")) End Sub diff --git a/Contratos/RepContratosSuministros.aspx.vb b/Contratos/RepContratosSuministros.aspx.vb index 6b22f268c..b05d9970a 100644 --- a/Contratos/RepContratosSuministros.aspx.vb +++ b/Contratos/RepContratosSuministros.aspx.vb @@ -42,7 +42,7 @@ Partial Class Contratos_RepContratosSuministros #Region "C O M B O S" Public Sub CargaContratos() - DdlContratos.DataSource = GlobalDTContratos().FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}") + DdlContratos.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa) DdlContratos.DataBind() End Sub diff --git a/Contratos/RepPedidosDevolucionesXContrato.aspx.vb b/Contratos/RepPedidosDevolucionesXContrato.aspx.vb index 0c7ce6161..c47574744 100644 --- a/Contratos/RepPedidosDevolucionesXContrato.aspx.vb +++ b/Contratos/RepPedidosDevolucionesXContrato.aspx.vb @@ -45,7 +45,7 @@ Partial Class Ventas_RepPedidosDevolucionesXContrato #Region "C O M B O S" Public Sub CargaContratos() - DdlContratos.DataSource = GlobalDTContratos().FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}") + DdlContratos.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa) DdlContratos.DataBind() End Sub From 66e525779f0311276eea4c4d30853a049081a8a3 Mon Sep 17 00:00:00 2001 From: HECTOR RODRIGUEZ Date: Thu, 22 Jul 2021 23:04:36 -0700 Subject: [PATCH 18/39] --- App_Code/ClsContratos.vb | 17 +++++++++++++++++ App_Code/ClsInventarios.vb | 19 +++++++++++++++++++ 2 files changed, 36 insertions(+) diff --git a/App_Code/ClsContratos.vb b/App_Code/ClsContratos.vb index 83a20daf6..c867464e4 100644 --- a/App_Code/ClsContratos.vb +++ b/App_Code/ClsContratos.vb @@ -1179,6 +1179,23 @@ Public Class ClsContratos Return Retorno End Function + Public Function ValidaPSContrato(DtPS As String) As Boolean + Dim Retorno = False + + DataAdapter("PA_Con_ValidarPSContrato") + With SqlAdapter.SelectCommand.Parameters + .Add("@DtPS", SqlDbType.VarChar).Value = DtPS + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al cargar los Detalles del Contrato.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function #End Region #Region "Contratos detalles Avance" diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index 286840260..4c7c1ea00 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -2833,7 +2833,26 @@ Public Class ClsInventarios Return Retorno End Function + Public Function GetInventarioFisicoUniversoProductos(CveInventarioFisico As Integer, CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_InventarioFisicoUniversoProductosGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveInventarioFisico", SqlDbType.Int).Value = CveInventarioFisico + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + Try + SqlAdapter.Fill(Data) + Retorno = True + + Catch Ex1 As SqlException + Me.OnError("Ocurrió un error al obtener el universo de productos del inventario fisico.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Catch ex As Exception + OnError("Ocurrió un error al obtener el universo de productos del inventario fisico.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function #End Region #Region " INVENTARIOS - MAXIMO MINIMO" From c5dfa66659c9f4fbe96e43852784bde22b8e739b Mon Sep 17 00:00:00 2001 From: HECTOR RODRIGUEZ Date: Fri, 23 Jul 2021 10:17:55 -0700 Subject: [PATCH 19/39] dropdownlist por dropdownlost en proveedor --- Contratos/Contrato.aspx.vb | 2 +- Contratos/ContratoObra.aspx | 6 ++---- Contratos/ContratoObra.aspx.vb | 6 ++++-- 3 files changed, 7 insertions(+), 7 deletions(-) diff --git a/Contratos/Contrato.aspx.vb b/Contratos/Contrato.aspx.vb index 62fc596a4..0158f31ad 100644 --- a/Contratos/Contrato.aspx.vb +++ b/Contratos/Contrato.aspx.vb @@ -1654,7 +1654,7 @@ Partial Class Contratos_Default End Sub Private Sub CargaContratoPadre() DdlContratoPadre.Items.Clear() - DdlContratoPadre.DataSource = GlobalDTContratos.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveContratoTipo = {TipoContrato} {If(DdlCliente.SelectedValue.ToEntero > 0, $"AND CveCliente = {DdlCliente.SelectedValue}", "")} {If(CveContrato > 0, $"AND CveContrato <> {CveContrato}", "")} ") + DdlContratoPadre.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveContratoTipo = {TipoContrato} {If(DdlCliente.SelectedValue.ToEntero > 0, $"AND CveCliente = {DdlCliente.SelectedValue}", "")} {If(CveContrato > 0, $"AND CveContrato <> {CveContrato}", "")} ") DdlContratoPadre.DataBind() DdlContratoPadre.Items.Insert(0, New ListItem("Seleccione", "-1")) End Sub diff --git a/Contratos/ContratoObra.aspx b/Contratos/ContratoObra.aspx index 62d582d06..ebb96cdf0 100644 --- a/Contratos/ContratoObra.aspx +++ b/Contratos/ContratoObra.aspx @@ -355,10 +355,8 @@
- - - -
+ + diff --git a/Contratos/ContratoObra.aspx.vb b/Contratos/ContratoObra.aspx.vb index 811096536..8d67cbbde 100644 --- a/Contratos/ContratoObra.aspx.vb +++ b/Contratos/ContratoObra.aspx.vb @@ -744,6 +744,8 @@ Partial Class Contratos_ContratoObra TrCliente.Visible = False CargaContratista() DdlContratista.SelectedValue = ObjContratos.CveProveedor.ToString + DdlContratista.SelectedText = ObjContratos.RazonSocial.ToString + Else cargaClientes() DdlCliente.SelectedValue = ObjContratos.CveCliente.ToString @@ -1205,8 +1207,8 @@ Partial Class Contratos_ContratoObra ' DdlSubProyectoContrato.Items.Insert(0, New ListItem("Seleccione un Proyecto", "-1")) 'End Sub Private Sub CargaContratista() - DdlContratista.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa) - DdlContratista.DataBind() + DdlContratista.setEsWebService(True) + DdlContratista.Attributes.Add("data-metodo", "getproveedores") End Sub 'Private Sub CargaVendedores() From 06e1853754fd8d7a9dd9c59286610524816fd946 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 23 Jul 2021 18:42:43 -0700 Subject: [PATCH 20/39] globalDTContratos --- GPS/FacturacionMasiva.aspx.vb | 2 +- Inventarios/RepTrasladoSolicitud.aspx.vb | 2 +- Inventarios/TrasladoSolicitud.aspx.vb | 12 ++++++------ 3 files changed, 8 insertions(+), 8 deletions(-) diff --git a/GPS/FacturacionMasiva.aspx.vb b/GPS/FacturacionMasiva.aspx.vb index 9a43ef120..c5ac0022e 100644 --- a/GPS/FacturacionMasiva.aspx.vb +++ b/GPS/FacturacionMasiva.aspx.vb @@ -100,7 +100,7 @@ Partial Class Contratos_FacturacionMasiva Private Sub CargaCombos() DdlCliente.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa) DdlCliente.DataBind() - DdlContrato.DataSource = GlobalDTContratos().FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}") + DdlContrato.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa) DdlContrato.DataBind() DdlSucursal.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1) DdlSucursal.DataBind() diff --git a/Inventarios/RepTrasladoSolicitud.aspx.vb b/Inventarios/RepTrasladoSolicitud.aspx.vb index b11fb549c..2b7374c81 100644 --- a/Inventarios/RepTrasladoSolicitud.aspx.vb +++ b/Inventarios/RepTrasladoSolicitud.aspx.vb @@ -21,7 +21,7 @@ Partial Class Inventarios_RepTrasladoSolicitud DdlAlmacenDestino.DataBind() DdlAlmacenDestino.Items.Insert(0, New ListItem("Todos", "-1")) - DdlContrato.DataSource = GlobalDTContratos().FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}") + DdlContrato.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa) DdlContrato.DataBind() DdlContrato.Items.Insert(0, New ListItem("Todos", "-1")) diff --git a/Inventarios/TrasladoSolicitud.aspx.vb b/Inventarios/TrasladoSolicitud.aspx.vb index ef5af71e2..3fd260b3e 100644 --- a/Inventarios/TrasladoSolicitud.aspx.vb +++ b/Inventarios/TrasladoSolicitud.aspx.vb @@ -246,7 +246,7 @@ Partial Class Inventarios_TrasladoSolicitud If CveDireccionEnvio > 0 And ObjClientes.DireccionEnvioGet(CveDireccionEnvio, -1, -1) Then LblDireccionEnvio.Text = ObjClientes.DtResultados.FiltraParametros(String.Format("Estatus = 1")).Rows(0)("SucursalClienteVentaDireccion").ToString Else - Dim CveCliente As Integer = GlobalDTContratos().FiltroPrimeroValor("CveCliente", $"CveContrato = {ObjInventarios.DtResultados.Rows(0)("CveContrato").ToString.ToEntero}").ToEntero + Dim CveCliente As Integer = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveCliente", $"CveContrato = {ObjInventarios.DtResultados.Rows(0)("CveContrato").ToString.ToEntero}").ToEntero Dim DtCliente As DataTable = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltraParametros($"CveCliente = {CveCliente}") If DtCliente.Rows.Count > 0 Then LblDireccionEnvio.Text = String.Format("{0},{1}, {2}", DtCliente.FiltroPrimeroValor("Direccion"), DtCliente.FiltroPrimeroValor("Colonia"), DtCliente.FiltroPrimeroValor("Ciudad"), DtCliente.FiltroPrimeroValor("Contacto")) @@ -517,7 +517,7 @@ Partial Class Inventarios_TrasladoSolicitud If ObjContratos.GetContratosEstatus(UsuarioActual.CveEmpresa) Then Dim CveEstatusVigente = ObjContratos.DtResultados.FiltroPrimeroValor("CveContratoEstatus", "TipoEstatus = 1", Orderby:="CveContratoEstatus").ToEntero - DdlContratos.DataSource = GlobalDTContratos().FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa} AND CveCliente = {DdlClientes.SelectedValue.ToEntero} AND CveContratosEstatus = {CveEstatusVigente}") + DdlContratos.DataSource = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltraParametros($" CveCliente = {DdlClientes.SelectedValue.ToEntero} AND CveContratosEstatus = {CveEstatusVigente}") 'If ObjContratos.GetContratos(-1, UsuarioActual.CveEmpresa, DdlClientes.SelectedValue.ToEntero, CveEstatusVigente) Then ' DdlContratos.DataSource = ObjContratos.DtResultados @@ -808,10 +808,10 @@ Partial Class Inventarios_TrasladoSolicitud Dim CveContrato As Integer = ObjInventarios.DtResultados.FiltroPrimeroValor("CveContrato").ToString.ToEntero If CveContrato > 0 Then - Contrato = GlobalDTContratos().FiltroPrimeroValor("DescripcionContrato", $"CveContrato={CveContrato} AND CveEmpresa = {UsuarioActual.CveEmpresa}") - NumContrato = GlobalDTContratos().FiltroPrimeroValor("NumeroContrato", $"CveContrato={CveContrato} AND CveEmpresa = {UsuarioActual.CveEmpresa}") - CveCliente = GlobalDTContratos().FiltroPrimeroValor("CveCliente", $"CveContrato = {CveContrato}").ToEntero - CveDireccionEnvio = GlobalDTContratos().FiltroPrimeroValor("CveDireccionEnvio", $"CveContrato = {CveContrato}").ToEntero + Contrato = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("DescripcionContrato", $"CveContrato={CveContrato}") + NumContrato = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("NumeroContrato", $"CveContrato={CveContrato} ") + CveCliente = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveCliente", $"CveContrato = {CveContrato}").ToEntero + CveDireccionEnvio = GlobalDTContratos(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveDireccionEnvio", $"CveContrato = {CveContrato}").ToEntero If CveCliente > 0 Then From ef11bc1feb157fa5b7ac415f2402b28177b23e79 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 23 Jul 2021 18:43:10 -0700 Subject: [PATCH 21/39] -- cambios en redondeos --- Bancos/PopIECompras.aspx.vb | 136 ++++++++++++++++++------------------ 1 file changed, 68 insertions(+), 68 deletions(-) diff --git a/Bancos/PopIECompras.aspx.vb b/Bancos/PopIECompras.aspx.vb index 1582d5826..67e647931 100644 --- a/Bancos/PopIECompras.aspx.vb +++ b/Bancos/PopIECompras.aspx.vb @@ -1577,8 +1577,8 @@ Partial Class Bancos_PopIECompras ImporteMovimiento = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal ImporteMX = ImporteMovimiento * tipoCambioCompra End If - ImporteMovimiento = Math.Round(ImporteMovimiento, 2) - ImporteMX = Math.Round(ImporteMX, 2) + ImporteMovimiento = ImporteMovimiento.RoundSQL + ImporteMX = ImporteMX.RoundSQL TimpocambioGeneral = tipoCambioCompra CveIE = rw.DataKey("CveIE").ToString.ToEntero @@ -1625,8 +1625,8 @@ Partial Class Bancos_PopIECompras ImporteMovimiento = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal ImporteMX = ImporteMovimiento * tipoCambioCompra End If - ImporteMovimiento = Math.Round(ImporteMovimiento, 2) - ImporteMX = Math.Round(ImporteMX, 2) + ImporteMovimiento = ImporteMovimiento.RoundSQL + ImporteMX = ImporteMX.RoundSQL TimpocambioGeneral = tipoCambioCompra CveIE = rw.DataKey("CveIE").ToString.ToEntero @@ -1672,8 +1672,8 @@ Partial Class Bancos_PopIECompras ImporteMovimiento = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal ImporteMX = ImporteMovimiento * tipoCambioCompra End If - ImporteMovimiento = Math.Round(ImporteMovimiento, 2) - ImporteMX = Math.Round(ImporteMX, 2) + ImporteMovimiento = ImporteMovimiento.RoundSQL + ImporteMX = ImporteMX.RoundSQL CveIE = rw.DataKey("CveIE").ToString.ToEntero If CveMonedaCompra <> 1 Then @@ -1718,8 +1718,8 @@ Partial Class Bancos_PopIECompras ImporteMovimiento = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal ImporteMX = ImporteMovimiento * tipoCambioCompra End If - ImporteMovimiento = Math.Round(ImporteMovimiento, 2) - ImporteMX = Math.Round(ImporteMX, 2) + ImporteMovimiento = ImporteMovimiento.RoundSQL + ImporteMX = ImporteMX.RoundSQL If CveMonedaCompra <> 1 Then 'si la factura es en dólares y trae complementaria, el importemn debe ser igual al importe @@ -1763,8 +1763,8 @@ Partial Class Bancos_PopIECompras ImporteMovimiento = ImportePagado.ToString.ToDecimal ImporteMX = ImporteMovimiento * tipoCambioCompra End If - ImporteMovimiento = Math.Round(ImporteMovimiento, 2) - ImporteMX = Math.Round(ImporteMX, 2) + ImporteMovimiento = ImporteMovimiento.RoundSQL + ImporteMX = ImporteMX.RoundSQL TimpocambioGeneral = tipoCambioCompra End If @@ -1795,8 +1795,8 @@ Partial Class Bancos_PopIECompras ImporteMovimiento = (MovimientoPagar.RetIVA * PorcentajePago) ImporteMX = ImporteMovimiento * tipoCambioCompra End If - ImporteMovimiento = Math.Round(ImporteMovimiento, 2) - ImporteMX = Math.Round(ImporteMX, 2) + ImporteMovimiento = ImporteMovimiento.RoundSQL + ImporteMX = ImporteMX.RoundSQL TimpocambioGeneral = tipoCambioCompra If tipoCambioCompra > 1 Then ConceptoMovimiento += $" TC:{tipoCambioCompra} ${ImporteMovimiento.FormatoNumero(2)}" @@ -1829,8 +1829,8 @@ Partial Class Bancos_PopIECompras ImporteMovimiento = (MovimientoPagar.RetIVA * PorcentajePago) ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra) End If - ImporteMovimiento = Math.Round(ImporteMovimiento, 2) - ImporteMX = Math.Round(ImporteMX, 2) + ImporteMovimiento = ImporteMovimiento.RoundSQL + ImporteMX = ImporteMX.RoundSQL TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra) If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}" @@ -1863,8 +1863,8 @@ Partial Class Bancos_PopIECompras ImporteMovimiento = (MovimientoPagar.RetIVA * PorcentajePago) ImporteMX = ImporteMovimiento * tipoCambioCompra End If - ImporteMovimiento = Math.Round(ImporteMovimiento, 2) - ImporteMX = Math.Round(ImporteMX, 2) + ImporteMovimiento = ImporteMovimiento.RoundSQL + ImporteMX = ImporteMX.RoundSQL TimpocambioGeneral = tipoCambioCompra If tipoCambioCompra > 1 Then ConceptoMovimiento += $" TC:{tipoCambioCompra} ${ImporteMovimiento.FormatoNumero(2)}" @@ -2136,8 +2136,8 @@ Partial Class Bancos_PopIECompras ' ImporteMovimiento = (MovimientoPagar.RetISR * PorcentajePago) ' ImporteMX = ImporteMovimiento * tipoCambioCompra ' End If - ' ImporteMovimiento = Math.Round(ImporteMovimiento, 2) - ' ImporteMX = Math.Round(ImporteMX, 2) + ' ImporteMovimiento = ImporteMovimiento.RoundSQL + ' ImporteMX = ImporteMX.RoundSQL ' TimpocambioGeneral = tipoCambioCompra ' If tipoCambioCompra > 1 Then ConceptoMovimiento += $" TC:{tipoCambioCompra} ${ImporteMovimiento.FormatoNumero(2)}" @@ -2171,8 +2171,8 @@ Partial Class Bancos_PopIECompras ' ImporteMovimiento = (MovimientoPagar.RetISR * PorcentajePago) ' ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioCompra, tipoCambioPago) ' End If - ' ImporteMovimiento = Math.Round(ImporteMovimiento, 2) - ' ImporteMX = Math.Round(ImporteMX, 2) + ' ImporteMovimiento = ImporteMovimiento.RoundSQL + ' ImporteMX = ImporteMX.RoundSQL ' TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioCompra, tipoCambioPago) ' If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}" @@ -2206,8 +2206,8 @@ Partial Class Bancos_PopIECompras ' ImporteMovimiento = (MovimientoPagar.RetISR * PorcentajePago) ' ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioCompra, tipoCambioPago) ' End If - ' ImporteMovimiento = Math.Round(ImporteMovimiento, 2) - ' ImporteMX = Math.Round(ImporteMX, 2) + ' ImporteMovimiento = ImporteMovimiento.RoundSQL + ' ImporteMX = ImporteMX.RoundSQL ' TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioCompra, tipoCambioPago) ' If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}" @@ -2242,8 +2242,8 @@ Partial Class Bancos_PopIECompras ' ImporteMovimiento = (MovimientoPagar.RetISR * PorcentajePago) ' ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioCompra, tipoCambioPago) ' End If - ' ImporteMovimiento = Math.Round(ImporteMovimiento, 2) - ' ImporteMX = Math.Round(ImporteMX, 2) + ' ImporteMovimiento = ImporteMovimiento.RoundSQL + ' ImporteMX = ImporteMX.RoundSQL ' TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioCompra, tipoCambioPago) ' If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}" @@ -2431,7 +2431,7 @@ Partial Class Bancos_PopIECompras ImporteMXNoDeducible = ImporteMovimientoNoDeducible * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra) End If ImporteMovimientoNoDeducible = Math.Round(ImporteMovimientoNoDeducible, 2) - ImporteMXNoDeducible = Math.Round(ImporteMX, 2) + ImporteMXNoDeducible = ImporteMX.RoundSQL TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra) If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimientoNoDeducible.FormatoNumero(2)}" @@ -2596,8 +2596,8 @@ Partial Class Bancos_PopIECompras ImporteMovimiento = (MovimientoPagar.IVADeducible) ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra) End If - ImporteMovimiento = Math.Round(ImporteMovimiento, 2) - ImporteMX = Math.Round(ImporteMX, 2) + ImporteMovimiento = ImporteMovimiento.RoundSQL + ImporteMX = ImporteMX.RoundSQL TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra) If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}" @@ -2620,8 +2620,8 @@ Partial Class Bancos_PopIECompras ImporteMovimiento = (MovimientoPagar.IVADeducible * PorcentajePago) ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra) End If - ImporteMovimiento = Math.Round(ImporteMovimiento, 2) - ImporteMX = Math.Round(ImporteMX, 2) + ImporteMovimiento = ImporteMovimiento.RoundSQL + ImporteMX = ImporteMX.RoundSQL TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra) If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}" @@ -2657,7 +2657,7 @@ Partial Class Bancos_PopIECompras ImporteMXNoDeducible = ImporteMovimientoNoDeducible * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra) End If ImporteMovimientoNoDeducible = Math.Round(ImporteMovimientoNoDeducible, 2) - ImporteMXNoDeducible = Math.Round(ImporteMX, 2) + ImporteMXNoDeducible = ImporteMX.RoundSQL TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra) If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimientoNoDeducible.FormatoNumero(2)}" @@ -2742,8 +2742,8 @@ Partial Class Bancos_PopIECompras ' ImporteMovimiento = (MovimientoPagar.IVANoDeducible) ' ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra) ' End If - ' ImporteMovimiento = Math.Round(ImporteMovimiento, 2) - ' ImporteMX = Math.Round(ImporteMX, 2) + ' ImporteMovimiento = ImporteMovimiento.RoundSQL + ' ImporteMX = ImporteMX.RoundSQL ' TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra) ' If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}" @@ -2765,8 +2765,8 @@ Partial Class Bancos_PopIECompras ' ImporteMovimiento = (MovimientoPagar.IVANoDeducible * PorcentajePago) ' ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra) ' End If - ' ImporteMovimiento = Math.Round(ImporteMovimiento, 2) - ' ImporteMX = Math.Round(ImporteMX, 2) + ' ImporteMovimiento = ImporteMovimiento.RoundSQL + ' ImporteMX = ImporteMX.RoundSQL ' TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra) ' If tipoCambioPago > 1 Then ConceptoMovimiento += $" TC:{tipoCambioPago} ${ImporteMovimiento.FormatoNumero(2)}" @@ -2802,8 +2802,8 @@ Partial Class Bancos_PopIECompras ImporteMovimiento = (MovimientoPagar.IEPS * PorcentajePago) ImporteMX = ImporteMovimiento * tipoCambioCompra End If - ImporteMovimiento = Math.Round(ImporteMovimiento, 2) - ImporteMX = Math.Round(ImporteMX, 2) + ImporteMovimiento = ImporteMovimiento.RoundSQL + ImporteMX = ImporteMX.RoundSQL TimpocambioGeneral = tipoCambioCompra If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then @@ -2825,8 +2825,8 @@ Partial Class Bancos_PopIECompras ImporteMovimiento = (MovimientoPagar.IEPS * PorcentajePago) ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra) End If - ImporteMovimiento = Math.Round(ImporteMovimiento, 2) - ImporteMX = Math.Round(ImporteMX, 2) + ImporteMovimiento = ImporteMovimiento.RoundSQL + ImporteMX = ImporteMX.RoundSQL TimpocambioGeneral = If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, tipoCambioCompra) If ObjMov.GetRetCuenta(ConceptoContable, UsuarioActual.CveEmpresa) Then @@ -2854,7 +2854,7 @@ Partial Class Bancos_PopIECompras ImporteMovimiento += ((MovimientoPagar.RetIVA * PorcentajePago) * TCImpuestos) - ((MovimientoPagar.RetIVA * PorcentajePago) * tipoCambioCompra) 'Añadimos la diferencia de ganancia en el RetIVA ImporteMovimiento += ((MovimientoPagar.RetISR * PorcentajePago) * TCImpuestos) - ((MovimientoPagar.RetISR * PorcentajePago) * tipoCambioCompra) 'Añadimos la diferencia de ganancia en el RetISR ImporteMovimiento -= ((MovimientoPagar.IEPS * PorcentajePago) * TCImpuestos) - ((MovimientoPagar.IEPS * PorcentajePago) * tipoCambioCompra) 'Añadimos la diferencia de ganancia en el IEPS - ImporteMovimiento = Math.Abs(Math.Round(ImporteMovimiento, 2)) + ImporteMovimiento = Math.Abs(ImporteMovimiento.RoundSQL) ImporteMX = ImporteMovimiento End If Else @@ -2878,7 +2878,7 @@ Partial Class Bancos_PopIECompras ImporteMovimiento += ((MovimientoPagar.RetIVA * PorcentajePago) * tipoCambioCompra) - ((MovimientoPagar.RetIVA * PorcentajePago) * TCImpuestos) 'Añadimos la diferencia de ganancia en el RetIVA ImporteMovimiento += ((MovimientoPagar.RetISR * PorcentajePago) * tipoCambioCompra) - ((MovimientoPagar.RetISR * PorcentajePago) * TCImpuestos) 'Añadimos la diferencia de ganancia en el RetISR ImporteMovimiento -= ((MovimientoPagar.IEPS * PorcentajePago) * tipoCambioCompra) - ((MovimientoPagar.IEPS * PorcentajePago) * TCImpuestos) 'Añadimos la diferencia de ganancia en el IEPS - ImporteMovimiento = Math.Abs(Math.Round(ImporteMovimiento, 2)) + ImporteMovimiento = Math.Abs(ImporteMovimiento.RoundSQL) ImporteMX = ImporteMovimiento End If Else @@ -2899,8 +2899,8 @@ Partial Class Bancos_PopIECompras ImporteMovimiento = ImportePagado.ToString.ToDecimal ImporteMX = ImporteMovimiento * tipoCambioPago End If - ImporteMovimiento = Math.Round(ImporteMovimiento, 2) - ImporteMX = Math.Round(ImporteMX, 2) + ImporteMovimiento = ImporteMovimiento.RoundSQL + ImporteMX = ImporteMX.RoundSQL TimpocambioGeneral = tipoCambioPago If CveMoneda = 1 Then @@ -2946,8 +2946,8 @@ Partial Class Bancos_PopIECompras ImporteMovimiento = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal ImporteMX = ImporteMovimiento * tipoCambioPago End If - ImporteMovimiento = Math.Round(ImporteMovimiento, 2) - ImporteMX = Math.Round(ImporteMX, 2) + ImporteMovimiento = ImporteMovimiento.RoundSQL + ImporteMX = ImporteMX.RoundSQL CveIE = rw.DataKey("CveIE").ToString.ToEntero @@ -2975,8 +2975,8 @@ Partial Class Bancos_PopIECompras ImporteMovimiento = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal ImporteMX = ImporteMovimiento * tipoCambioPago End If - ImporteMovimiento = Math.Round(ImporteMovimiento, 2) - ImporteMX = Math.Round(ImporteMX, 2) + ImporteMovimiento = ImporteMovimiento.RoundSQL + ImporteMX = ImporteMX.RoundSQL CveIE = rw.DataKey("CveIE").ToString.ToEntero @@ -3003,8 +3003,8 @@ Partial Class Bancos_PopIECompras ImporteMovimiento = ImportePagado.ToString.ToDecimal ImporteMX = ImporteMovimiento * tipoCambioPago End If - ImporteMovimiento = Math.Round(ImporteMovimiento, 2) - ImporteMX = Math.Round(ImporteMX, 2) + ImporteMovimiento = ImporteMovimiento.RoundSQL + ImporteMX = ImporteMX.RoundSQL TimpocambioGeneral = tipoCambioPago IdCtaContable = GlobalDTRHPersonal(UsuarioActual.CveEmpresa, CvePersonal:=CvePersonal).FiltroPrimeroValor("IdCtaContPersonal", "").ToEntero @@ -3028,8 +3028,8 @@ Partial Class Bancos_PopIECompras ImporteMovimiento = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal ImporteMX = ImporteMovimiento * tipoCambioPago End If - ImporteMovimiento = Math.Round(ImporteMovimiento, 2) - ImporteMX = Math.Round(ImporteMX, 2) + ImporteMovimiento = ImporteMovimiento.RoundSQL + ImporteMX = ImporteMX.RoundSQL CveIE = rw.DataKey("CveIE").ToString.ToEntero IdCtaContable = CtaProveedorDeudores @@ -3057,8 +3057,8 @@ Partial Class Bancos_PopIECompras ImporteMovimiento = rw.FCTextBox("TxtSaldoDeudor").Text.ToDecimal ImporteMX = ImporteMovimiento * tipoCambioPago End If - ImporteMovimiento = Math.Round(ImporteMovimiento, 2) - ImporteMX = Math.Round(ImporteMX, 2) + ImporteMovimiento = ImporteMovimiento.RoundSQL + ImporteMX = ImporteMX.RoundSQL If rw.DataKey("CveMoneda").ToEntero = 1 Then IdCtaContable = IdCuentaCliente @@ -3100,8 +3100,8 @@ Partial Class Bancos_PopIECompras ImporteMovimiento = rw.DataKey("RetIVA").ToString.ToDecimal * PorcentajePagoVenta ImporteMX = ImporteMovimiento * rw.DataKey("TipoCambio").ToString.ToDecimal End If - ImporteMovimiento = Math.Round(ImporteMovimiento, 2) - ImporteMX = Math.Round(ImporteMX, 2) + ImporteMovimiento = ImporteMovimiento.RoundSQL + ImporteMX = ImporteMX.RoundSQL 'Conta ContPAQ If IdCtaContRetIVACliente <> 0 Then @@ -3141,8 +3141,8 @@ Partial Class Bancos_PopIECompras ImporteMovimiento = rw.DataKey("RetISR").ToString.ToDecimal * PorcentajePagoVenta ImporteMX = ImporteMovimiento * rw.DataKey("TipoCambio").ToString.ToDecimal End If - ImporteMovimiento = Math.Round(ImporteMovimiento, 2) - ImporteMX = Math.Round(ImporteMX, 2) + ImporteMovimiento = ImporteMovimiento.RoundSQL + ImporteMX = ImporteMX.RoundSQL 'Conta ContPAQ If IdCtaContRetISR <> 0 Then @@ -3183,8 +3183,8 @@ Partial Class Bancos_PopIECompras ImporteMovimiento = rw.DataKey("IVA").ToString.ToDecimal * PorcentajePagoVenta ImporteMX = ImporteMovimiento * rw.DataKey("TipoCambio").ToString.ToDecimal End If - ImporteMovimiento = Math.Round(ImporteMovimiento, 2) - ImporteMX = Math.Round(ImporteMX, 2) + ImporteMovimiento = ImporteMovimiento.RoundSQL + ImporteMX = ImporteMX.RoundSQL PorcentajeImpuesto = rw.DataKey("PorcentajeIVA").ToDecimal Dim IdCtaIVAXTrasladar As Integer = 0 @@ -3225,8 +3225,8 @@ Partial Class Bancos_PopIECompras ImporteMovimiento = rw.DataKey("IVA").ToString.ToDecimal * PorcentajePagoVenta ImporteMX = ImporteMovimiento * If(FuncionalidadFluctuacionImpuestos, tipoCambioPago, rw.DataKey("TipoCambio").ToString.ToDecimal) End If - ImporteMovimiento = Math.Round(ImporteMovimiento, 2) - ImporteMX = Math.Round(ImporteMX, 2) + ImporteMovimiento = ImporteMovimiento.RoundSQL + ImporteMX = ImporteMX.RoundSQL PorcentajeImpuesto = rw.DataKey("PorcentajeIVA").ToDecimal @@ -3268,8 +3268,8 @@ Partial Class Bancos_PopIECompras ImporteMovimiento = rw.DataKey("IEPS").ToString.ToDecimal * PorcentajePagoVenta ImporteMX = ImporteMovimiento * rw.DataKey("TipoCambio").ToString.ToDecimal End If - ImporteMovimiento = Math.Round(ImporteMovimiento, 2) - ImporteMX = Math.Round(ImporteMX, 2) + ImporteMovimiento = ImporteMovimiento.RoundSQL + ImporteMX = ImporteMX.RoundSQL IdCtaContable = UsuarioActual.Empresa.IdCuentaIEPSxTrasladar @@ -3301,8 +3301,8 @@ Partial Class Bancos_PopIECompras ImporteMovimiento = rw.DataKey("IEPS").ToString.ToDecimal * PorcentajePagoVenta ImporteMX = ImporteMovimiento * tipoCambioPago End If - ImporteMovimiento = Math.Round(ImporteMovimiento, 2) - ImporteMX = Math.Round(ImporteMX, 2) + ImporteMovimiento = ImporteMovimiento.RoundSQL + ImporteMX = ImporteMX.RoundSQL IdCtaContable = UsuarioActual.Empresa.IdCuentaIEPSTrasladado @@ -3334,8 +3334,8 @@ Partial Class Bancos_PopIECompras ImporteMovimiento = rw.DataKey("RetIVA").ToString.ToDecimal * PorcentajePagoVenta ImporteMX = ImporteMovimiento * tipoCambioPago End If - ImporteMovimiento = Math.Round(ImporteMovimiento, 2) - ImporteMX = Math.Round(ImporteMX, 2) + ImporteMovimiento = ImporteMovimiento.RoundSQL + ImporteMX = ImporteMX.RoundSQL 'Conta ContPAQ If IdCtaContRetIVA <> 0 Then @@ -3377,8 +3377,8 @@ Partial Class Bancos_PopIECompras ImporteMovimiento = rw.DataKey("RetISR").ToString.ToDecimal * PorcentajePagoVenta ImporteMX = ImporteMovimiento * tipoCambioPago End If - ImporteMovimiento = Math.Round(ImporteMovimiento, 2) - ImporteMX = Math.Round(ImporteMX, 2) + ImporteMovimiento = ImporteMovimiento.RoundSQL + ImporteMX = ImporteMX.RoundSQL 'Conta ContPAQ If IdCtaContRetISR <> 0 Then From f9dab46a0c48692a357ceee9ae43159c24b175ca Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 23 Jul 2021 18:44:00 -0700 Subject: [PATCH 22/39] funcionalidad llantera --- Ventas/ProductosServicios.aspx.vb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb index 8583d5742..bc7e20c47 100644 --- a/Ventas/ProductosServicios.aspx.vb +++ b/Ventas/ProductosServicios.aspx.vb @@ -244,7 +244,7 @@ Partial Class ProductosyServicios InicializaEcommerce() - If UsuarioActual.CveEmpresa.Contiene(141, 152) Then + If UsuarioActual.Empresa.Funcionalidad(558) = "1" Then 'DivDatos.Attributes("class") = "col-md-12" DivDdlTipo.Visible = True From eaf1b96d17169344991fe5b0f9335aab80b8a312 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 23 Jul 2021 18:44:24 -0700 Subject: [PATCH 23/39] globalclasifdetalle --- Sistemas/CatSesiones.aspx.vb | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/Sistemas/CatSesiones.aspx.vb b/Sistemas/CatSesiones.aspx.vb index e06cf9d67..4bdb52791 100644 --- a/Sistemas/CatSesiones.aspx.vb +++ b/Sistemas/CatSesiones.aspx.vb @@ -228,8 +228,14 @@ Partial Class Sistemas_CatSesiones If ObjPS.GetPSEquivalencias(-1, -1) Then Application("GlobalDTProductosServiciosEquivalencias") = ObjPS.DtResultados Else Application("GlobalDTProductosServiciosEquivalencias") = Nothing 'If ObjPS.GetPS(-1, -1, -1) Then Application("GlobalDTProductosServicios") = ObjPS.DtResultados.AsEnumerable() Else Application("GlobalDTProductosServicios") = Nothing If ObjPS.GetMetodosInv() Then Application("GlobalDTInvMetodosInventario") = ObjPS.DtResultados Else Application("GlobalDTInvMetodosInventario") = Nothing - If ObjPS.GetPSSimplificado(-1) Then Application("GlobalDTPSSimplificado") = ObjPS.DtResultados.AsEnumerable() Else Application("GlobalDTPSSimplificado") = Nothing + 'If ObjPS.GetPSSimplificado(-1) Then Application("GlobalDTPSSimplificado") = ObjPS.DtResultados.AsEnumerable() Else Application("GlobalDTPSSimplificado") = Nothing ObjPS.Dispose() + GlobalDTPSSimplificado(UsuarioActual.CveEmpresa) = Nothing + Using ObjVenta As New ClsVentas + If ObjVenta.GetClasificacionDetalle(-1, CveClasificacion:=-1) Then + Application("GlobalDTClasificacionesDetalle") = ObjVenta.DtResultados + End If + End Using 'Fin Carga Usuarios End Sub From e721b7a9487001e9b564dbc4520abe3f7615a306 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 23 Jul 2021 18:46:04 -0700 Subject: [PATCH 24/39] acomodo o rubro indirectos --- Contratos/ContratoObra.aspx | 15 +++++---------- 1 file changed, 5 insertions(+), 10 deletions(-) diff --git a/Contratos/ContratoObra.aspx b/Contratos/ContratoObra.aspx index 62d582d06..89d0fa726 100644 --- a/Contratos/ContratoObra.aspx +++ b/Contratos/ContratoObra.aspx @@ -675,9 +675,7 @@ - - - +
@@ -765,11 +763,7 @@
- - - - - +