Pendientes BDH

2020-10-15 20:03:09 -07:00
parent eb399787a6
commit 6eb4cd9814
9 changed files with 557 additions and 330 deletions
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -1275,23 +1275,23 @@ Partial Class PopUpVerFactura
        Dim FechaMovimiento As Date = ObjInventarios.FechaRegistro

        Dim CveMovimientoRelacionado As Integer = -1
-        Dim FolioRelacionado As String = ""
+        Dim FolioRelacionado As String = ""
        Dim CveConceptoMovtoRelacionado As Integer = -1

        'VERIFICA SI TIENE MOVIMIENTO VIRTUAL RELACIONADO
        If UsuarioActual.CveEmpresa = 140 AndAlso ObjInventarios.DtResultados.Rows.Count > 0 Then
            CveMovimientoRelacionado = ObjInventarios.DtResultados.Rows(0)("CveMtoRel").ToString().ToEntero()
-            If CveConcepto.Contiene(3, 26) AndAlso ObjInventarios.DtResultados.FiltroPrimeroValor("CveMovimientoVirtual").ToEntero() > 0 Then
-                FolioRelacionado = ObjInventarios.DtResultados.FiltroPrimeroValor("FolioVirtual")
-                CveConceptoMovtoRelacionado = 37
-            ElseIf CveConcepto = 37 Then
-                FolioRelacionado = ObjInventarios.DtResultados.FiltroPrimeroValor("FolioRelacionado")
-                CveConceptoMovtoRelacionado = 3
+            If CveConcepto.Contiene(3, 26) AndAlso ObjInventarios.DtResultados.FiltroPrimeroValor("CveMovimientoVirtual").ToEntero() > 0 Then
+                FolioRelacionado = ObjInventarios.DtResultados.FiltroPrimeroValor("FolioVirtual")
+                CveConceptoMovtoRelacionado = 37
+            ElseIf CveConcepto = 37 Then
+                FolioRelacionado = ObjInventarios.DtResultados.FiltroPrimeroValor("FolioRelacionado")
+                CveConceptoMovtoRelacionado = 3
            End If
-        End If
-
-
-
+        End If
+
+
+
        Dim CantidadProductos As Decimal = 0
        Dim CantidadUsados As Decimal = 0

@@ -1567,8 +1567,8 @@ Partial Class PopUpVerFactura
                Dim concepto As String = ""
                If CveConcepto = 3 Then
                    concepto = "SALIDA DE ALMACÉN"
-                ElseIf CveConcepto = 37 Then
-                    concepto = "SALIDA VIRTUAL"
+                ElseIf CveConcepto = 37 Then
+                    concepto = "SALIDA VIRTUAL"
                Else
                    concepto = "SALIDA DE ALMACÉN POR RECONSTRUCCIÓN"
                End If
@@ -1705,34 +1705,34 @@ Partial Class PopUpVerFactura

                            'ImprimirPDF(String.Format("Empresas/{0}/Formatos/Salidas.rdlc", 72), DtMovimientos, params, "ReporteSalidas", RDSName:="DsInventarios")
                            ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Salidas.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios")
