From e20a61256fe6233f5d7303d8e6b1a952c8c46354 Mon Sep 17 00:00:00 2001
From: JORGE LUIS CAUDILLO ESPARZA <caudillo_90@hotmail.com>
Date: Wed, 9 Feb 2022 07:32:02 -0700
Subject: [PATCH]

---
 App_Code/ClsVentas.vb                 | 19 +++++++
 Compras/PopUpVerFactura.aspx.vb       | 39 ++++++++++++--
 GPS/PalletEtiquetaCaja.rdlc           | 77 +++++++++++++++++++--------
 RH/RepPersonalInconsistencias.aspx.vb | 23 ++++----
 packages.config                       |  2 +
 5 files changed, 121 insertions(+), 39 deletions(-)

diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb
index 2daceca7c..1a039efa3 100644
--- a/App_Code/ClsVentas.vb
+++ b/App_Code/ClsVentas.vb
@@ -162,6 +162,25 @@ Public Class ClsVentas
 
         Return Retorno
     End Function
+
+    Public Function Embarque_ManifiestoUpvta(cveVenta As Int32, cveUsuario As Int32, cveEmpresa As Int32, cveEmbarqueManifiesto As Int32) As Boolean
+        Dim retorno As Boolean = False
+        DataAdapter("PA_AGRO_Embarque_ManifiestoUpvta", CommandType.StoredProcedure)
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveVenta", SqlDbType.Int).Value = cveVenta
+            .Add("@CveEmpresa", SqlDbType.Int).Value = cveEmpresa
+            .Add("@cveEmbarqueManifiesto", SqlDbType.Int).Value = cveEmbarqueManifiesto
+            .Add("@CveUsuario", SqlDbType.Int).Value = cveUsuario
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al actualizar venta manifiesto.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+        Return retorno
+    End Function
     Public Function GetVentaTerminal(CveVentaTerminal As Integer, Fecha As DateTime, CveSubProyecto As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_VentasGetTerminal")
diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index 11c6901a0..b95849eda 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/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"
diff --git a/GPS/PalletEtiquetaCaja.rdlc b/GPS/PalletEtiquetaCaja.rdlc
index 113da5366..50449af53 100644
--- a/GPS/PalletEtiquetaCaja.rdlc
+++ b/GPS/PalletEtiquetaCaja.rdlc
@@ -2,6 +2,13 @@
 <Report xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner" xmlns:cl="http://schemas.microsoft.com/sqlserver/reporting/2010/01/componentdefinition" xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition">
   <AutoRefresh>0</AutoRefresh>
   <DataSources>
+    <DataSource Name="dsImagenes">
+      <ConnectionProperties>
+        <DataProvider>System.Data.DataSet</DataProvider>
+        <ConnectString>/* Local Connection */</ConnectString>
+      </ConnectionProperties>
+      <rd:DataSourceID>06ae5329-8ff5-42b5-b7f4-6d68e5186421</rd:DataSourceID>
+    </DataSource>
     <DataSource Name="DataSet">
       <ConnectionProperties>
         <DataProvider>System.Data.DataSet</DataProvider>
@@ -11,6 +18,26 @@
     </DataSource>
   </DataSources>
   <DataSets>
+    <DataSet Name="dsImagenes">
+      <Query>
+        <DataSourceName>dsImagenes</DataSourceName>
+        <CommandText>/* Local Query */</CommandText>
+      </Query>
+      <Fields>
+        <Field Name="ImagenByte">
+          <DataField>ImagenByte</DataField>
+          <rd:TypeName>System.Byte[]</rd:TypeName>
+        </Field>
+      </Fields>
+      <rd:DataSetInfo>
+        <rd:DataSetName>dsImagenes</rd:DataSetName>
+        <rd:SchemaPath>C:\Users\Caudillo\Documents\Visual Studio 2013\WebSites\WebSite3\App_Code\DataSet.xsd</rd:SchemaPath>
+        <rd:TableName>dtImagenes</rd:TableName>
+        <rd:TableAdapterFillMethod />
+        <rd:TableAdapterGetDataMethod />
+        <rd:TableAdapterName />
+      </rd:DataSetInfo>
+    </DataSet>
     <DataSet Name="DataSet1">
       <Query>
         <DataSourceName>DataSet</DataSourceName>
@@ -72,7 +99,7 @@
               </TablixColumns>
               <TablixRows>
                 <TablixRow>
-                  <Height>0.6cm</Height>
+                  <Height>0.2825cm</Height>
                   <TablixCells>
                     <TablixCell>
                       <CellContents>
@@ -667,7 +694,7 @@ KM12 HERMOSILLO, SONORA</Value>
                   </TablixCells>
                 </TablixRow>
                 <TablixRow>
-                  <Height>0.52062cm</Height>
+                  <Height>0.4677cm</Height>
                   <TablixCells>
                     <TablixCell>
                       <CellContents>
@@ -856,7 +883,7 @@ KM12 HERMOSILLO, SONORA</Value>
                   </TablixCells>
                 </TablixRow>
                 <TablixRow>
-                  <Height>0.52062cm</Height>
+                  <Height>0.4677cm</Height>
                   <TablixCells>
                     <TablixCell>
                       <CellContents>
@@ -953,7 +980,7 @@ KM12 HERMOSILLO, SONORA</Value>
                   </TablixCells>
                 </TablixRow>
                 <TablixRow>
-                  <Height>0.54708cm</Height>
+                  <Height>0.4677cm</Height>
                   <TablixCells>
                     <TablixCell>
                       <CellContents>
@@ -1036,7 +1063,7 @@ KM12 HERMOSILLO, SONORA</Value>
                   </TablixCells>
                 </TablixRow>
                 <TablixRow>
-                  <Height>0.6cm</Height>
+                  <Height>0.46771cm</Height>
                   <TablixCells>
                     <TablixCell>
                       <CellContents>
@@ -1197,7 +1224,7 @@ KM12 HERMOSILLO, SONORA</Value>
                   </TablixCells>
                 </TablixRow>
                 <TablixRow>
-                  <Height>0.6cm</Height>
+                  <Height>0.46771cm</Height>
                   <TablixCells>
                     <TablixCell>
                       <CellContents>
@@ -1392,7 +1419,7 @@ KM12 HERMOSILLO, SONORA</Value>
                   </TablixCells>
                 </TablixRow>
                 <TablixRow>
-                  <Height>0.41479cm</Height>
+                  <Height>0.3258cm</Height>
                   <TablixCells>
                     <TablixCell>
                       <CellContents>
@@ -1475,7 +1502,7 @@ KM12 HERMOSILLO, SONORA</Value>
                   </TablixCells>
                 </TablixRow>
                 <TablixRow>
-                  <Height>0.09729cm</Height>
+                  <Height>0.07938cm</Height>
                   <TablixCells>
                     <TablixCell>
                       <CellContents>
@@ -1820,7 +1847,7 @@ KM12 HERMOSILLO, SONORA</Value>
                   </TablixCells>
                 </TablixRow>
                 <TablixRow>
-                  <Height>0.49417cm</Height>
+                  <Height>0.38834cm</Height>
                   <TablixCells>
                     <TablixCell>
                       <CellContents>
@@ -1963,7 +1990,7 @@ KM12 HERMOSILLO, SONORA</Value>
                   </TablixCells>
                 </TablixRow>
                 <TablixRow>
-                  <Height>0.46771cm</Height>
+                  <Height>0.36188cm</Height>
                   <TablixCells>
                     <TablixCell>
                       <CellContents>
@@ -2168,7 +2195,7 @@ KM12 HERMOSILLO, SONORA</Value>
                   </TablixCells>
                 </TablixRow>
                 <TablixRow>
-                  <Height>0.46771cm</Height>
+                  <Height>0.41479cm</Height>
                   <TablixCells>
                     <TablixCell>
                       <CellContents>
@@ -2315,7 +2342,7 @@ KM12 HERMOSILLO, SONORA</Value>
                   </TablixCells>
                 </TablixRow>
                 <TablixRow>
-                  <Height>0.6cm</Height>
+                  <Height>0.52062cm</Height>
                   <TablixCells>
                     <TablixCell>
                       <CellContents>
@@ -2456,13 +2483,14 @@ KM12 HERMOSILLO, SONORA</Value>
                   </TablixCells>
                 </TablixRow>
                 <TablixRow>
-                  <Height>1.18209cm</Height>
+                  <Height>0.99688cm</Height>
                   <TablixCells>
                     <TablixCell>
                       <CellContents>
-                        <Image Name="Image2">
-                          <Source>Embedded</Source>
-                          <Value>CodBarr</Value>
+                        <Image Name="Image4">
+                          <Source>Database</Source>
+                          <Value>=First(Fields!ImagenByte.Value, "dsImagenes")</Value>
+                          <MIMEType>image/png</MIMEType>
                           <Sizing>FitProportional</Sizing>
                           <Style>
                             <Border>
@@ -2479,9 +2507,10 @@ KM12 HERMOSILLO, SONORA</Value>
                     <TablixCell />
                     <TablixCell>
                       <CellContents>
-                        <Image Name="Image3">
-                          <Source>Embedded</Source>
-                          <Value>CodBarr</Value>
+                        <Image Name="Image5">
+                          <Source>Database</Source>
+                          <Value>=First(Fields!ImagenByte.Value, "dsImagenes")</Value>
+                          <MIMEType>image/png</MIMEType>
                           <Sizing>FitProportional</Sizing>
                           <Style>
                             <Border>
@@ -2490,6 +2519,7 @@ KM12 HERMOSILLO, SONORA</Value>
                           </Style>
                         </Image>
                         <ColSpan>5</ColSpan>
+                        <rd:Selected>true</rd:Selected>
                       </CellContents>
                     </TablixCell>
                     <TablixCell />
@@ -2499,7 +2529,7 @@ KM12 HERMOSILLO, SONORA</Value>
                   </TablixCells>
                 </TablixRow>
                 <TablixRow>
-                  <Height>0.49417cm</Height>
+                  <Height>0.36188cm</Height>
                   <TablixCells>
                     <TablixCell>
                       <CellContents>
@@ -2580,7 +2610,7 @@ KM12 HERMOSILLO, SONORA</Value>
                   </TablixCells>
                 </TablixRow>
                 <TablixRow>
-                  <Height>1.12917cm</Height>
+                  <Height>1.0498cm</Height>
                   <TablixCells>
                     <TablixCell>
                       <CellContents>
@@ -2981,9 +3011,10 @@ Produce of MX.</Value>
                 </TablixMember>
               </TablixMembers>
             </TablixRowHierarchy>
+            <DataSetName>DataSet1</DataSetName>
             <Top>0.07228cm</Top>
             <Left>0.05625cm</Left>
-            <Height>10.19917cm</Height>
+            <Height>8.58414cm</Height>
             <Width>10.52136cm</Width>
             <Style>
               <Border>
@@ -2992,7 +3023,7 @@ Produce of MX.</Value>
             </Style>
           </Tablix>
         </ReportItems>
-        <Height>4.23096in</Height>
+        <Height>3.53304in</Height>
         <Style />
       </Body>
       <Width>4.19342in</Width>
diff --git a/RH/RepPersonalInconsistencias.aspx.vb b/RH/RepPersonalInconsistencias.aspx.vb
index 763ea5656..c1afce118 100644
--- a/RH/RepPersonalInconsistencias.aspx.vb
+++ b/RH/RepPersonalInconsistencias.aspx.vb
@@ -127,9 +127,10 @@ Partial Class RH_RepPersonalInconsistencias
     End Sub
 
     Protected Sub CargaDatos()
-        Dim ObjAnomalias As New ClsRH
+        Using ObjAnomalias As New ClsRH
 
-        If ObjAnomalias.GetRepPersonalInconsistencias(UsuarioActual.CveEmpresa.ToEntero) Then
+
+            If ObjAnomalias.GetRepPersonalInconsistencias(UsuarioActual.CveEmpresa.ToEntero) Then
             'DSContratosProximosAVencer = ObjAnomalias.DtResultados
             'DSContratosProximosAVencer.Tables.Add(ObjAnomalias.DSResultados().Tables(0))
             'DSContratosProximosAVencer.Tables.Add(ObjAnomalias.DSResultados().Tables(1))
@@ -173,20 +174,20 @@ Partial Class RH_RepPersonalInconsistencias
             LbTotalAnomalias.Text = "Total de Anomalías: " + ObjAnomalias.DSResultados().Tables(1).Rows.Count.ToString
             LbTotalCumpleañeros.Text = "Total de Cumpleañeros: " + ObjAnomalias.DSResultados().Tables(2).Rows.Count.ToString
 
+            CargaGrid("")
         End If
 
-        CargaGrid("")
 
-        ObjAnomalias.Dispose()
+        End Using
 
-        Dim ObjAF As New ClsAF()
-        If ObjAF.GetLicenciasVencidas(-1, -1, UsuarioActual.CveEmpresa, Estatus:=1) Then
-            GvLicencias.DataSource = ObjAF.DtResultados.FiltraParametros("CveEstatusPersonal = 1")
+        Using ObjAF As New ClsAF()
+            If ObjAF.GetLicenciasVencidas(-1, -1, UsuarioActual.CveEmpresa, Estatus:=1) Then
+                GvLicencias.DataSource = ObjAF.DtResultados.FiltraParametros("CveEstatusPersonal = 1")
 
-        Else
-            GvLicencias.DataSource = Nothing
-        End If
-        ObjAF.Dispose()
+            Else
+                GvLicencias.DataSource = Nothing
+            End If
+        End Using
 
         UpLicenciasVencidas.Update()
         GvLicencias.DataBind()
diff --git a/packages.config b/packages.config
index 53e53fe2e..aba590c02 100644
--- a/packages.config
+++ b/packages.config
@@ -3,6 +3,7 @@
   <package id="AjaxControlToolkit" version="15.1.4.0" targetFramework="net461" />
   <package id="AjaxControlToolkit.StaticResources" version="15.1.4.0" targetFramework="net461" />
   <package id="Antlr" version="3.4.1.9004" targetFramework="net461" />
+  <package id="BarcodeLib" version="2.4.0" targetFramework="net461" />
   <package id="ClosedXML" version="0.95.4" targetFramework="net461" />
   <package id="DocumentFormat.OpenXml" version="2.7.2" targetFramework="net461" />
   <package id="ExcelNumberFormat" version="1.0.10" targetFramework="net461" />
@@ -62,6 +63,7 @@
   <package id="System.ComponentModel.Annotations" version="4.7.0" targetFramework="net461" />
   <package id="System.Data.SqlClient" version="4.8.2" targetFramework="net461" />
   <package id="System.Diagnostics.DiagnosticSource" version="4.7.1" targetFramework="net461" />
+  <package id="System.Drawing.Common" version="5.0.2" targetFramework="net461" />
   <package id="System.IdentityModel.Tokens.Jwt" version="6.11.0" targetFramework="net461" />
   <package id="System.IO.FileSystem.Primitives" version="4.0.1" targetFramework="net461" />
   <package id="System.IO.Packaging" version="4.0.0" targetFramework="net461" />