diff --git a/Compras/eFacturas.aspx b/Compras/eFacturas.aspx index 24abbf0ce..44d945232 100644 --- a/Compras/eFacturas.aspx +++ b/Compras/eFacturas.aspx @@ -457,7 +457,7 @@ - @@ -520,6 +520,7 @@ + diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb index e4664c7df..22370ba6d 100644 --- a/Compras/eFacturas.aspx.vb +++ b/Compras/eFacturas.aspx.vb @@ -835,13 +835,14 @@ Partial Class Compras_eFacturas If UsuarioActual.Empresa.Funcionalidad(161) = "1" Then TabTraslados.Visible = True - If ObjDatos.GetFacturas(-1, Folio, FechaI, FechaF, RFC, Proveedor, DdlValidado.SelectedValue.ToEntero, DdlResponsable.SelectedValue.ToEntero, DdlClasificacionProv.SelectedValue.ToEntero, DdlCveTipoProveedor.SelectedValue.ToEntero, DdlTipoComprobante.SelectedValue.ToString, UsuarioActual.CveEmpresa, Opcion:=2) Then + 'If ObjDatos.GetFacturas(-1, Folio, FechaI, FechaF, RFC, Proveedor, DdlValidado.SelectedValue.ToEntero, DdlResponsable.SelectedValue.ToEntero, DdlClasificacionProv.SelectedValue.ToEntero, DdlCveTipoProveedor.SelectedValue.ToEntero, DdlTipoComprobante.SelectedValue.ToString, UsuarioActual.CveEmpresa, Opcion:=2) Then - If ObjDatos.DtResultados.Rows.Count > 0 Then - DTTraslados = ObjDatos.DtResultados.FiltraParametros("TipoComprobante = 'T'") - End If + ' If ObjDatos.DtResultados.Rows.Count > 0 Then + ' DTTraslados = ObjDatos.DtResultados.FiltraParametros("TipoComprobante = 'T'") + ' End If - End If + 'End If + DTTraslados = ObjDatos.DtResultados.FiltraParametros("TipoComprobante = 'T'") End If LblTotalTraslados.Text = String.Format("{0} Traslados", ObjDatos.DtResultados.FiltraParametros("TipoComprobante = 'T'").Rows.Count.ToString("N0")) @@ -905,9 +906,6 @@ Partial Class Compras_eFacturas Dim msgs As String() = Mensajes.Split("|"c) Dim NFacturas As Integer = 0 - - - If msgs.Length >= 2 Then Try NFacturas = msgs(0).ToEntero @@ -921,11 +919,8 @@ Partial Class Compras_eFacturas Mensajes = "La actualización se realizó correctamente" End If - - LnkNoRecibidas_Click(LnkNoRecibias, EventArgs.Empty, ValidaRowCount:=ValidaRowCount) - 'Else ' Dim Str As New StringBuilder ' Dim conta As Integer = 1 @@ -4706,12 +4701,7 @@ Partial Class Compras_eFacturas End If ObjCompra.Dispose() - - - End If - - Next @@ -4734,8 +4724,6 @@ Partial Class Compras_eFacturas Protected Sub GvTraslados_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvTraslados.RowDataBound - - If e.Row.RowType = DataControlRowType.DataRow Then If e.Row.DBCampo("TipoComprobante") = "T" Then @@ -4752,7 +4740,10 @@ Partial Class Compras_eFacturas 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("Ver", HttpUtility.UrlEncode(e.Row.DBCampo("RFCDe")), HttpUtility.UrlEncode(e.Row.DBCampo("XML"))) If e.Row.DBCampo("TipoComprobante") = "T" And e.Row.DBCampo("FueValidado") = "1" Then - e.Row.FCLinkButton("LnkAgregarTraslado").Visible = True + ' e.Row.FCLinkButton("LnkAgregarTraslado").Visible = True + e.Row.FCHyperLink("HplAgregar").NavigateUrl = String.Format("/Compras/Compras.aspx?CveFactura={0}&RFC={1}", e.Row.DBCampo("CveFactura"), e.Row.DBCampo("RFCDe")) + + End If Else e.Row.FCLiteral("LtlXML").Text = "N/D" ' String.Format("{0}{1}\{2}", Destino, e.Row.DBCampo("RFCDe"), e.Row.DBCampo("XML")) ' @@ -4808,18 +4799,18 @@ Partial Class Compras_eFacturas End If - Dim CveComplementoTraslado As Integer = e.Row.DataKey("CveComplementoTraslado").ToString.ToEntero + 'Dim CveComplementoTraslado As Integer = e.Row.DataKey("CveComplementoTraslado").ToString.ToEntero - If CveComplementoTraslado > 0 Then - e.Row.FCLinkButton("LnkAgregarTraslado").CssClass = "btn btn-sm green" - e.Row.FCLinkButton("LnkAgregarTraslado").Text = "" - e.Row.FCLinkButton("LnkAgregarTraslado").Attributes.Add("Title", "Ver vinculación") - Else - e.Row.FCLinkButton("LnkAgregarTraslado").CssClass = "btn btn-sm blue" - e.Row.FCLinkButton("LnkAgregarTraslado").Text = "" - e.Row.FCLinkButton("LnkAgregarTraslado").Attributes.Add("Title", "Vincular Traslado") - End If + 'If CveComplementoTraslado > 0 Then + ' e.Row.FCLinkButton("LnkAgregarTraslado").CssClass = "btn btn-sm green" + ' e.Row.FCLinkButton("LnkAgregarTraslado").Text = "" + ' e.Row.FCLinkButton("LnkAgregarTraslado").Attributes.Add("Title", "Ver vinculación") + 'Else + ' e.Row.FCLinkButton("LnkAgregarTraslado").CssClass = "btn btn-sm blue" + ' e.Row.FCLinkButton("LnkAgregarTraslado").Text = "" + ' e.Row.FCLinkButton("LnkAgregarTraslado").Attributes.Add("Title", "Vincular Traslado") + 'End If End If