-                        ElseIf UsuarioActual.CveEmpresa = 140 Then
-
-                            Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
-                            If Imagen.Exists Then
-                                params.Add(New ReportParameter("LogoPath", logouri))
-                            Else
-                                params.Add(New ReportParameter("LogoPath", ""))
-                            End If
-
-                            params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
-                            params.Add(New ReportParameter("Concepto", concepto))
-                            params.Add(New ReportParameter("Almacen", Almacen))
-                            params.Add(New ReportParameter("Fecha", Fecha))
-                            params.Add(New ReportParameter("FacturaProveedor", FolioVenta))
-                            params.Add(New ReportParameter("FacturadoA", If(DtMovimientos(0)("Nombre").ToString <> "", DtMovimientos(0)("Nombre").ToString, NombreCliente)))
-                            params.Add(New ReportParameter("Observaciones", Observaciones))
-                            params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
-                            params.Add(New ReportParameter("Folio", Folio))
-                            params.Add(New ReportParameter("Descuentos", ""))
-                            params.Add(New ReportParameter("IVA", ""))
-                            params.Add(New ReportParameter("Total", ""))
-                            'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
-                            params.Add(New ReportParameter("NombreRecibio", Recibio))
-                            params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
-                            params.Add(New ReportParameter("CveConceptoMovRelacionado", CveConceptoMovRelacionado.ToString()))
-                            params.Add(New ReportParameter("FolioRelacionado", FolioRelacionado))
-
-                            ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Salidas.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios")
+                        ElseIf UsuarioActual.CveEmpresa = 140 Then
+
+                            Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+                            If Imagen.Exists Then
+                                params.Add(New ReportParameter("LogoPath", logouri))
+                            Else
+                                params.Add(New ReportParameter("LogoPath", ""))
+                            End If
+
+                            params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
+                            params.Add(New ReportParameter("Concepto", concepto))
+                            params.Add(New ReportParameter("Almacen", Almacen))
+                            params.Add(New ReportParameter("Fecha", Fecha))
+                            params.Add(New ReportParameter("FacturaProveedor", FolioVenta))
+                            params.Add(New ReportParameter("FacturadoA", If(DtMovimientos(0)("Nombre").ToString <> "", DtMovimientos(0)("Nombre").ToString, NombreCliente)))
+                            params.Add(New ReportParameter("Observaciones", Observaciones))
+                            params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+                            params.Add(New ReportParameter("Folio", Folio))
+                            params.Add(New ReportParameter("Descuentos", ""))
+                            params.Add(New ReportParameter("IVA", ""))
+                            params.Add(New ReportParameter("Total", ""))
+                            'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
+                            params.Add(New ReportParameter("NombreRecibio", Recibio))
+                            params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
+                            params.Add(New ReportParameter("CveConceptoMovRelacionado", CveConceptoMovRelacionado.ToString()))
+                            params.Add(New ReportParameter("FolioRelacionado", FolioRelacionado))
+
+                            ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Salidas.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios")
                        Else
                            params.Add(New ReportParameter("Folio", Folio))
                            params.Add(New ReportParameter("Fecha", Fecha))
@@ -2169,8 +2169,8 @@ Partial Class PopUpVerFactura
                        params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
                        params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
                        params.Add(New ReportParameter("CantidadProductos", CantidadProductos.ToString()))
-                        params.Add(New ReportParameter("CantidadUsados", CantidadUsados.ToString()))
-                        params.Add(New ReportParameter("CveConceptoMovRelacionado", CveConceptoMovRelacionado.ToString()))
+                        params.Add(New ReportParameter("CantidadUsados", CantidadUsados.ToString()))
+                        params.Add(New ReportParameter("CveConceptoMovRelacionado", CveConceptoMovRelacionado.ToString()))
                        params.Add(New ReportParameter("FolioRelacionado", FolioRelacionado))
                    Else
                        params.Add(New ReportParameter("Observaciones", Observaciones)) 'TxtObservaciones.Text
@@ -2516,19 +2516,19 @@ Partial Class PopUpVerFactura
                If (UsuarioActual.CveEmpresa = 72) Then
                    params.Add(New ReportParameter("DomicilioFiscal", DomicilioFiscalCompu))
                End If
-                ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/SalidasGarantia.rdlc", DtMovimientos, params, String.Format("SalidaGarantia{0}", Folio.ToString), RDSName:="DsInventarios")
-                    'Else
-                    '    params.Add(New ReportParameter("Folio", Folio))
-                    '    params.Add(New ReportParameter("Fecha", Fecha))
-                    '    params.Add(New ReportParameter("Almacen", Almacen))
-                    '    params.Add(New ReportParameter("SubProyecto", SubProyecto))
-                    '    params.Add(New ReportParameter("Observaciones", Observaciones))
-                    '    params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
-                    '    params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
-                    '    ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Salidas.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios")
-                    'End If
-
-
+                ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/SalidasGarantia.rdlc", DtMovimientos, params, String.Format("SalidaGarantia{0}", Folio.ToString), RDSName:="DsInventarios")
+                    'Else
+                    '    params.Add(New ReportParameter("Folio", Folio))
+                    '    params.Add(New ReportParameter("Fecha", Fecha))
+                    '    params.Add(New ReportParameter("Almacen", Almacen))
+                    '    params.Add(New ReportParameter("SubProyecto", SubProyecto))
+                    '    params.Add(New ReportParameter("Observaciones", Observaciones))
+                    '    params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
+                    '    params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
+                    '    ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/Salidas.rdlc", DtMovimientos, params, String.Format("Salida de Almacen - {0}", Folio.ToString), RDSName:="DsInventarios")
+                    'End If
+
+
            Case 18 'D E V O L U C I O N    D E L   C L I E N T E
                Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/DevolucionCliente.rdlc", UsuarioActual.Empresa.Ruta))
                Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
@@ -2705,36 +2705,36 @@ Partial Class PopUpVerFactura
                    ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Salida por Prestamo - {0}", Folio.ToString), RDSName:="DsInventarios")
                ElseIf CveConcepto = 22 Then
                    ImprimirPDF(Archivo, DtMovimientos, params, String.Format("Entrada por Prestamo - {0}", Folio.ToString), RDSName:="DsInventarios")
