Compras/PopUpVerFactura.aspx.vb

@@ -189,49 +189,49 @@ Partial Class PopUpVerFactura
             'OPCIONES
 
             If Request("P") IsNot Nothing AndAlso Decripta((Request("P").ToString)) <> "" Then
-                    Dim UrlParametros As Hashtable = Parametros(Decripta((Request("P").ToString)))
-                    If UrlParametros("OP") IsNot Nothing AndAlso UrlParametros("OP").ToString <> "" Then
-                        SeleccionaReporte(UrlParametros)
-                    End If
+                Dim UrlParametros As Hashtable = Parametros(Decripta((Request("P").ToString)))
+                If UrlParametros("OP") IsNot Nothing AndAlso UrlParametros("OP").ToString <> "" Then
+                    SeleccionaReporte(UrlParametros)
                 End If
-
-                If Request("onlyPrint") IsNot Nothing Then
-                    If Request("onlyPrint").ToString() = "GeneraPDFNomina" AndAlso Not IsNothing(Request("CvePersonal")) AndAlso
-                    Not IsNothing(Request("CvePeriodo")) AndAlso Not IsNothing(Request("indemnizacion")) Then
-                        Dim CveEmpresa As Integer = UsuarioActual.CveEmpresa
-                        Dim RutaEmpresa As String = UsuarioActual.Empresa.Ruta
-                        Dim indemnizacion As Boolean = Request("indemnizacion").ToString.ToEntero() = 1
-                        GeneraPDFNomina(Request("CvePersonal").ToString.ToEntero(), Request("CvePeriodo").ToString.ToEntero(), CveEmpresa, RutaEmpresa, indemnizacion)
-                    End If
-                    If Request("onlyPrint").ToString() = "Pallet" AndAlso Not IsNothing(Request("CvePallet")) Then
-                        imprimirpallet2(Request("CvePallet").ToString.ToEntero())
-                    End If
-                    If Request("onlyPrint").ToString() = "PalletCaja" AndAlso Not IsNothing(Request("CvePallet")) Then
-                        imprimirpallet(Request("CvePallet").ToString.ToEntero())
-                    End If
-                    If Request("onlyPrint").ToString() = "PalletCaja2" AndAlso Not IsNothing(Request("CvePallet")) Then
-                        imprimirpalletWalamart(Request("CvePallet").ToString.ToEntero())
-                    End If
-
-                    If Request("onlyPrint").ToString() = "manifiesto" AndAlso Not IsNothing(Request("cveEmbarqueManifiesto")) Then
-                        imprimirManifiesto(Request("cveEmbarqueManifiesto").ToString.ToEntero())
-                    End If
-                    If Request("onlyPrint").ToString() = "manifiestoRemision" AndAlso Not IsNothing(Request("cveEmbarqueManifiesto")) Then
-                        imprimirManifiestoRemision(Request("cveEmbarqueManifiesto").ToString.ToEntero())
-                    End If
-                    If Request("onlyPrint").ToString() = "manifiestoCartaPorte" AndAlso Not IsNothing(Request("cveEmbarqueManifiesto")) Then
-                        imprimirManifiestoCartaPorte(Request("cveEmbarqueManifiesto").ToString.ToEntero())
-                    End If
-
-                    If Request("onlyPrint").ToString() = "rfctxtvalidar" Then
-                        rfctxtvalidar()
-                    End If
-                    If Request("onlyPrint").ToString() = "Recibo" Then
-                        ReciboAgropecuaria()
-                    End If
-                End If
-
             End If
