-

Compras/PopUpVerFactura.aspx.vb

@@ -462,9 +462,9 @@ Partial Class PopUpVerFactura
         lrds.Add(rds)
 
         '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
-        Dim rutardlc = "GPS/EmbarqueManifiesto.rdlc"
+        Dim rutardlc = "Formatos\Agro\EmbarqueManifiesto.rdlc"
         If Not IsNothing(tablaReporte.FiltroPrimero("TipoManifiesto=1")) Then
-            rutardlc = "GPS/EmbarqueManifiesto2.rdlc"
+            rutardlc = "Formatos\Agro\EmbarqueManifiesto2.rdlc"
         End If
         ImprimirPDF(rutardlc, lrds, params, "Manifesto") ', Content_Disposition:="Inline")
     End Sub
@@ -620,7 +620,7 @@ Partial Class PopUpVerFactura
         lrds.Add(rds)
         '"Empresas/Grales/Formatos/EquiposGPS.rdlc"
         '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
-        ImprimirPDF("GPS/EmbarqueManifiestoRemision.rdlc", lrds, params, "Remisión") ', Content_Disposition:="Inline")
+        ImprimirPDF("Formatos\Agro\EmbarqueManifiestoRemision.rdlc", lrds, params, "Remisión") ', Content_Disposition:="Inline")
     End Sub
 
     Private Sub imprimirManifiestoCartaPorte(cveEmbarqueManifiesto As Integer)
@@ -772,7 +772,7 @@ Partial Class PopUpVerFactura
         lrds.Add(rds)
         '"Empresas/Grales/Formatos/EquiposGPS.rdlc"
         '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
-        Dim pdf = StreamPDF("GPS/EmbarqueManifiestoCartaPorte.rdlc", lrds, params, "DatosCartaPorte")
+        Dim pdf = StreamPDF("Formatos\Agro\EmbarqueManifiestoCartaPorte.rdlc", lrds, params, "DatosCartaPorte")
 
         Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail)
         LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.ArchivoBinario = pdf, .NombreArchivo = String.Format("{0}.pdf", "DatosCartaPorte")})
@@ -786,7 +786,7 @@ Partial Class PopUpVerFactura
             'GuardaLogFacturacion($"Ruta XML {ArchivoXML}")
             'ResultadoMail = 3
         End If
-        ImprimirPDF("GPS/EmbarqueManifiestoCartaPorte.rdlc", lrds, params, "DatosCartaPorte") ', Content_Disposition:="Inline")
+        ImprimirPDF("Formatos\Agro\EmbarqueManifiestoCartaPorte.rdlc", lrds, params, "DatosCartaPorte") ', Content_Disposition:="Inline")
 
 
     End Sub
@@ -854,7 +854,7 @@ Partial Class PopUpVerFactura
         'endimg
         '"Empresas/Grales/Formatos/EquiposGPS.rdlc"
         '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
-        ImprimirPDF("GPS/PalletEtiqueta2.rdlc", lrds, params, "Pallet") ', Content_Disposition:="Inline")
+        ImprimirPDF("Formatos\Agro\PalletEtiqueta2.rdlc", lrds, params, "Pallet") ', Content_Disposition:="Inline")
     End Sub
 
 
@@ -982,9 +982,11 @@ Partial Class PopUpVerFactura
         Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = tablaReporte}
         lrds.Add(rds)
 
-        Dim ruta As String = "GPS/PalletEtiquetaWalmart.rdlc"
+        '"Empresas/Grales/Formatos/EquiposGPS.rdlc"
+        '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
+        Dim ruta As String = "Formatos\Agro\PalletEtiquetaWalmart.rdlc"
         'If CvetypeImpresion = 2 Then
-        '    ruta = "GPS/PalletEtiqueta_2.rdlc"
+        '    ruta = "Formatos\Agro\PalletEtiqueta_2.rdlc"
         'End If
         ImprimirPDF(ruta, lrds, params, "Pallet Caja") ', Content_Disposition:="Inline")
     End Sub
@@ -1080,9 +1082,9 @@ Partial Class PopUpVerFactura
 
         '"Empresas/Grales/Formatos/EquiposGPS.rdlc"
         '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
