diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 832f9d9e0..16072afc4 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -182,56 +182,56 @@ Partial Class PopUpVerFactura End If End If - 'If Request("REPORTE") IsNot Nothing Then - ' CType(Session("DTPDF"), HtmlTable).GenerarReportePDF("Reporte") - 'End If + If Request("REPORTE") IsNot Nothing Then + CType(Session("DTPDF"), HtmlTable).GenerarReportePDF("Reporte") + End If '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) + Dim UrlParametros As Hashtable = Parametros(Decripta((Request("P").ToString))) + If UrlParametros("OP") IsNot Nothing AndAlso UrlParametros("OP").ToString <> "" Then + SeleccionaReporte(UrlParametros) + End If End If - End If - If Request("onlyPrint") IsNot Nothing Then - If Request("onlyPrint").ToString() = "GeneraPDFNomina" AndAlso Not IsNothing(Request("CvePersonal")) AndAlso + 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()) + 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 - 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