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