BDH. Totalizador de usados

Compras/PopUpVerFactura.aspx.vb

@@ -1342,7 +1342,7 @@ Partial Class PopUpVerFactura
         'VERIFICA SI TIENE MOVIMIENTO VIRTUAL RELACIONADO
         If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso ObjInventarios.DtResultados.Rows.Count > 0 Then
             CveMovimientoRelacionado = ObjInventarios.DtResultados.Rows(0)("CveMtoRel").ToString().ToEntero()
-            If CveConcepto.Contiene(2, 3, 26, 27) AndAlso ObjInventarios.DtResultados.FiltroPrimeroValor("CveMovimientoVirtual").ToEntero() > 0 Then
+            If CveConcepto.Contiene(2, 3, 26, 27, 40, 41) AndAlso ObjInventarios.DtResultados.FiltroPrimeroValor("CveMovimientoVirtual").ToEntero() > 0 Then
                 FolioRelacionado = ObjInventarios.DtResultados.FiltroPrimeroValor("FolioVirtual")
                 CveConceptoMovtoRelacionado = 37
             ElseIf CveConcepto.Contiene(36, 37) Then
@@ -1361,8 +1361,31 @@ Partial Class PopUpVerFactura
 
         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
-                DtMovimientos = ObjInventarios.DtResultados
-                Alert("asdf")
+                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
+                        Dim CveAlmacenRelacionado As Integer = ObjInventarios.DtResultados.Rows(0)("CveAlmacen").ToString().ToEntero()
+                        Dim CveTipoAlmacenRelacionado As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {CveAlmacenRelacionado}").ToString.ToEntero
+
+                        'SI TIENE RELACIONADO UN MOVIMIENTO VIRTUAL DEBE AGREGAR ESTE MOVIMIENTO A LA IMPRESION
+                        If CveTipoAlmacenRelacionado.Contiene(24, 25) Then
+                            If ObjInventarios.GetMovimientosDetalle(CveMovimientoRelacionado, UsuarioActual.CveEmpresa) Then
+                                Dim DtUsados As DataTable = ObjInventarios.DtResultados.Copy()
+                                CantidadUsados = DtUsados.SUM("Cantidad").ToDecimal()
+                                Dim IndexInicialUsados As Integer = DtMovimientos.Rows.Count + 1
+
+                                For Each Dr As DataRow In DtUsados.Rows
+                                    Dr("No") = IndexInicialUsados
+                                    IndexInicialUsados += 1
+                                Next
+
+                                DtMovimientos.Merge(DtUsados)
+                            End If
+                        End If
+                    End If
+                End If
+
                 DtMovimientos.Columns("No").AutoIncrement = True
                 DtMovimientos.Columns("No").AutoIncrementSeed = DtMovimientos.Rows.Count + 1
                 DtMovimientos.Columns("No").AutoIncrementStep = 1
@@ -4638,18 +4661,28 @@ Partial Class PopUpVerFactura
         params.Add(New ReportParameter("TipoAuto", ModeloAuto))
 
         'Informacion Consumidor
-        'Informacion Distribuidor
         If (CveCliente > 0) Then
 
             Dim DatosClienteSeleccionado As DataRow = GlobalDTCliente(UsuarioActual.CveEmpresa).FiltroPrimero(String.Format("CveCliente = {0}", CveCliente))
-            Dim Nombre As String = DatosClienteSeleccionado.Item("Nombre").ToString
-            Dim Ciudad As String = DatosClienteSeleccionado.Item("Ciudad").ToString
-            Dim Estado As String = DatosClienteSeleccionado.Item("Estado").ToString
+
+            Dim Nombre As String = ""
+            Dim Ciudad As String = ""
+            Dim Estado As String = ""
+            Dim Direccion As String = ""
+            Dim Telefono As String = ""
+
+            If DatosClienteSeleccionado IsNot Nothing Then
+                Nombre = DatosClienteSeleccionado("Nombre").ToString
+                Ciudad = DatosClienteSeleccionado("Ciudad").ToString
+                Estado = DatosClienteSeleccionado("Estado").ToString
+                Direccion = DatosClienteSeleccionado("Direccion").ToString
+                Telefono = DatosClienteSeleccionado("Telefono").ToString
+            End If
 
             params.Add(New ReportParameter("NombreCliente", Nombre))
-            params.Add(New ReportParameter("Direccion", String.Format("{0}, {1}", Ciudad.Trim, Estado)))
-            params.Add(New ReportParameter("CiudadEstadoConsumidor", String.Format("{0}, {1}", Ciudad.Trim, Estado)))
-            params.Add(New ReportParameter("TelConsumidor", DatosClienteSeleccionado.Item("Telefono").ToString))
+            params.Add(New ReportParameter("Direccion", Direccion))
+            params.Add(New ReportParameter("CiudadEstadoConsumidor", String.Format("{0}, {1}", Ciudad, Estado)))
+            params.Add(New ReportParameter("TelConsumidor", Telefono))
         End If
 
         params.Add(New ReportParameter("Anio", Año))