AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Browse Source
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
2021-12-17 08:19:26 -07:00
parent 04ab0c963c
commit 46c5c017dc
15 changed files with 2945 additions and 427 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
Nomina/CatSatBancos.aspx.vb
View File

@@ -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