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

BDH. Cancelar usados cuando no tiene movimientos de ExA

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2022-07-14 15:35:14 -07:00
parent 8bd3d884e6
commit 4553cd1e14
1 changed files with 14 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
App_Code/Modelos.vb
View File

@@ -5308,6 +5308,8 @@ Namespace Modelos
If Not ErrorCancelar Then If Not ErrorCancelar Then
Dim Filtro As String = "" Dim Filtro As String = ""
Dim FiltroDevAlmacen As String = "" Dim FiltroDevAlmacen As String = ""
Dim FiltroEntradaUsados As String = ""
Select Case ObjFactura.TipoDocto Select Case ObjFactura.TipoDocto
Case "Ing" Case "Ing"
Filtro = "CveConcepto IN (3, 40)" Filtro = "CveConcepto IN (3, 40)"
@@ -5318,6 +5320,10 @@ Namespace Modelos
Filtro = "CveConcepto = 18" Filtro = "CveConcepto = 18"
Case Else Case Else
Filtro = "CveConcepto = 9" Filtro = "CveConcepto = 9"
'VERIFICA SI TIENE ENTRADAS DE USADOS TAMBIEN
If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso ObjFactura.TipoDocto = "Rem" Then
FiltroEntradaUsados = "CveConcepto = 42"
End If
End Select End Select
'CARGA REMISIONES DE LA VENTA DEVUELTA 'CARGA REMISIONES DE LA VENTA DEVUELTA
@@ -5342,6 +5348,14 @@ Namespace Modelos
DtExistencias = DtInventario.FiltraParametros($"CvePS IS NOT NULL AND {Filtro} AND CveTipoPS = 2") DtExistencias = DtInventario.FiltraParametros($"CvePS IS NOT NULL AND {Filtro} AND CveTipoPS = 2")
TieneSalida = DtExistencias.Rows.Count > 0 TieneSalida = DtExistencias.Rows.Count > 0
'VERIFICA SI SOLO TIENE CARGA DE USADOS EN CASO DE NO TENER SALIDAS DE ALMACEN
If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso ObjFactura.TipoDocto = "Rem" Then
FiltroEntradaUsados = "CveConcepto = 42"
If Not TieneSalida Then
TieneSalida = DtInventario.FiltraParametros($"CvePS IS NOT NULL AND {FiltroEntradaUsados}").Rows.Count > 0
End If
End If
Else Else
ErrorCancelar = True ErrorCancelar = True
MensajeError = "Ocurrió un error al cargar los datos de devolución. Por favor vuelva a intentar." MensajeError = "Ocurrió un error al cargar los datos de devolución. Por favor vuelva a intentar."