From 52c108c0c416295e9c653356b74c64487ae53f99 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 11 Mar 2020 10:28:27 -0700 Subject: [PATCH 1/5] -cambios --- Compras/RepCxPDetalle.aspx | 6 +++--- Contabilidad2/RepAnexoCatalogo.aspx.vb | 2 +- Inventarios/EntradasSalidas.aspx.vb | 2 +- 3 files changed, 5 insertions(+), 5 deletions(-) diff --git a/Compras/RepCxPDetalle.aspx b/Compras/RepCxPDetalle.aspx index a669e04cb..f51a57272 100644 --- a/Compras/RepCxPDetalle.aspx +++ b/Compras/RepCxPDetalle.aspx @@ -75,7 +75,7 @@
Proveedor:
- +
Clasificaciones:
@@ -394,7 +394,7 @@ - + @@ -422,7 +422,7 @@ - + diff --git a/Contabilidad2/RepAnexoCatalogo.aspx.vb b/Contabilidad2/RepAnexoCatalogo.aspx.vb index 755a29f7a..62c309b16 100644 --- a/Contabilidad2/RepAnexoCatalogo.aspx.vb +++ b/Contabilidad2/RepAnexoCatalogo.aspx.vb @@ -213,7 +213,7 @@ Partial Class AC2_RepAnexoCatalogo CargaGrid() Else DtDatos = Nothing - Alert("Ocurrio un error al cargar los datos del Anexo del Catálogo", TipoMensaje.MsgError) + Alert("Ocurrio un error al cargar los datos del Anexo del Catálogo.", TipoMensaje.MsgError) End If ObjConta.Dispose() diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb index 9fa13cac4..ffcf00fcc 100644 --- a/Inventarios/EntradasSalidas.aspx.vb +++ b/Inventarios/EntradasSalidas.aspx.vb @@ -629,7 +629,7 @@ Partial Class Inventarios_EntradasSalidas End If If (DdlAlmacen.Items.FindByValue(Mov.CveAlmacen.ToString()) Is Nothing) Then - Dim dr As DataRow = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveAlmacen = {0}", Mov.CveAlmacen)) + Dim dr As DataRow = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveEstatus:=-1).FiltroPrimero(String.Format("CveAlmacen = {0}", Mov.CveAlmacen)) If dr IsNot Nothing Then DdlAlmacen.Items.Insert(0, New ListItem(dr("Almacen").ToString, dr("CveAlmacen").ToString)) ' lo genera Obj.SelectedValue = Valor.ToString DdlAlmacen.Enabled = False From a4971085d90ce18ce7dce86c3794b2a09818824b Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 11 Mar 2020 13:31:21 -0700 Subject: [PATCH 2/5] - validacion --- Bancos/IE.aspx.vb | 12 ++++++++++++ vwd.webinfo | 2 ++ 2 files changed, 14 insertions(+) diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb index 6699f469a..a137a7432 100644 --- a/Bancos/IE.aspx.vb +++ b/Bancos/IE.aspx.vb @@ -3295,6 +3295,7 @@ Partial Class Bancos_IE Else ObjIE.RollBack() + Alert(MsgError, TipoMensaje.MsgAdvertencia) End If If Msg.ToString <> "" Then @@ -3331,6 +3332,7 @@ Partial Class Bancos_IE End If End If + Msg.Clear() RecargaGlobalCuentasBancarias() ObjIE.Dispose() ObjMov.Dispose() @@ -4905,6 +4907,16 @@ Partial Class Bancos_IE CveEventoPrincipal = ObjOI.CveEvento End If + If CveEvento = 0 Then + ObjOI.Dispose() + Return "Ocurrió un error al obtener el evento relacionado" + End If + + If CveEventoPrincipal = 0 Then + ObjOI.Dispose() + Return "Ocurrió un error al obtener el evento relacionado ppal." + End If + If Not ObjOI.UpdateEstatusEvento(3, -1, CveEvento, UsuarioActual.CveUsuario) Then ObjOI.Dispose() Return "Ocurrió un error al actualizar el estatus de anticipo de la OC/REQ. Por favor actualice y vuelva a intentar." diff --git a/vwd.webinfo b/vwd.webinfo index bfda47f43..a280964b8 100644 --- a/vwd.webinfo +++ b/vwd.webinfo @@ -23,6 +23,8 @@ + + \ No newline at end of file From fc1c925eecabbf44d078453cc58388c21efa0faf Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 11 Mar 2020 13:35:37 -0700 Subject: [PATCH 3/5] -ambios validacion de fechas entre pago XML y pago IE --- Compras/eFacturas.aspx | 6 ++---- Compras/eFacturas.aspx.vb | 11 ++++------- 2 files changed, 6 insertions(+), 11 deletions(-) diff --git a/Compras/eFacturas.aspx b/Compras/eFacturas.aspx index dea3762d5..f6675b947 100644 --- a/Compras/eFacturas.aspx +++ b/Compras/eFacturas.aspx @@ -550,11 +550,9 @@
- - - + diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb index f68fe8254..9b8cfecce 100644 --- a/Compras/eFacturas.aspx.vb +++ b/Compras/eFacturas.aspx.vb @@ -2838,24 +2838,21 @@ Partial Class Compras_eFacturas BtnVincularPago.Visible = False End If + For Each GvRowF As GridViewRow In GVPDocumentosRelacionadosPagos.Rows - - - For Each drow As DataRow In ObjCompras.DtResultados.FiltraParametros("CveIE > 0 AND FechaDocumento IS NOT NULL", "", {"FechaDocumento"}).Rows - - Dim FechaDocumento As Date = drow("FechaDocumento").ToString.ToDate + Dim FechaDocumento As Date = GvRowF.DataKey("FechaPago").ToString.ToDate + Dim FechaDoRecibo As Date = GvRowF.DataKey("Fecha").ToString.ToDate Dim FT1 As Date = FechaDocumento.AddDays(-6) Dim FT2 As Date = FechaDocumento.AddDays(7) - If Not (FechaPago >= FT1 And FechaPago < FT2) Then + If Not (FechaDoRecibo >= FT1 And FechaDoRecibo < FT2) Then BtnVincularPago.Visible = False MSGComplemento = MSGComplemento & " Existen mas de 3 días de diferencia entre la fecha del documento y la fecha de complemento. " Exit For End If - Next If MSGComplemento.Trim.Length > 0 Then From a52ebf939c2e7e4d11b5ef7dd411cae599ff8f0c Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Wed, 11 Mar 2020 15:38:19 -0700 Subject: [PATCH 4/5] agregando mas columnas al reporte --- Ventas/MetasVendedores.aspx | 10 +++++++++- Ventas/MetasVendedores.aspx.vb | 2 ++ 2 files changed, 11 insertions(+), 1 deletion(-) diff --git a/Ventas/MetasVendedores.aspx b/Ventas/MetasVendedores.aspx index 5b509126b..46c64406e 100644 --- a/Ventas/MetasVendedores.aspx +++ b/Ventas/MetasVendedores.aspx @@ -37,6 +37,14 @@ padding-right: 4px !important; padding-left: 4px !important; } + .Vendedor{ + background-color:#000077; + color:white; + font-weight:bold; + } + .Vendedor:hover{ + background-color:#000077; + } @@ -132,7 +140,7 @@ diff --git a/Ventas/MetasVendedores.aspx.vb b/Ventas/MetasVendedores.aspx.vb index 29aaf829e..e362df89f 100644 --- a/Ventas/MetasVendedores.aspx.vb +++ b/Ventas/MetasVendedores.aspx.vb @@ -76,6 +76,8 @@ Partial Class MetasVendedores Protected Sub GV_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GV.RowDataBound If e.Row.RowType = DataControlRowType.DataRow Then Select Case e.Row.DataKey("Etiqueta") + Case "Vendedor" + e.Row.CssClass = "Vendedor" Case "Categoria" e.Row.CssClass = "Totales" Case "Clasificacion" From 1e26906883ea7e05cdeaf5d91951a7416e9dcf00 Mon Sep 17 00:00:00 2001 From: rrene Date: Wed, 11 Mar 2020 17:35:43 -0700 Subject: [PATCH 5/5] -correcciones de inicio, opcion seleccionada --- Ventas/RepIngresos.aspx | 4 ++-- Ventas/RepIngresos.aspx.vb | 2 +- vwd.webinfo | 4 ++++ 3 files changed, 7 insertions(+), 3 deletions(-) diff --git a/Ventas/RepIngresos.aspx b/Ventas/RepIngresos.aspx index 460a9e479..53d3073c4 100644 --- a/Ventas/RepIngresos.aspx +++ b/Ventas/RepIngresos.aspx @@ -225,8 +225,8 @@ - - + + <%----%>
diff --git a/Ventas/RepIngresos.aspx.vb b/Ventas/RepIngresos.aspx.vb index 9bb39a6f6..802e23eb1 100644 --- a/Ventas/RepIngresos.aspx.vb +++ b/Ventas/RepIngresos.aspx.vb @@ -94,7 +94,7 @@ Partial Class Ventas_RepIngresos Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load If Not IsPostBack Then TCEspecifico = -1 - TipoCambio = 1 + TipoCambio = 2 CveSubProyecto = -1 TxtFechaInicio.Text = String.Format("01/01/{0}", Now.Year) DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1) diff --git a/vwd.webinfo b/vwd.webinfo index a280964b8..93df9a232 100644 --- a/vwd.webinfo +++ b/vwd.webinfo @@ -21,6 +21,10 @@ + + + +