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

-- BDH TipoCompra=16, apoyo sin virtual

Browse Source
This commit is contained in:
rrene
2025-02-11 16:49:10 -07:00
parent 3306c4282a
commit 7cbe4e9cbb
1 changed files with 15 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
Inventarios/RecepcionAlmacen.aspx.vb
View File

@@ -1028,6 +1028,8 @@ Partial Class Inventarios_RecepcionAlmacen
CargaAlmacenes(-1, CveTipoCompra:=CveTipoCompra)
ElseIf TipoMovimiento = 3 Then 'devolucion al proveedor
CargaAlmacenes(-1, "1,21,2,27", CveTipoCompra)
ElseIf CveTipoCompra = 16 Then ' apoyo sin virtual y virtual aparte
CargaAlmacenes(-1, "1", CveTipoCompra)
Else
CargaAlmacenes(-1)
End If
@@ -1076,7 +1078,9 @@ Partial Class Inventarios_RecepcionAlmacen
If TipoMovimiento = 3 Then
CargaAlmacenes(DtRecepcion.Rows(0)("CveSubProyecto").ToString.ToEntero, "21", CveTipoCompra)
Else
CargaAlmacenes(DtRecepcion.Rows(0)("CveSubProyecto").ToString.ToEntero, "22", CveTipoCompra)
Dim tTipoAlm As String = "22"
If CveTipoCompra = 16 Then tTipoAlm = "22,1,24" ' apoyos, "acumuladores sin virtual" o "virtual solo"
CargaAlmacenes(DtRecepcion.Rows(0)("CveSubProyecto").ToString.ToEntero, tTipoAlm, CveTipoCompra)
End If
Else
@@ -2842,6 +2846,16 @@ Partial Class Inventarios_RecepcionAlmacen
'Next
End If
If Not ErrorMovInv Then
'REPLICAR MOVTO GENERADO
If UsuarioActual.CveEmpresa = 199 AndAlso CveMovimiento > 0 Then
If Not ObjInventario.ReplicarMovtoEmpresa(UsuarioActual.CveEmpresa, CveMovimiento) Then
ErrorMovInv = True
End If
End If
End If
Else
ErrorMovInv = True
End If