+
+            If Request("onlyPrint") IsNot Nothing Then
+                If Request("onlyPrint").ToString() = "GeneraPDFNomina" AndAlso Not IsNothing(Request("CvePersonal")) AndAlso
+                    Not IsNothing(Request("CvePeriodo")) AndAlso Not IsNothing(Request("indemnizacion")) Then
+                    Dim CveEmpresa As Integer = UsuarioActual.CveEmpresa
+                    Dim RutaEmpresa As String = UsuarioActual.Empresa.Ruta
+                    Dim indemnizacion As Boolean = Request("indemnizacion").ToString.ToEntero() = 1
+                    GeneraPDFNomina(Request("CvePersonal").ToString.ToEntero(), Request("CvePeriodo").ToString.ToEntero(), CveEmpresa, RutaEmpresa, indemnizacion)
+                End If
+                If Request("onlyPrint").ToString() = "Pallet" AndAlso Not IsNothing(Request("CvePallet")) Then
+                    imprimirpallet2(Request("CvePallet").ToString.ToEntero())
+                End If
+                If Request("onlyPrint").ToString() = "PalletCaja" AndAlso Not IsNothing(Request("CvePallet")) Then
+                    imprimirpallet(Request("CvePallet").ToString.ToEntero())
+                End If
+                If Request("onlyPrint").ToString() = "PalletCaja2" AndAlso Not IsNothing(Request("CvePallet")) Then
+                    imprimirpalletWalamart(Request("CvePallet").ToString.ToEntero())
+                End If
+
+                If Request("onlyPrint").ToString() = "manifiesto" AndAlso Not IsNothing(Request("cveEmbarqueManifiesto")) Then
+                    imprimirManifiesto(Request("cveEmbarqueManifiesto").ToString.ToEntero())
+                End If
+                If Request("onlyPrint").ToString() = "manifiestoRemision" AndAlso Not IsNothing(Request("cveEmbarqueManifiesto")) Then
+                    imprimirManifiestoRemision(Request("cveEmbarqueManifiesto").ToString.ToEntero())
+                End If
+                If Request("onlyPrint").ToString() = "manifiestoCartaPorte" AndAlso Not IsNothing(Request("cveEmbarqueManifiesto")) Then
+                    imprimirManifiestoCartaPorte(Request("cveEmbarqueManifiesto").ToString.ToEntero())
+                End If
+
+                If Request("onlyPrint").ToString() = "rfctxtvalidar" Then
+                    rfctxtvalidar()
+                End If
+                If Request("onlyPrint").ToString() = "Recibo" Then
+                    ReciboAgropecuaria()
+                End If
+            End If
+
+        End If
     End Sub
 
 
@@ -287,14 +287,14 @@ Partial Class PopUpVerFactura
                 End If
 
                 lrds.Add(New ReportDataSource With {.Name = "DataSet1", .Value = dt})
-                End If
+            End If
 
         End Using
 
         'endimg
         '"Empresas/Grales/Formatos/EquiposGPS.rdlc"
         '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
-        ImprimirPDF("GPS/ReciboNom.rdlc", lrds, params, "Pallet", Content_Disposition:="Inline")
+        ImprimirPDF("GPS/ReciboNom.rdlc", lrds, params, "Pallet") ', Content_Disposition:="Inline")
     End Sub
     Private Sub rfctxtvalidar()
         Dim numeroPeriodo As Integer = 0
@@ -468,7 +468,7 @@ Partial Class PopUpVerFactura
         If Not IsNothing(tablaReporte.FiltroPrimero("TipoManifiesto=1")) Then
             rutardlc = "GPS/EmbarqueManifiesto2.rdlc"
         End If
-        ImprimirPDF(rutardlc, lrds, params, "Manifesto", Content_Disposition:="Inline")
+        ImprimirPDF(rutardlc, lrds, params, "Manifesto") ', Content_Disposition:="Inline")
     End Sub
 
     Private Sub imprimirManifiestoRemision(cveEmbarqueManifiesto As Integer)
@@ -622,7 +622,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("GPS/EmbarqueManifiestoRemision.rdlc", lrds, params, "Remisión") ', Content_Disposition:="Inline")
     End Sub
 
     Private Sub imprimirManifiestoCartaPorte(cveEmbarqueManifiesto As Integer)
@@ -788,7 +788,7 @@ Partial Class PopUpVerFactura
             'GuardaLogFacturacion($"Ruta XML {ArchivoXML}")
             'ResultadoMail = 3
         End If
-        ImprimirPDF("GPS/EmbarqueManifiestoCartaPorte.rdlc", lrds, params, "DatosCartaPorte", Content_Disposition:="Inline")
+        ImprimirPDF("GPS/EmbarqueManifiestoCartaPorte.rdlc", lrds, params, "DatosCartaPorte") ', Content_Disposition:="Inline")
 
 
     End Sub
@@ -856,7 +856,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("GPS/PalletEtiqueta2.rdlc", lrds, params, "Pallet") ', Content_Disposition:="Inline")
     End Sub
 
 
@@ -990,7 +990,7 @@ Partial Class PopUpVerFactura
         'If CvetypeImpresion = 2 Then
         '    ruta = "GPS/PalletEtiqueta_2.rdlc"
         'End If
-        ImprimirPDF(ruta, lrds, params, "Pallet Caja", Content_Disposition:="Inline")
+        ImprimirPDF(ruta, lrds, params, "Pallet Caja") ', Content_Disposition:="Inline")
     End Sub
 
     Private Sub imprimirpallet(cvePallet As Integer)
@@ -1088,7 +1088,7 @@ Partial Class PopUpVerFactura
         'If CvetypeImpresion = 2 Then
         '    ruta = "GPS/PalletEtiqueta_2.rdlc"
         'End If
-        ImprimirPDF(ruta, lrds, params, "Pallet Caja", Content_Disposition:="Inline")
+        ImprimirPDF(ruta, lrds, params, "Pallet Caja") ', Content_Disposition:="Inline")
     End Sub
 #Region "U S U A R I O - T O K E N"