Nomina/CatPeriodos.aspx.vb

@@ -4,9 +4,10 @@ Option Strict On
 Imports System.Data
 Imports System.Linq
 Imports Extensiones
+Imports Microsoft.Reporting.WebForms
 
 Partial Class Nomina_CatPeriodos
-	Inherits ClsPaginas
+    Inherits ClsPaginas
     Private Property Comando As String
         Get
             Return ViewState("Comando").ToString
@@ -16,8 +17,11 @@ Partial Class Nomina_CatPeriodos
         End Set
     End Property
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
-		If Not Page.IsPostBack Then
-			ViewState("Orden") = ""
+        If Not Page.IsPostBack Then
+
+
+
+            ViewState("Orden") = ""
             CargaTipoPeriodo()
             cargaEjercicios()
             CargaDatos()
@@ -29,10 +33,10 @@ Partial Class Nomina_CatPeriodos
             '    LbAgregar.Enabled = False
             'End If
         End If
-	End Sub
+    End Sub
 
-	Public Sub CargaDatos()
-		Dim ObjNom_Periodos As New ClsNominas
+    Public Sub CargaDatos()
+        Dim ObjNom_Periodos As New ClsNominas
         If ObjNom_Periodos.GetPeriodos(DdlTipoPeriodo.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlEjercicio.SelectedValue.ToEntero, -1, -1, DdlEstatus.SelectedValue.ToEntero) Then
             ViewState("DTNom_Periodos") = ObjNom_Periodos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
             GlobalDTNom_Periodos = ObjNom_Periodos.DtResultados
@@ -41,14 +45,14 @@ Partial Class Nomina_CatPeriodos
             Me.GvDatos.DataSource = Nothing
         End If
 
-		ObjNom_Periodos.Dispose()
+        ObjNom_Periodos.Dispose()
 
-		If ViewState("Orden").ToString() <> String.Empty Then
-			CargaGrid(ViewState("Orden").ToString())
-		Else
-			CargaGrid("")
-		End If
-	End Sub
+        If ViewState("Orden").ToString() <> String.Empty Then
+            CargaGrid(ViewState("Orden").ToString())
+        Else
+            CargaGrid("")
+        End If
+    End Sub
 
 
 #Region " C O M B O S"

Nomina/CatSatBancos.aspx.vb

@@ -4,12 +4,25 @@ Option Strict On
 Imports System.Data
 Imports System.Linq
 Imports Extensiones
+Imports Microsoft.Reporting.WebForms
 
 Partial Class Nom_CatSatBancos
     Inherits ClsPaginas
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
+
+
+            Dim params As New List(Of ReportParameter)
+            params.Add(New ReportParameter("Envase", "1 1/9"))
+            params.Add(New ReportParameter("Tamano", "Small"))
+            params.Add(New ReportParameter("Cultivo", "Tomate"))
+            params.Add(New ReportParameter("noPallet", "000001"))
+            params.Add(New ReportParameter("Variedad", "Golden"))
+            Dim tablaReporte As New DataTable
+            '"Empresas/Grales/Formatos/EquiposGPS.rdlc"
+            '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
+            ImprimirPDF("GPS/PalletEtiqueta2.rdlc", (New List(Of ReportDataSource)), params, "Equipo GPS")
             ViewState("Orden") = ""
             CargaDatos()
         End If
@@ -55,12 +68,12 @@ Partial Class Nom_CatSatBancos
 #Region "G V  D A T O S"
     Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then
-                e.Row.Cells(0).Width = Unit.Pixel(80)
-                e.Row.Cells(1).Width = Unit.Pixel(160)
+            e.Row.Cells(0).Width = Unit.Pixel(80)
+            e.Row.Cells(1).Width = Unit.Pixel(160)
             e.Row.Cells(2).Width = Unit.Pixel(315)
-                e.Row.Cells(3).Width = Unit.Pixel(100)
-                e.Row.Cells(4).Width = Unit.Pixel(100)
-                e.Row.Cells(5).Width = Unit.Pixel(100)
+            e.Row.Cells(3).Width = Unit.Pixel(100)
+            e.Row.Cells(4).Width = Unit.Pixel(100)
+            e.Row.Cells(5).Width = Unit.Pixel(100)
             e.Row.Cells(6).Width = Unit.Pixel(100)
             e.Row.Cells(7).Width = Unit.Pixel(61)
             e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Center

Nomina/Nomina.aspx.cs

@@ -1249,7 +1249,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
                             Alert("Ocurrió un error al mover el archivo fiscal cancelado");
                         }
 
-                        Nom.UpdateEstatusNomNominas(2, UsuarioActual.Empresa.CvePAC, "", "", ("01/01/2000").ToDate(), CveNomina, 0, 0, 0, 0, 0);
+                        Nom.UpdateEstatusNomNominas(2, UsuarioActual.Empresa.CvePAC, "", ("01/01/2000").ToDate(), ("01/01/2000").ToDate(), CveNomina, 0, 0, 0, 0, 0);
 
                         Alert($"La nómina con folio fiscal '{FolioFiscal}' fue cancelada ante el SAT", TipoMensaje.MsgInformacion);
                     }