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

correcion para devoluciones

Browse Source
This commit is contained in:
rrene
2021-07-22 10:48:40 -07:00
parent 48a6f07420
commit 567604c3a1
1 changed files with 29 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

55
Inventarios/RecepcionAlmacen.aspx.vb
View File

@@ -992,40 +992,41 @@ Partial Class Inventarios_RecepcionAlmacen
Dim CargaSoloUsados As Boolean = False Dim CargaSoloUsados As Boolean = False
If ObjInventario.RecepcionAlmacenGet(pCveCompra, BuscaEntregaDirecta, UsuarioActual.CveEmpresa) AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then If ObjInventario.RecepcionAlmacenGet(pCveCompra, BuscaEntregaDirecta, UsuarioActual.CveEmpresa) AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then
Dim DtRecepcion As DataTable = Nothing Dim DtRecepcion As DataTable = ObjInventario.DtResultados.Copy()
Dim NumUsados = ObjInventario.DtResultados.COUNT("EsUsado", "EsUsado = True").ToEntero() Dim NumUsados = ObjInventario.DtResultados.COUNT("EsUsado", "EsUsado = True").ToEntero()
Dim NumProductos = ObjInventario.DtResultados.COUNT("EsUsado", "EsUsado = False").ToEntero() Dim NumProductos = ObjInventario.DtResultados.COUNT("EsUsado", "EsUsado = False").ToEntero()
Dim CveSubProyecto As Integer Dim CveSubProyecto As Integer
'SI LA COMPRA TIENE PRODUCTOS Y USADOS SOLO MOSTRAR LOS PRODUCTOS If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
If NumProductos > 0 AndAlso NumUsados > 0 Then 'SI LA COMPRA TIENE PRODUCTOS Y USADOS SOLO MOSTRAR LOS PRODUCTOS
DtRecepcion = ObjInventario.DtResultados.FiltraParametros("EsUsado = False") If NumProductos > 0 AndAlso NumUsados > 0 Then
SumarImporteUsados = True DtRecepcion = ObjInventario.DtResultados.FiltraParametros("EsUsado = False")
ValidarRecepcionUsados = True SumarImporteUsados = True
'SI LA COMPRA TIENE PUROS USADOS, MOSTRAR LOS USADOS Y CARGAR LOS ALMACENES ValidarRecepcionUsados = True
ElseIf NumProductos = 0 AndAlso NumUsados > 0 Then 'SI LA COMPRA TIENE PUROS USADOS, MOSTRAR LOS USADOS Y CARGAR LOS ALMACENES
CargaSoloUsados = True ElseIf NumProductos = 0 AndAlso NumUsados > 0 Then
SumarImporteUsados = True CargaSoloUsados = True
ValidarRecepcionUsados = True SumarImporteUsados = True
DtRecepcion = ObjInventario.DtResultados.Copy() ValidarRecepcionUsados = True
If TipoMovimiento <> 3 Then 'sino es devolucion/NC DtRecepcion = ObjInventario.DtResultados.Copy()
CargaAlmacenes(DtRecepcion.Rows(0)("CveSubProyecto").ToString.ToEntero, "22", CveTipoCompra) CargaAlmacenes(DtRecepcion.Rows(0)("CveSubProyecto").ToString.ToEntero, "22", CveTipoCompra)
End If
Else Else
DtRecepcion = ObjInventario.DtResultados.Copy() DtRecepcion = ObjInventario.DtResultados.Copy()
'VERIFICA LOS QUE TENGAN LAS CLASIFICACION DE USADOS 'VERIFICA LOS QUE TENGAN LAS CLASIFICACION DE USADOS
If ObjCompras.GetCompraDetalle(pCveCompra) Then If ObjCompras.GetCompraDetalle(pCveCompra) Then
If ObjCompras.DtResultados.COUNT("Cantidad", "CveClasificacion=20519") > 0 Then If ObjCompras.DtResultados.COUNT("Cantidad", "CveClasificacion=20519") > 0 Then
SumarImporteUsados = True SumarImporteUsados = True
ValidarRecepcionUsados = True ValidarRecepcionUsados = True
Else Else
SumarImporteUsados = False SumarImporteUsados = False
ValidarRecepcionUsados = False ValidarRecepcionUsados = False
End If
End If End If
End If
End If
End If End If
CveSubProyecto = DtRecepcion.Rows(0)("CveSubProyecto").ToString.ToEntero CveSubProyecto = DtRecepcion.Rows(0)("CveSubProyecto").ToString.ToEntero
@@ -1129,7 +1130,9 @@ Partial Class Inventarios_RecepcionAlmacen
If CargaSoloUsados Then If CargaSoloUsados Then
CargaAlmacenes(DtRecepcion.Rows(0)("CveSubProyecto").ToString.ToEntero, "22", CveTipoCompra) CargaAlmacenes(DtRecepcion.Rows(0)("CveSubProyecto").ToString.ToEntero, "22", CveTipoCompra)
Else Else
CargaAlmacenes(DtRecepcion.Rows(0)("CveSubProyecto").ToString.ToEntero, CveTipoCompra:=CveTipoCompra) If TipoMovimiento <> 3 Then 'cuando no es devolución
CargaAlmacenes(DtRecepcion.Rows(0)("CveSubProyecto").ToString.ToEntero, CveTipoCompra:=CveTipoCompra)
End If
End If End If
End If End If
End If End If