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

E172 ClsGenerales agregar "Estatus" a AddEmpacado y AddTipoOrganico

Browse Source
This commit is contained in:
MLopez
2023-01-14 14:34:13 -07:00
parent 793dc80866
commit 9f737154d5
1 changed files with 8 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
App_Code/ClsGenerales.vb
View File

@@ -4223,15 +4223,16 @@ Public Class ClsGenerales
Return Retorno Return Retorno
End Function End Function
Public Function AddTipoOrganico(TipoOrganico As String, CveUsuario As Integer, CveEmpresa As Integer) As Boolean Public Function AddTipoOrganico(TipoOrganico As String, Estatus As Boolean, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Gral_TipoOrganicosAdd") DataAdapter("PA_Gral_TipoOrganicosAdd")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@TipoOrganico", SqlDbType.VarChar).Value = TipoOrganico .Add("@TipoOrganico", SqlDbType.VarChar).Value = TipoOrganico
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@Estatus", SqlDbType.Bit).Value = Estatus
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With End With
Try Try
@@ -4317,15 +4318,16 @@ Public Class ClsGenerales
Return Retorno Return Retorno
End Function End Function
Public Function AddEmpacado(TipoEmpacado As String, CveUsuario As Integer, CveEmpresa As Integer) As Boolean Public Function AddEmpacado(TipoEmpacado As String, Estatus As Boolean, CveUsuario As Integer, CveEmpresa As Integer) As Boolean
Dim Retorno As Boolean = False Dim Retorno As Boolean = False
DataAdapter("PA_Gral_EmpacadosAdd") DataAdapter("PA_Gral_EmpacadosAdd")
With SqlAdapter.SelectCommand.Parameters With SqlAdapter.SelectCommand.Parameters
.Add("@TipoEmpacado", SqlDbType.VarChar).Value = TipoEmpacado .Add("@TipoEmpacado", SqlDbType.VarChar).Value = TipoEmpacado
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@Estatus", SqlDbType.Bit).Value = Estatus
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With End With
Try Try