correcciones en traspaso almacen, correcciones en carta porte y se agrego el reporte devolucion cliente para los movimiento de concepto 18

Compras/PopUpVerFactura.aspx.vb

@@ -1184,7 +1184,7 @@ Partial Class PopUpVerFactura
         Dim DepartamentoEntrega As String = ObjInventarios.DepartamentoEntrega
         Dim FechaMovimiento As Date = ObjInventarios.FechaRegistro
 
-        If CveConcepto = 3 Or CveConcepto = 18 Or CveConcepto = 30 Or CveConcepto = 34 Or CveConcepto = 35 Or CveConcepto = 16 Then 'SALIDA Y DEVOLUCION DEL CLIENTE
+        If CveConcepto = 3 Or CveConcepto = 18 Or CveConcepto = 30 Or CveConcepto = 34 Or CveConcepto = 35 Or CveConcepto = 16 Or CveConcepto = 7 Then 'SALIDA Y DEVOLUCION DEL CLIENTE
             If ObjInventarios.GetMovimientosDetalleImpresion(CveMovimiento, UsuarioActual.CveEmpresa) Then
                 DtMovimientos = ObjInventarios.DtResultados
 
@@ -2362,6 +2362,37 @@ Partial Class PopUpVerFactura
                     End If
                     ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/DevolucionCliente.rdlc", DtMovimientos, params, String.Format("Devolucion del Cliente - {0}", Folio.ToString), RDSName:="DsInventarios")
                     'End If
+                Else
+                    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
+                    Dim CiudadSucursal As String = ""
+                    Dim DomicilioSucursal As String = ""
+
+                    If DtMovimientos(0)("CveVenta").ToString <> "" Then
+                        CiudadSucursal = String.Format("{0}, {1}", DtMovimientos(0)("Municipio").ToString, DtMovimientos(0)("Estado").ToString)
+                        DomicilioSucursal = String.Format("{0} #{1}, {2}, Col. {3}, CP:  {4}, {5}, {6}", DtMovimientos(0)("Calle").ToString, DtMovimientos(0)("NoExt").ToString, DtMovimientos(0)("NoInt").ToString, DtMovimientos(0)("Colonia"), DtMovimientos(0)("CP").ToString, CiudadSucursal, DtMovimientos(0)("Pais").ToString)
+                    End If
+                    params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+                    params.Add(New ReportParameter("Folio", Folio))
+                    params.Add(New ReportParameter("Concepto", "DEVOLUCIÓN DEL CLIENTE"))
+                    params.Add(New ReportParameter("Fecha", Fecha))
+                    params.Add(New ReportParameter("Almacen", Almacen))
+                    params.Add(New ReportParameter("FacturaProveedor", FolioVenta))
+                    params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
+                    params.Add(New ReportParameter("NombreRecibio", Recibio))
+                    params.Add(New ReportParameter("ExpedidoEn", DomicilioSucursal))
+                    params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString))
+                    params.Add(New ReportParameter("EnviarA", DtMovimientos(0)("Mail").ToString))
+                    params.Add(New ReportParameter("Entrega", DtMovimientos(0)("Entrega").ToString))
+                    params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+                    params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
+
+                    ImprimirPDF("Empresas/Grales/Formatos/DevolucionCliente.rdlc", DtMovimientos, params, String.Format("Devolucion del Cliente - {0}", Folio.ToString), RDSName:="DsInventarios")
+                    'End If
                 End If
 
             Case 19 'ARMADO DE PAQUETE
@@ -2930,6 +2961,32 @@ Partial Class PopUpVerFactura
                 params.Add(New ReportParameter("Cliente", NombreCliente))
 
                 ImprimirPDF(String.Format("Empresas/{0}/Formatos/RepUsadosEntradas.rdlc", UsuarioActual.CveEmpresa), DtMovimientos, params, "Reporte entrada usados", "PDF", "DsInventarios")
+            Case 7
+                Dim params As New List(Of ReportParameter)
+                Dim CiudadSucursal As String = ""
+                Dim DomicilioSucursal As String = ""
+
+                If DtMovimientos(0)("CveVenta").ToString <> "" Then
+                    CiudadSucursal = String.Format("{0}, {1}", DtMovimientos(0)("Municipio").ToString, DtMovimientos(0)("Estado").ToString)
+                    DomicilioSucursal = String.Format("{0} #{1}, {2}, Col. {3}, CP:  {4}, {5}, {6}", DtMovimientos(0)("Calle").ToString, DtMovimientos(0)("NoExt").ToString, DtMovimientos(0)("NoInt").ToString, DtMovimientos(0)("Colonia"), DtMovimientos(0)("CP").ToString, CiudadSucursal, DtMovimientos(0)("Pais").ToString)
+                End If
+                params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+                params.Add(New ReportParameter("Folio", Folio))
+                params.Add(New ReportParameter("Concepto", "DEVOLUCIÓN DEL CLIENTE"))
+                params.Add(New ReportParameter("Fecha", Fecha))
+                params.Add(New ReportParameter("Almacen", Almacen))
+                params.Add(New ReportParameter("FacturaProveedor", FolioVenta))
+                params.Add(New ReportParameter("NombreEntrego", String.Format("ENTREGÓ{0}{1}", vbCrLf, Capturo)))
+                params.Add(New ReportParameter("NombreRecibio", Recibio))
+                params.Add(New ReportParameter("ExpedidoEn", DomicilioSucursal))
+                params.Add(New ReportParameter("FacturadoA", DtMovimientos(0)("Nombre").ToString))
+                params.Add(New ReportParameter("EnviarA", DtMovimientos(0)("Mail").ToString))
+                params.Add(New ReportParameter("Entrega", DtMovimientos(0)("Entrega").ToString))
+                params.Add(New ReportParameter("FechaImpresion", DateTime.Now.ToString("dd/MM/yyyy")))
+                params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa))
+
+                ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/DevolucionCliente.rdlc", DtMovimientos, params, String.Format("Devolucion del Cliente - {0}", Folio.ToString), RDSName:="DsInventarios")
+                'End If
 
         End Select
 

Empresas/Grales/Formatos/CartaPorte.rdlc

@@ -460,7 +460,7 @@
         </Paragraphs>
         <rd:DefaultName>Textbox1</rd:DefaultName>
         <Top>0.9533cm</Top>
-        <Left>0.21008cm</Left>
+        <Left>0.23022cm</Left>
         <Height>0.66127cm</Height>
         <Width>9.36417cm</Width>
         <ZIndex>2</ZIndex>

Inventarios/TraspasoAlmacen.aspx.vb

@@ -657,7 +657,7 @@ Partial Class Inventarios_TraspasoAlmacen
                 Exit Sub
             End If
 
-            If DdlChofer.SelectedValue.ToEntero <= 0 Then
+            If DdlChofer.SelectedValue.ToEntero <= 0 And UsuarioActual.CveEmpresa.Contiene(119) Then
                 Alert("Debe seleccionar un Chofer", TipoMensaje.MsgAdvertencia)
                 RegistraScript("playsonidito(''142608__autistic-lucario__error.wav'')")
                 If ChkTransitorio.Checked Then RegistraScript("$('#DivTransitorio').show(200);")