Reportes Cambiar Cliente y proveedor a dropdown lost, Compras Editar Fecha de compra, reg prepolizas s agregar IE cuando ya esta creada la poliza

Compras/eFacturas.aspx.vb

@@ -710,6 +710,22 @@ Partial Class Compras_eFacturas
     End Property
 
 
+
+
+    Property DTTraslados As DataTable
+        Get
+            If ViewState("DTTraslados") Is Nothing Then
+                Return New DataTable
+            Else
+                Return DirectCast(ViewState("DTTraslados"), DataTable)
+            End If
+        End Get
+        Set(value As DataTable)
+            ViewState("DTTraslados") = value
+        End Set
+    End Property
+
+
 #End Region
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
@@ -750,8 +766,8 @@ Partial Class Compras_eFacturas
             'If UsuarioActual.TienePermisoProceso(206) Then GvD.Columns(10).Visible = False
             'If UsuarioActual.Empresa.Funcionalidad(156) = "1" Then GvD.Columns(5).Visible = True
 
-            If UsuarioActual.TienePermisoProceso(81) Then GvD.Columns(12).Visible = True : GvD.Columns(13).Visible = True
-            If UsuarioActual.TienePermisoProceso(206) Then GvD.Columns(11).Visible = False
+            If UsuarioActual.TienePermisoProceso(81) Then GvD.Columns(13).Visible = True : GvD.Columns(14).Visible = True
+            If UsuarioActual.TienePermisoProceso(206) Then GvD.Columns(12).Visible = False
             If UsuarioActual.Empresa.Funcionalidad(156) = "1" Then GvD.Columns(6).Visible = True
 
 
@@ -773,6 +789,9 @@ Partial Class Compras_eFacturas
     End Sub
 
     Private Sub CargaDatos()
+
+        DTTraslados = New DataTable
+
         Dim Folio, RFC, Proveedor As String
         Folio = If(TxtFolio.Text.Trim.Length > 0, String.Format("%{0}%", TxtFolio.Text.Trim.ToUpper), "-1")
         RFC = "-1" 'If(TxtRFC.Text.Trim.Length > 0, TxtRFC.Text.Trim, "-1")
@@ -792,7 +811,7 @@ Partial Class Compras_eFacturas
         End If
 
         Dim DtPagos As DataTable = Nothing
-        Dim DTTrasaldos As DataTable = Nothing
+        'Dim DTTrasaldos As DataTable = Nothing
 
         Dim ObjDatos As New ClsCompras
         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) Then
@@ -813,10 +832,9 @@ Partial Class Compras_eFacturas
             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
-
-                    DTTrasaldos = ObjDatos.DtResultados.FiltraParametros("TipoComprobante = 'T'")
-
+                    DTTraslados = ObjDatos.DtResultados.FiltraParametros("TipoComprobante = 'T'")
                 End If
+
             End If
         End If
         LblTotalTraslados.Text = String.Format("{0} Traslados", ObjDatos.DtResultados.FiltraParametros("TipoComprobante = 'T'").Rows.Count.ToString("N0"))
@@ -825,11 +843,10 @@ Partial Class Compras_eFacturas
             GvPagos.DataSource = DtPagos
         End If
 
-        If DTTrasaldos IsNot Nothing AndAlso DTTrasaldos.Rows.Count > 0 Then
-            GvTraslados.DataSource = DTTrasaldos
+        If DTTraslados IsNot Nothing AndAlso DTTraslados.Rows.Count > 0 Then
+            GvTraslados.DataSource = DTTraslados
         End If
 
-
         ObjDatos.Dispose()
 
         GvD.DataBind()
@@ -1427,7 +1444,7 @@ Partial Class Compras_eFacturas
         If dt IsNot Nothing Then
 
             Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-            Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
 
             Dim params As New List(Of ReportParameter)
             params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
@@ -1435,13 +1452,22 @@ Partial Class Compras_eFacturas
             params.Add(New ReportParameter("FechaFin", FechaF))
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
             params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
+
             If Imagen.Exists Then
-                params.Add(New ReportParameter("LogoPath", logouri))
+                params.Add(New ReportParameter("LogoPath", $"file//:{Imagen.FullName}"))
             Else
                 params.Add(New ReportParameter("LogoPath", ""))
             End If
 
-            ImprimirPDF("Empresas/Grales/Formatos/RepFacturas.rdlc", dt, params, $"FacturasBuzon_{Now.ToString("yyyyMMyyddmmss")}", Tipo)
+
+            If Tab.ActiveTabIndex = 2 Then
+
+                ImprimirPDF("Empresas/Grales/Formatos/RepFacturas.rdlc", DTTraslados, params, $"FacturasBuzon_{Now.ToString("yyyyMMyyddmmss")}", Tipo)
+            Else
+                ImprimirPDF("Empresas/Grales/Formatos/RepFacturas.rdlc", dt, params, $"FacturasBuzon_{Now.ToString("yyyyMMyyddmmss")}", Tipo)
+            End If
+
+
         End If
 
     End Sub
@@ -4540,4 +4566,27 @@ Partial Class Compras_eFacturas
 
 #End Region
 
+
+    Protected Sub LnkModalPersonalizar_Click(sender As Object, e As EventArgs)
+
+        GvD.Columns(11).Visible = ChkModalPersonalzarFolioFiscal.Checked
+        GvPagos.Columns(9).Visible = ChkModalPersonalzarFolioFiscal.Checked
+        GvTraslados.Columns(9).Visible = ChkModalPersonalzarFolioFiscal.Checked
+
+
+        UpDatos.Update()
+        UpPagos.Update()
+        UpTraslados.Update()
+
+        RegistraScript("$('#DvmodalPersonalizar').modal('hide');")
+    End Sub
+
+
+
+
+    Protected Sub LnkPersonalizar_Click(sender As Object, e As EventArgs)
+
+        RegistraScript("$('#DvmodalPersonalizar').modal('show');")
+
+    End Sub
 End Class