This commit is contained in:
2021-01-30 10:53:06 -07:00
55 changed files with 11228 additions and 699 deletions

View File

@@ -947,11 +947,11 @@ Partial Class Inventarios_RecepcionAlmacen
TotalCompraOC = ObjCompras.DtResultados.Rows(0)("SubTotal").ToString.ToDecimal - ObjCompras.DtResultados.Rows(0)("Descuentos").ToString.ToDecimal
CveTipoCompra = ObjCompras.DtResultados.Rows(0)("CveTipoCompra").ToString.ToEntero
If CveTipoCompra = 9 Then
If CveTipoCompra = 9 Then ' apoyo logistico
CargaAlmacenes(-1, "27", CveTipoCompra)
ElseIf CveTipoCompra = 10 Then
CargaAlmacenes(-1, CveTipoCompra:=CveTipoCompra)
ElseIf TipoMovimiento = 3 Then
ElseIf TipoMovimiento = 3 Then 'devolucion al proveedor
CargaAlmacenes(-1, "21,2", CveTipoCompra)
Else
CargaAlmacenes(-1)
@@ -983,6 +983,7 @@ Partial Class Inventarios_RecepcionAlmacen
CargaAlmacenes(DtRecepcion.Rows(0)("CveSubProyecto").ToString.ToEntero, "22", CveTipoCompra)
End If
End If
Else
DtRecepcion = ObjInventario.DtResultados.Copy()

View File

@@ -72,7 +72,7 @@ Partial Class Inventarios_RepAlmacenCompras
'Llena Almacen
DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
DdlAlmacen.DataBind()
DdlAlmacen.Items.Insert(0, New ListItem("Seleccione", "-1"))
DdlAlmacen.Items.Insert(0, New ListItem("Todos", "-1"))
End Sub
#End Region