-                End If
-
-            'Case 22 'ENTRADA POR PRESTAMO
-            '    Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
-            '    Dim params As New List(Of ReportParameter)
-
-            '    Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
-            '    If Imagen.Exists Then
-            '        params.Add(New ReportParameter("LogoPath", logouri))
-            '    Else
-            '        params.Add(New ReportParameter("LogoPath", ""))
-            '    End If
-
-            '    params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
-            '    params.Add(New ReportParameter("Concepto", "Entrada por Prestamo"))
-            '    params.Add(New ReportParameter("Almacen", Almacen))
-            '    params.Add(New ReportParameter("Fecha", Fecha))
-            '    params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
-            '    params.Add(New ReportParameter("Folio", Folio))
-            '    params.Add(New ReportParameter("Descuentos", ""))
-            '    params.Add(New ReportParameter("IVA", ""))
-            '    params.Add(New ReportParameter("Total", ""))
-            '    'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
-            '    params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
-            '    params.Add(New ReportParameter("FacturadoA", NombreCliente))
-            '    If (UsuarioActual.CveEmpresa = 72) Then
-            '        params.Add(New ReportParameter("DomicilioFiscal", DomicilioFiscalCompu))
-            '    End If
-            '    ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Entrada por Prestamo - {0}", Folio.ToString), RDSName:="DsInventarios")
-
+                End If
+
+            'Case 22 'ENTRADA POR PRESTAMO
+            '    Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+            '    Dim params As New List(Of ReportParameter)
+
+            '    Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+            '    If Imagen.Exists Then
+            '        params.Add(New ReportParameter("LogoPath", logouri))
+            '    Else
+            '        params.Add(New ReportParameter("LogoPath", ""))
+            '    End If
+
+            '    params.Add(New ReportParameter("Empresa", UsuarioActual.Empresa.Empresa))
+            '    params.Add(New ReportParameter("Concepto", "Entrada por Prestamo"))
+            '    params.Add(New ReportParameter("Almacen", Almacen))
+            '    params.Add(New ReportParameter("Fecha", Fecha))
+            '    params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+            '    params.Add(New ReportParameter("Folio", Folio))
+            '    params.Add(New ReportParameter("Descuentos", ""))
+            '    params.Add(New ReportParameter("IVA", ""))
+            '    params.Add(New ReportParameter("Total", ""))
+            '    'params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
+            '    params.Add(New ReportParameter("NombreRecibio", String.Format("RECIBIÓ{0}{1}", vbCrLf, Recibio)))
+            '    params.Add(New ReportParameter("FacturadoA", NombreCliente))
+            '    If (UsuarioActual.CveEmpresa = 72) Then
+            '        params.Add(New ReportParameter("DomicilioFiscal", DomicilioFiscalCompu))
+            '    End If
+            '    ImprimirPDF("Empresas/Grales/Formatos/EntradaSalida.rdlc", DtMovimientos, params, String.Format("Entrada por Prestamo - {0}", Folio.ToString), RDSName:="DsInventarios")
+
            Case 24 'SALIDA POR RESGUARDO
                If DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 20 Or DtMovimientos(0)("CveTipoAlmacen").ToString.ToEntero = 19 Then
                    Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
@@ -3217,11 +3217,11 @@ Partial Class PopUpVerFactura
        If CveConcepto = 2 Then
        ElseIf CveConcepto = 3 Then
        End If
-    End Sub
-
-
+    End Sub
+
+
 #End Region
-
+
 #Region "OP = 'OC' - IMPRIME PDF OC"
    Private Sub ImprimePDFOC(CveOrdenCompra As Integer)
        Dim reporte As Byte() = NewGeneraBytesOC(CveOrdenCompra, ConBitacora:=(UsuarioActual.Empresa.Funcionalidad(119) = "1"))
@@ -3576,7 +3576,7 @@ Partial Class PopUpVerFactura
            params.Add(New ReportParameter("RFC", dr("RFC").ToString))
            params.Add(New ReportParameter("Puesto", dr("Puesto").ToString))
            params.Add(New ReportParameter("PuestoEntrego", dr("PuestoEntrego").ToString))
-            params.Add(New ReportParameter("Departamento", dr("Departamento").ToString))
+            params.Add(New ReportParameter("Departamento", dr("Departamento").ToString))
            params.Add(New ReportParameter("DepartamentoEntrego", dr("DepartamentoEntrego").ToString))
            params.Add(New ReportParameter("Folio", dr("Folio").ToString))
            params.Add(New ReportParameter("Sucursal", dr("SubProyecto").ToString))