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

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
rrene
2023-08-16 18:15:07 -07:00
parent 770144a9ae 2264c66361
commit 4880a48dc2
1 changed files with 45 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

45
App_Code/ClsCGame.vb
View File

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