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/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/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 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 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" diff --git a/vwd.webinfo b/vwd.webinfo index a280964b8..bfda47f43 100644 --- a/vwd.webinfo +++ b/vwd.webinfo @@ -23,8 +23,6 @@ - - \ No newline at end of file