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

RepOC ajuste unificar conulsta de almacén comprado recibido

Browse Source
This commit is contained in:
Oscar Irigoyen
2025-05-29 11:15:08 -07:00
parent c3a5859da1
commit b4efd10917
2 changed files with 10 additions and 79 deletions
Download Patch File Download Diff File Expand all files Collapse all files

38
OC/RepOC.aspx.vb
View File

@@ -407,6 +407,16 @@ Partial Class RepOC
MuestraIndicador(DivIndicadores, "green-haze", "fa fa-money", "Órdenes de Compra", Cantidad.ToString, "Cantidad", "$" + Total.FormatoNumero, "Total", "$" + TotalPesos.FormatoNumero, "Pesos", "$" + TotalDolares.FormatoNumero, "Dólares")
UPPIndicador.Update()
DivIndicadoresCompradoRecibido.Visible = True
DivIndicadoresCompradoRecibido.InnerHtml = String.Empty
Dim Recibidos As Decimal = DtOC.SUM("Comprado")
Dim Comprados As Decimal = DtOC.SUM("Recibido")
MuestraIndicadorCompradoRecibido(DivIndicadoresCompradoRecibido, "blue", "fa fa-truck", "Almacén", Recibidos.ToString("###,###,###.00"), "Comprados", "", "Recibidos", Comprados.ToString("###,###,###.00"), "")
UPPIndicadorCompradoRecibido.Update()
End If
If DtOC IsNot Nothing AndAlso DtOC.Rows.Count > 0 Then
@@ -435,35 +445,7 @@ Partial Class RepOC
End If
If UsuarioActual.TienePermisoProceso(227) And UsuarioActual.CveRol = 1 Then
DivIndicadoresCompradoRecibido.Visible = True
DivIndicadoresCompradoRecibido.InnerHtml = String.Empty
If OC.GetOrdenesCompraCompradosRecibidosRep(DdlTipo.SelectedValue.ToString, DdlProyectos.SelectedValue.ToEntero, DdlSubProyectos.SelectedValue.ToEntero, DDlClasificacion.SelectedValue.ToEntero,
DdlEstatus.SelectedValue.ToEntero, FI, FF, -1, DdlProveedores.SelectedValue.ToEntero, If(txtFolio.Text.ToEntero = 0, -1, txtFolio.Text.ToEntero), ddlUsuario.SelectedValue.ToEntero,
UsuarioActual.CveUsuario, UsuarioActual.Empresa.CveEmpresa, If(DDlPS.SelectedValue = "", -1, DDlPS.SelectedValue.ToEntero), False,
ddlclientes.SelectedValue.ToEntero, CveActivoFijo:=DdlActivoFijo.SelectedValue.ToEntero, SoloSubProyectosConPermiso:=If(UsuarioActual.Empresa.Funcionalidad(530) = "1", True, False),
CveUsuarioAutorizo:=DdlUsuarioAutorizo.SelectedValue.ToEntero(), CveUsuarioAsignado:=DdlUsuarioAsignado.SelectedValue.ToEntero(), EntregaDirecta:=DdlEntregaDirecta.SelectedValue.ToEntero(),
CveMoneda:=DdlMoneda.SelectedValue.ToEntero(), MetodoPago:=DdlMetodoPago.SelectedValue.ToEntero, TieneAnticipo:=DdlTieneAnticipo.SelectedValue.ToEntero) Then
Dim Recibidos As Decimal = 0D
Dim Comprados As Decimal = 0D
If OC.DtResultados.Rows.Count > 0 Then
Recibidos = OC.DtResultados.Rows(0)("Comprado").ToString.ToDecimal
Comprados = OC.DtResultados.Rows(0)("Recibido").ToString.ToDecimal
End If
MuestraIndicadorCompradoRecibido(DivIndicadoresCompradoRecibido, "blue", "fa fa-truck", "Almacén", Recibidos.ToString("###,###,###.00"), "Comprados", "", "Recibidos", Comprados.ToString("###,###,###.00"), "")
End If
UPPIndicadorCompradoRecibido.Update()
End If
End If
OC.Dispose()