-- PA JAM_POG

App_Code/ClsInventarios.vb

@@ -5875,6 +5875,27 @@ Public Class ClsInventarios
     End Function
 #End Region
 
+#Region "JAM - POG"
+    Public Function GetJAM_BASF_POG(Fecha As Date) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_JAM_BASF_POG")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@Fecha", SqlDbType.Date).Value = Fecha
+        End With
+
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener las existencias.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+        End Try
+
+        Return Retorno
+
+    End Function
+#End Region
+
 #Region " IDisposable Support "
     ' IDisposable
     Protected Overridable Sub Dispose(ByVal disposing As Boolean)