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

--2 JP Replicación Biosistemas(hermana E201), PS y UM ( aplica lote/cad) y enviar PA (5 lugares), - logo OC Biosistemas.

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2025-02-08 19:11:18 -07:00
parent 85a0a0f7e6
commit 7107f9420c
7 changed files with 86 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
Compras/Compras.aspx.vb
View File

@@ -5883,6 +5883,15 @@ Partial Class Compras_Compras
ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, tImporte, tImporte, 68, ObjInventario.Folio.ToString, ObjInventario.Folio.ToString, CveMovimientoAlmacen:=CveMovimientoInventario)
End If
If Not ErrorMovInv Then
'REPLICAR MOVTO GENERADO
If UsuarioActual.CveEmpresa = 199 AndAlso CveMovimientoInventario > 0 Then
If Not ObjInventario.ReplicarMovtoEmpresa(UsuarioActual.CveEmpresa, CveMovimientoInventario) Then
ErrorMovInv = True
End If
End If
End If
End If
Next
End If
@@ -13910,6 +13919,15 @@ Partial Class Compras_Compras
End If
Next
End If
If Not ErrorMovInv Then
'REPLICAR MOVTO GENERADO
If UsuarioActual.CveEmpresa = 199 AndAlso CveMovimientoEntrada > 0 Then
If Not ObjInventario.ReplicarMovtoEmpresa(UsuarioActual.CveEmpresa, CveMovimientoEntrada) Then
ErrorMovInv = True
End If
End If
End If
Else
ErrorMovInv = True
Alert("El Total de la NC debe ser igual al total de la devolucion", TipoMensaje.MsgAdvertencia)
@@ -14587,6 +14605,15 @@ Partial Class Compras_Compras
End If
End If
If Not ErrorCancelar Then
'REPLICAR MOVTO GENERADO
If UsuarioActual.CveEmpresa = 199 AndAlso CveMovimientoEntrada > 0 Then
If Not ObjInventario.ReplicarMovtoEmpresa(UsuarioActual.CveEmpresa, CveMovimientoEntrada) Then
ErrorCancelar = True
End If
End If
End If
Next
End If
@@ -19414,6 +19441,15 @@ Partial Class Compras_Compras
Respuesta = False
End If
If Not Respuesta Then
'REPLICAR MOVTO GENERADO
If UsuarioActual.CveEmpresa = 199 AndAlso CveMovimientoSalida > 0 Then
If Not ObjInventario.ReplicarMovtoEmpresa(UsuarioActual.CveEmpresa, CveMovimientoSalida) Then
Respuesta = False
End If
End If
End If
End If
If Respuesta Then