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
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
DataAdapter("PA_Gral_TipoOrganicosAdd")
With SqlAdapter.SelectCommand.Parameters
.Add("@TipoOrganico", SqlDbType.VarChar).Value = TipoOrganico
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@Estatus", SqlDbType.Bit).Value = Estatus
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
Try
@@ -4317,15 +4318,16 @@ Public Class ClsGenerales
Return Retorno
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
DataAdapter("PA_Gral_EmpacadosAdd")
With SqlAdapter.SelectCommand.Parameters
.Add("@TipoEmpacado", SqlDbType.VarChar).Value = TipoEmpacado
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
.Add("@Estatus", SqlDbType.Bit).Value = Estatus
.Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
End With
Try