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

-- cambio concepto 205

Browse Source
This commit is contained in:
rrene
2023-10-31 13:13:34 -07:00
parent abb8acb5c7
commit 01f7975b46
1 changed files with 9 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
Compras/Compras.aspx.vb
View File

@@ -13718,7 +13718,10 @@ Partial Class Compras_Compras
End If End If
Next Next
ObjOC.Dispose() ObjOC.Dispose()
Dim CveConceptoAlmacenSugerido As String = "205" Dim CveConceptoAlmacenSugerido As String = "-1"
If UsuarioActual.Empresa.Funcionalidad(267) = "1" Then 'cuando es empresa citrícola
CveConceptoAlmacenSugerido = "205"
End If
'MOVIMIENTOS DE ALMACÉN 'MOVIMIENTOS DE ALMACÉN
Dim ObjInventarios As New ClsInventarios Dim ObjInventarios As New ClsInventarios
Dim FoliosOCAlmacen As String = "" Dim FoliosOCAlmacen As String = ""
@@ -13726,7 +13729,11 @@ Partial Class Compras_Compras
If ObjInventarios.GetMovimientosOC(CveOCItem.ToEntero, UsuarioActual.CveEmpresa) Then If ObjInventarios.GetMovimientosOC(CveOCItem.ToEntero, UsuarioActual.CveEmpresa) Then
If ObjInventarios.DtResultados.Rows.Count > 0 Then If ObjInventarios.DtResultados.Rows.Count > 0 Then
FoliosOCAlmacen = $"{ObjInventarios.DtResultados.FiltroPrimeroValor("FolioOC")}," FoliosOCAlmacen = $"{ObjInventarios.DtResultados.FiltroPrimeroValor("FolioOC")},"
CveConceptoAlmacenSugerido = "176" ''
If UsuarioActual.Empresa.Funcionalidad(267) = "1" Then 'cuando es empresa citrícola
CveConceptoAlmacenSugerido = "176"
End If
End If End If
Else Else
Alert("Ocurrió un error al cargar los movimientos de almacén de la orden de compra", TipoMensaje.MsgError) Alert("Ocurrió un error al cargar los movimientos de almacén de la orden de compra", TipoMensaje.MsgError)