AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Efacturas mejora CvePrePolizadetalle incorrecta, CRM permiso editar empresa

Browse Source
This commit is contained in:
rakcsle
2021-10-01 18:28:25 -07:00
parent 285f968c62
commit 62fe70faa4
2 changed files with 30 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
CRM/EmpresaCRM.aspx.cs
View File

@@ -1515,15 +1515,26 @@ public partial class CRM_EmpresaCRM : ClsPaginas
LnkAgregarAcercamiento.Visible = false; LnkAgregarAcercamiento.Visible = false;
} }
if ((UsuarioActual.CveVendedor != CveVendedor))
if (!UsuarioActual.TienePermisoProceso(330))
{ {
BtnGuardarEmpresa.Visible = false; if ((UsuarioActual.CveVendedor != CveVendedor))
BtnEliminarEmpresa.Visible = false; {
BtnAgregarContacto.Visible = false; BtnGuardarEmpresa.Visible = false;
//LnkAgregarAcercamiento.Visible = false; BtnEliminarEmpresa.Visible = false;
DivAccionesBitacora.Visible = false; BtnAgregarContacto.Visible = false;
GVContactos.Columns[4].Visible = false; //LnkAgregarAcercamiento.Visible = false;
DivAccionesBitacora.Visible = false;
GVContactos.Columns[4].Visible = false;
}
} }
} }
} }
#endregion #endregion

16
Compras/eFacturas.aspx.vb
View File

@@ -769,11 +769,13 @@ Partial Class Compras_eFacturas
If ObjDatos.DtResultados.Rows.Count > 0 Then If ObjDatos.DtResultados.Rows.Count > 0 Then
GvD.DataSource = ObjDatos.DtResultados.FiltraParametros("TipoComprobante <> 'P'") '.AsEnumerable().Take(100).CopyToDataTable() GvD.DataSource = ObjDatos.DtResultados.FiltraParametros("TipoComprobante <> 'P'") '.AsEnumerable().Take(100).CopyToDataTable()
DtPagos = ObjDatos.DtResultados.FiltraParametros("TipoComprobante = 'P'") DtPagos = ObjDatos.DtResultados.FiltraParametros("TipoComprobante = 'P'")
Else 'Else
GvD.DataSource = Nothing ' GvD.DataSource = Nothing
End If End If
End If End If
ObjDatos.Dispose()
LblRegistros.Text = String.Format("{0} Registros", ObjDatos.DtResultados.FiltraParametros("TipoComprobante <> 'P'").Rows.Count.ToString("N0")) LblRegistros.Text = String.Format("{0} Registros", ObjDatos.DtResultados.FiltraParametros("TipoComprobante <> 'P'").Rows.Count.ToString("N0"))
LblTotalPagos.Text = String.Format("{0} Pagos", ObjDatos.DtResultados.FiltraParametros("TipoComprobante = 'P'").Rows.Count.ToString("N0")) LblTotalPagos.Text = String.Format("{0} Pagos", ObjDatos.DtResultados.FiltraParametros("TipoComprobante = 'P'").Rows.Count.ToString("N0"))
@@ -781,6 +783,10 @@ Partial Class Compras_eFacturas
If DtPagos IsNot Nothing AndAlso DtPagos.Rows.Count > 0 Then If DtPagos IsNot Nothing AndAlso DtPagos.Rows.Count > 0 Then
GvPagos.DataSource = DtPagos GvPagos.DataSource = DtPagos
End If End If
ObjDatos.Dispose()
GvPagos.DataBind() GvPagos.DataBind()
UpPagos.Update() UpPagos.Update()
@@ -1117,6 +1123,8 @@ Partial Class Compras_eFacturas
e.Row.Cells(2).Attributes.Add("data-order", e.Row.DBCampo("FechaFactura").ToDate.Ticks.ToString) e.Row.Cells(2).Attributes.Add("data-order", e.Row.DBCampo("FechaFactura").ToDate.Ticks.ToString)
Dim RutaXML As String = String.Format("{0}{1}\{2}", Destino, e.Row.DBCampo("RFCDe"), e.Row.DBCampo("XML"))
If File.Exists(String.Format("{0}{1}\{2}", Destino, e.Row.DBCampo("RFCDe"), e.Row.DBCampo("XML"))) Then If File.Exists(String.Format("{0}{1}\{2}", Destino, e.Row.DBCampo("RFCDe"), e.Row.DBCampo("XML"))) Then
e.Row.FCLiteral("LtlXML").Text = String.Format("<a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?RFC={0}&File={1}"">Ver</a>", HttpUtility.UrlEncode(e.Row.DBCampo("RFCDe")), HttpUtility.UrlEncode(e.Row.DBCampo("XML"))) e.Row.FCLiteral("LtlXML").Text = String.Format("<a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?RFC={0}&File={1}"">Ver</a>", HttpUtility.UrlEncode(e.Row.DBCampo("RFCDe")), HttpUtility.UrlEncode(e.Row.DBCampo("XML")))
If e.Row.DBCampo("TipoComprobante") = "P" And e.Row.DBCampo("FueValidado") = "1" Then If e.Row.DBCampo("TipoComprobante") = "P" And e.Row.DBCampo("FueValidado") = "1" Then
@@ -2916,7 +2924,7 @@ Partial Class Compras_eFacturas
For Each dRow2 As DataRow In DTDocumentosRelacionados.Rows For Each dRow2 As DataRow In DTDocumentosRelacionados.Rows
If dRow2("IdDocumento").ToString.ToUpper = drow("IdDocumento").ToString.ToUpper Then If dRow2("IdDocumento").ToString.ToUpper = drow("IdDocumento").ToString.ToUpper And drow("CveIE").ToString.ToEntero > 0 Then
dRow2("CveCompra") = drow("CveCompra").ToString.ToEntero dRow2("CveCompra") = drow("CveCompra").ToString.ToEntero
dRow2("CveFactura") = drow("CveFactura").ToString.ToEntero dRow2("CveFactura") = drow("CveFactura").ToString.ToEntero