Compras/PopUpVerFactura.aspx.vb

@@ -261,8 +261,8 @@ Partial Class PopUpVerFactura
                 Camion = String.Format("{0} {1}", row("CamEspecificacion"), row("CamAnio"))
                 Rem1Placa = row("Rem1Placa").ToString()
                 NoFactura = row("NoFactura").ToString()
-                Remolque1 = String.Format("{0} ", row("Rem1Especificacion"), row("Rem1Anio"))
-                Mercado = If(row("AgenciaAduanalUSA").ToString() = "2", "Extranjero", "Nacional")
+                Remolque1 = String.Format("{0} ", row("NumeroTrailer"), row("Rem1Anio"))
+                Mercado = If(row("CveDestino").ToString() = "2", "Extranjero", "Nacional")
 
                 NumeroTrailer = String.Format("No. {0}", row("NumeroTrailer").ToString())
 
@@ -394,11 +394,12 @@ Partial Class PopUpVerFactura
                 NoCajas = row("NoCajas").ToString()
                 Fecha = String.Format("{0:MMM dd}", row("Fecha")).Replace(".", "").ToUpper()
                 CvetypeImpresion = row("CvetypeImpresion").ToString().ToEntero()
-                NumberOfCode = String.Format("(01)00856977005186(13){0:ddMMyy}(10){0}01", Regex.Match(row("Cuadro").ToString(), "\\d+"), row("Fecha"))
+                NumberOfCode = String.Format("(01)00856977005186(13){1:ddMMyy}(10){0}01", Right(String.Format("0{0}", Regex.Match(row("Cuadro").ToString(), "\d+")), 2), row("Fecha"))
 
             End If
         End Using
         Dim params As New List(Of ReportParameter)
+
         params.Add(New ReportParameter("Tamano", Tamano))
         params.Add(New ReportParameter("noPallet", noPallet))
         params.Add(New ReportParameter("FormatoImpresion", FormatoImpresion))
@@ -410,16 +411,44 @@ Partial Class PopUpVerFactura
         params.Add(New ReportParameter("Cultivo", If(CvetypeImpresion = 2, Cultivoingles, Cultivo)))
         params.Add(New ReportParameter("Envase", If(CvetypeImpresion = 2, "PLU 4062", Envase)))
 
+
+
         Dim tablaReporte As New DataTable
-
-
         tablaReporte.Columns.Add(New DataColumn("Codigo", GetType(String)))
         tablaReporte.Rows.Add(tablaReporte.NewRow)
         tablaReporte.Rows.Add(tablaReporte.NewRow)
 
         Dim lrds As New List(Of ReportDataSource)
+
+        'img
+        Dim dtqr As New DataTable
+        Dim column As DataColumn = New DataColumn("ImagenByte")
+        column.DataType = System.Type.[GetType]("System.Byte[]")
+        column.AllowDBNull = True
+        column.Caption = "ImagenByte"
+        dtqr.Columns.Add(column)
+        Dim rowqr As DataRow = dtqr.NewRow()
+
+
+        Dim bcode As New BarcodeLib.Barcode()
+        Dim img = bcode.Encode(BarcodeLib.TYPE.CODE128, String.Format("{0}", noPallet), 50, 10)
+        Dim barcodebyte As Byte()
+        Using ms = New MemoryStream()
+            img.Save(ms, System.Drawing.Imaging.ImageFormat.Png)
+            barcodebyte = ms.ToArray()
+        End Using
+        rowqr("ImagenByte") = barcodebyte
+
+        dtqr.Rows.Add(rowqr)
+        Dim rds2 As New ReportDataSource With {.Name = "dsImagenes", .Value = dtqr}
+        rds2.Name = "dsImagenes"
+        rds2.Value = dtqr
+        lrds.Add(rds2)
+        'endimg
+
         Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = tablaReporte}
         lrds.Add(rds)
+
         '"Empresas/Grales/Formatos/EquiposGPS.rdlc"
         '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
         Dim ruta As String = "GPS/PalletEtiquetaCaja.rdlc"