-        Dim ruta As String = "GPS/PalletEtiquetaCaja.rdlc"
+        Dim ruta As String = "Formatos\Agro\PalletEtiquetaCaja.rdlc"
         'If CvetypeImpresion = 2 Then
-        '    ruta = "GPS/PalletEtiqueta_2.rdlc"
+        '    ruta = "Formatos\Agro\PalletEtiqueta_2.rdlc"
         'End If
         ImprimirPDF(ruta, lrds, params, "Pallet Caja") ', Content_Disposition:="Inline")
     End Sub
@@ -5204,7 +5206,7 @@ Partial Class PopUpVerFactura
                         ImprimirPDF(RutaFormatoReporte("EntradaSalida.rdlc"), DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios")
 
 
-                        End If
+                    End If
                 End If
 
             Case 42 'ENTRADAS USADOS
@@ -5230,7 +5232,17 @@ Partial Class PopUpVerFactura
                 params.Add(New ReportParameter("Observaciones", Observaciones))
                 'params.Add(New ReportParameter("Observaciones", "Observaciones con un tamaño mas grande para ver como se ve en el ticket chico."))
 
-                ImprimirPDF(String.Format("Empresas/{0}/Formatos/UsadosEntradas.rdlc", UsuarioActual.CveEmpresa), DtMovimientos, params, "Reporte entrada usados", "PDF", "DsInventarios")
+
+                Dim FIRutaReporte As New System.IO.FileInfo(String.Format("{0}Formatos/UsadosEntradas.rdlc", UsuarioActual.Empresa.Ruta))
+                Dim PathRutaReporte As String = "\Formatos\UsadosEntradas.rdlc"
+
+                If Not FIRutaReporte.Exists Then
+                    PathRutaReporte = "\Empresas\Grales\Formatos\UsadosEntradas.rdlc" 'No existe el General solo se hizo para la 140
+                End If
+
+
+                ImprimirPDF(PathRutaReporte, DtMovimientos, params, "Reporte entrada usados", "PDF", "DsInventarios")
+
             Case 7
                 Dim params As New List(Of ReportParameter)
                 Dim CiudadSucursal As String = ""
@@ -5346,7 +5358,8 @@ Partial Class PopUpVerFactura
         Dim CveFolio = ""
         CreaDT()
 
-        Dim RutaReporte As New System.IO.FileInfo(String.Format("{0}Formatos/OrdenServicio.rdlc", UsuarioActual.Empresa.Ruta))
+        Dim FIRutaReporte As New System.IO.FileInfo(String.Format("{0}Formatos/OrdenServicio.rdlc", UsuarioActual.Empresa.Ruta))
+        Dim PathRutaReporte As String = "\Formatos\OrdenServicio.rdlc"
 
         If ObjOS.GetOrdenesServicios(CveOS, -1, -1, -1, -1, UsuarioActual.CveEmpresa) Then
             If ObjOS.DtResultados.Rows.Count > 0 Then
@@ -5405,9 +5418,9 @@ Partial Class PopUpVerFactura
 
 
 
-        If Not RutaReporte.Exists Then
+        If Not FIRutaReporte.Exists Then
 
-            RutaReporte = New System.IO.FileInfo(String.Format("{0}Empresas\Grales\Formatos\OrdenServicio.rdlc", ModExtensiones.DirectorioBaseEmpresas))
+            PathRutaReporte = "\Empresas\Grales\Formatos\OrdenServicio.rdlc"
 
             params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
@@ -5432,7 +5445,7 @@ Partial Class PopUpVerFactura
         lrds.Add(rds2)
         ObjOS.Dispose()
 
-        ImprimirPDF(RutaReporte.FullName, lrds, params, NombreArchivo:=String.Format("OrdenServicio-{0}", CveFolio))
+        ImprimirPDF(PathRutaReporte, lrds, params, NombreArchivo:=String.Format("OrdenServicio-{0}", CveFolio))
     End Sub
     Private Sub CreaDT()
         TmpDTOS = New DataTable