From 16312c51825a6c7f677bf877eea5d4b8bb53f028 Mon Sep 17 00:00:00 2001
From: JORGE LUIS CAUDILLO ESPARZA <caudillo_90@hotmail.com>
Date: Tue, 15 Aug 2023 06:58:26 -0700
Subject: [PATCH]  manifiesto

---
 App_Code/ClsCGame.vb | 45 ++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 45 insertions(+)

diff --git a/App_Code/ClsCGame.vb b/App_Code/ClsCGame.vb
index 1f050b14e..3dfceb9f1 100644
--- a/App_Code/ClsCGame.vb
+++ b/App_Code/ClsCGame.vb
@@ -3499,6 +3499,51 @@ Public Class ClsCGame
         End Try
         Return retorno
     End Function
+
+    Public Function ManifiestoGet(cveManifiesto As Int32, cveTemporada As Int32, cveOrigen As Int32, cveDestino As Int32, cveCliente As Int32,
+                                  cveCamion As Int32, cveRemolque As Int32, cveChofer As Int32, cveUsuario As Int32, cveEmpresa As Int32,
+                                  vFechaInicio As String, vFechaFin As String) As Boolean
+        Dim retorno As Boolean = False
+        DataAdapter("PA_CGame_ManifiestoGet", CommandType.StoredProcedure)
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveManifiesto", SqlDbType.Int).Value = cveManifiesto
+            .Add("@CveTemporada", SqlDbType.Int).Value = cveTemporada
+            .Add("@CveOrigen", SqlDbType.Int).Value = cveOrigen
+            .Add("@CveDestino", SqlDbType.Int).Value = cveDestino
+            .Add("@CveCliente", SqlDbType.Int).Value = cveCliente
+            .Add("@CveCamion", SqlDbType.Int).Value = cveCamion
+            .Add("@CveRemolque", SqlDbType.Int).Value = cveRemolque
+            .Add("@CveChofer", SqlDbType.Int).Value = cveChofer
+            .Add("@CveUsuario", SqlDbType.Int).Value = cveUsuario
+            .Add("@CveEmpresa", SqlDbType.Int).Value = cveEmpresa
+            .Add("@VFechaInicio", SqlDbType.VarChar).Value = vFechaInicio
+            .Add("@VFechaFin", SqlDbType.VarChar).Value = vFechaFin
+            .Add("@ErrorMostrarADS", SqlDbType.VarChar).Direction = ParameterDirection.Output
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el reporte de Manifiesto.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return retorno
+    End Function
+
+    Public Function RepManifiesto_PSGet(cveManifiesto As Int32, cveEmpresa As Int32) As Boolean
+        Dim retorno As Boolean = False
+        DataAdapter("PA_CGame_RepManifiesto_PSGet", CommandType.StoredProcedure)
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveManifiesto", SqlDbType.Int).Value = cveManifiesto
+            .Add("@CveEmpresa", SqlDbType.Int).Value = cveEmpresa
+        End With
+        Try
+            SqlAdapter.Fill(Data)
+            retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el reporte de Manifiesto pallets.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+        Return retorno
+    End Function
 #Region "IDisposable Support"
     ' IDisposable
     Protected Overridable Sub Dispose(disposing As Boolean)