From 43ff59ebb756e02afbe886582670f71aae5ea2b4 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Wed, 30 Mar 2022 21:16:14 -0700 Subject: [PATCH 1/3] Entradas salidas Resumen --- App_Code/ClsInventarios.vb | 7 +++++-- Compras/PopUpVerFactura.aspx.vb | 14 ++++++++++---- Empresas/140/Formatos/Salidas.rdlc | 7 ++++--- Empresas/48/Formatos/Factura.rdlc | 16 ++++++++-------- Inventarios/EntradasSalidas.aspx | 3 +++ Inventarios/EntradasSalidas.aspx.vb | 6 ++++++ Ventas/Clientes.aspx | 2 +- Ventas/Clientes.aspx.vb | 13 +++++++++---- 8 files changed, 46 insertions(+), 22 deletions(-) diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index 2d7da6a41..75e8cd605 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -1156,7 +1156,7 @@ Public Class ClsInventarios Return Retorno End Function - Public Function GetMovimientosDetalle(CveMovimiento As Integer, CveEmpresa As Integer, Optional CveCompra As Integer = -1, Optional CveMovimientoDetalle As Integer = -1) As Boolean + Public Function GetMovimientosDetalle(CveMovimiento As Integer, CveEmpresa As Integer, Optional CveCompra As Integer = -1, Optional CveMovimientoDetalle As Integer = -1, Optional Resumen As Boolean = False) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_MovimientosDetalleGet") @@ -1165,6 +1165,8 @@ Public Class ClsInventarios .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@CveCompra", SqlDbType.Int).Value = CveCompra .Add("@CveMovimientoDetalle", SqlDbType.Int).Value = CveMovimientoDetalle + .Add("@Resumen", SqlDbType.Int).Value = Resumen + End With Try SqlAdapter.Fill(Data) @@ -1209,13 +1211,14 @@ Public Class ClsInventarios Return Retorno End Function - Public Function GetMovimientosDetalleImpresion(CveMovimiento As Integer, CveEmpresa As Integer) As Boolean + Public Function GetMovimientosDetalleImpresion(CveMovimiento As Integer, CveEmpresa As Integer, Optional Resumen As Boolean = False) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Inv_MovimientosDetalleImpresionGet") With SqlAdapter.SelectCommand.Parameters .Add("@CveMovimiento", SqlDbType.Int).Value = CveMovimiento .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@Resumen", SqlDbType.Bit).Value = Resumen End With Try SqlAdapter.Fill(Data) diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 61ecb326a..c07e6faa8 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -539,6 +539,12 @@ Partial Class PopUpVerFactura End If End If + If UrlParametros("OP").ToString = "Almr" Then + If UrlParametros("CVEMOVIMIENTO") IsNot Nothing AndAlso UrlParametros("CVEMOVIMIENTO").ToString.ToEntero > 0 Then + CargaMovimientosAlmacen(UrlParametros("CVEMOVIMIENTO").ToString.ToEntero, Resumen:=True) + End If + End If + If UrlParametros("OP").ToString = "Etiqueta" Then If UrlParametros("CVEMOVIMIENTO") IsNot Nothing AndAlso UrlParametros("CVEMOVIMIENTO").ToString.ToEntero > 0 Then ImprimirEtiqueta(UrlParametros("CVEMOVIMIENTO").ToString.ToEntero, UrlParametros("MODALIDAD").ToString) @@ -2270,7 +2276,7 @@ Partial Class PopUpVerFactura #Region " - OP = 'Alm' - REPORTE ENTRADAS ALMACEN " - Private Sub CargaMovimientosAlmacen(CveMovimiento As Integer) + Private Sub CargaMovimientosAlmacen(CveMovimiento As Integer, Optional Resumen As Boolean = False) Dim ObjInventarios As New ClsInventarios ObjInventarios.GetMovimientos(CveMovimiento, -1, -1, UsuarioActual.CveEmpresa) @@ -2366,11 +2372,11 @@ Partial Class PopUpVerFactura Dim CantidadUsados As Decimal = 0 If CveConcepto = 3 Or CveConcepto = 18 Or CveConcepto = 30 Or CveConcepto = 34 Or CveConcepto = 35 Or CveConcepto = 16 Or CveConcepto = 7 Or CveConcepto = 40 Then 'SALIDA Y DEVOLUCION DEL CLIENTE - If ObjInventarios.GetMovimientosDetalleImpresion(CveMovimiento, UsuarioActual.CveEmpresa) Then + If ObjInventarios.GetMovimientosDetalleImpresion(CveMovimiento, UsuarioActual.CveEmpresa, Resumen:=Resumen) Then DtMovimientos = ObjInventarios.DtResultados If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso CveMovimientoRelacionado > 0 Then - If ObjInventarios.GetMovimientosDetalleImpresion(CveMovimientoRelacionado, UsuarioActual.CveEmpresa) AndAlso ObjInventarios.DtResultados.Rows.Count > 0 Then + If ObjInventarios.GetMovimientosDetalleImpresion(CveMovimientoRelacionado, UsuarioActual.CveEmpresa, Resumen:=Resumen) AndAlso ObjInventarios.DtResultados.Rows.Count > 0 Then Dim CveAlmacenRelacionado As Integer = ObjInventarios.DtResultados.Rows(0)("CveAlmacen").ToString().ToEntero() Dim CveTipoAlmacenRelacionado As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {CveAlmacenRelacionado}").ToString.ToEntero @@ -2400,7 +2406,7 @@ Partial Class PopUpVerFactura DtMovimientos.PrimaryKey = keys End If Else - If ObjInventarios.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then + If ObjInventarios.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa, Resumen:=Resumen) Then DtMovimientos = ObjInventarios.DtResultados.Copy() CantidadProductos = DtMovimientos.SUM("Cantidad").ToDecimal() If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso CveMovimientoRelacionado > 0 Then diff --git a/Empresas/140/Formatos/Salidas.rdlc b/Empresas/140/Formatos/Salidas.rdlc index 781193cf7..f9f790b59 100644 --- a/Empresas/140/Formatos/Salidas.rdlc +++ b/Empresas/140/Formatos/Salidas.rdlc @@ -12,10 +12,10 @@ 3.14766cm - 11.67011cm + 8.19668cm - 2.70027cm + 6.1737cm 1.73945cm @@ -350,6 +350,7 @@ + true true @@ -568,7 +569,7 @@ - 1.05208in + 1.03125in @@ -204,7 +204,7 @@ Textbox4 1.93416in - 0.56139in + 0.53361in 3.62386in 4 + + + + + + Folio + + + =IIF(Fields!EsHeader.Value = "-1" or Fields!Codigo.Value = "","LightGrey","Transparent") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!Fecha.Value + + + + + + + Fecha + + + =IIF(Fields!EsHeader.Value = "-1" or Fields!Codigo.Value = "","LightGrey","Transparent") + 2pt + 2pt + 2pt + 2pt + + + + + + + + true + true + + + + + =Fields!SubProyecto.Value + + + + + + + SubProyecto + + + =IIF(Fields!EsHeader.Value = "-1" or Fields!Codigo.Value = "","LightGrey","Transparent") + 2pt + 2pt + 2pt + 2pt + + + + @@ -150,12 +295,12 @@ @@ -174,6 +319,43 @@ + + + + true + true + + + + + =Fields!TotalImporte.Value + + + + + + + TotalImporte + + + =IIF(Fields!EsHeader.Value = "-1" or Fields!Codigo.Value = "","LightGrey","Transparent") + 2pt + 2pt + 2pt + 2pt + + + + @@ -183,6 +365,10 @@ + + + + @@ -195,8 +381,8 @@ DataSet1 0.17639cm 0.08377cm - 0.58521cm - 20.05235cm + 0.37354cm + 19.54766cm @@ -423,7 +609,7 @@ 3.27766cm 1.68911cm 0.6cm - 15.36419cm + 5.44232cm 5 @@ -456,9 +642,9 @@ Textbox1 3.27766cm - 17.0533cm + 17.13143cm 0.6cm - 3.08282cm + 2.5cm 6 + + true + true + + + + + Mov. Amacen + + + + + + + Textbox3 + 3.27766cm + 7.13143cm + 0.6cm + 2.5cm + 7 + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Fecha + + + + + + + Textbox3 + 3.27766cm + 9.63143cm + 0.6cm + 2.5cm + 8 + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Sub Proyecto + + + + + + + Textbox3 + 3.27766cm + 12.13143cm + 0.6cm + 2.5cm + 9 + + + LightGrey + 2pt + 2pt + 2pt + 2pt + + + + true + true + + + + + Cantidad + + + + + + + Textbox3 + 3.27766cm + 14.63143cm + 0.6cm + 2.5cm + 10 + + + LightGrey + 2pt + 2pt + 2pt + 2pt + +