subriendo cambios en traspasos

Compras/PopUpVerFactura.aspx.vb

@@ -199,10 +199,10 @@ Partial Class PopUpVerFactura
 
 
         End If
-    End Sub
-
+    End Sub
+
 #Region "U S U A R I O - T O K E N"
-
+
     Private Function ValidaUsuarioSistema(CveEmpresa As Integer, Optional CveUsuario As Integer = 100) As Usuario
 
         Dim UsuarioToken As Usuario = Nothing
@@ -236,9 +236,9 @@ Partial Class PopUpVerFactura
             UsuarioToken.Empresa = ObjEmpresa.Empresa
         End If
         ObjEmpresa.Dispose()
-    End Sub
+    End Sub
 #End Region
-
+
     Private Sub SeleccionaReporte(UrlParametros As Hashtable)
 
         'DESCARGA COMPROBANTE
@@ -493,10 +493,10 @@ Partial Class PopUpVerFactura
             URLParametros.Add(P2(0).ToString.ToUpper, P2(1))
         Next
         Return URLParametros
-    End Function
-
+    End Function
+
 #Region "OP = CORT - IMPRIMIR CORTE"
-
+
     Private Sub ImprimeCorte(CveCorte As Integer, Formato As String)
         Dim ObjVenta As New ClsVentas
         Dim ObjPuntoVenta As New ClsPuntoVenta
@@ -541,10 +541,10 @@ Partial Class PopUpVerFactura
             ImprimirPDF("Empresas/Grales/Formatos/RepCortes.rdlc", lrds, params, "ReporteCortes", Formato)
         End If
 
-    End Sub
-
+    End Sub
+
 #End Region
-
+
 #Region "   OP = FACTURA - IMPRIME COMPRA"
     Private Sub DescargaComprobante(Parametros As Hashtable)
         If Parametros("COMPROBANTE") IsNot Nothing Then
@@ -583,9 +583,9 @@ Partial Class PopUpVerFactura
             End If
             Archivo = Nothing
         End If
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "OP DesXmlVIA- DESCARGAR XML DE VIATICOS"
     Private Sub DescargaXMLViaticos(Parametros As Hashtable)
         If Parametros("SERIEFOLIO") IsNot Nothing AndAlso Parametros("SERIEFOLIO").ToString <> "" Then
@@ -605,10 +605,10 @@ Partial Class PopUpVerFactura
             End If
             Archivo = Nothing
         End If
-    End Sub
-
+    End Sub
+
 #End Region
-
+
 #Region "OP DesXmlNom- DESCARGAR XML DE UTILIDADES"
     Private Sub DescargaXMLUtilidades(Parametros As Hashtable)
         If Parametros("SERIEFOLIO") IsNot Nothing AndAlso Parametros("SERIEFOLIO").ToString <> "" Then
@@ -628,9 +628,9 @@ Partial Class PopUpVerFactura
             End If
             Archivo = Nothing
         End If
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "OP = 'CONG' - IMPRIME GASTO DE CONTRATO"
     Private Sub ImprimeGastoContrato(CveContrato As Integer, CveContratoGasto As Integer)
         Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
@@ -672,10 +672,10 @@ Partial Class PopUpVerFactura
             params.Add(New ReportParameter("LogoPath", ""))
         End If
         ImprimirPDF("Empresas/Grales/Formatos/ContratoGasto.rdlc", dt, params, $"{Nombre}-Gastos", Formato:="PDF")
-    End Sub
+    End Sub
 #End Region
-
-
+
+
 #Region "OP = 'CIC' - IMPRIME FORMATO CICOVISA"
     Private Sub ImprimeFormatoCICOVISA(CveVenta As Integer)
         If CveVenta > 0 Then
@@ -712,10 +712,10 @@ Partial Class PopUpVerFactura
                 ImprimirPDF("Empresas/Grales/Formatos/Cicovisa.rdlc", Dt, params, String.Format("Formato Cicovisa -{0}", Now.ToDateTime.ToShortDateString))
             End If
         End If
-    End Sub
-
+    End Sub
+
 #End Region
-
+
 #Region "OP = 'CARPO' - IMPRIME FORMATO CARTA PORTE"
     Private Sub ImprimeFormatoCartaPorte(CveMovimiento As Integer)
         If CveMovimiento > 0 Then
@@ -826,7 +826,7 @@ Partial Class PopUpVerFactura
                 params.Add(New ReportParameter("Chofer", Chofer))
                 params.Add(New ReportParameter("Placa", Placa))
                 params.Add(New ReportParameter("Recibio", Recibio))
-                params.Add(New ReportParameter("FechaEntrega", FechaEntrega))
+                params.Add(New ReportParameter("FechaEntrega", FechaEntrega.ToString()))
                 params.Add(New ReportParameter("EspecifUnidad", EspecifUnidad))
                 params.Add(New ReportParameter("DireccionOrigen", SBDireccionO.ToString))
                 params.Add(New ReportParameter("DireccionDestino", SBDireccionD.ToString))
@@ -840,12 +840,12 @@ Partial Class PopUpVerFactura
                 ImprimirPDF("Empresas/Grales/Formatos/CartaPorte.rdlc", Dt, params, String.Format("Carta Porte -{0}", Now.ToDateTime.ToShortDateString))
             End If
         End If
-    End Sub
-
+    End Sub
+
 #End Region
-
+
 #Region "OP = 'DesXmlTra' - IMPRIME XML TRASLADO"
-
+
     Private Sub DescargaXMLTraslado(Parametros As Hashtable)
         If Parametros("CVEMOVIMIENTO") IsNot Nothing AndAlso Parametros("CVEMOVIMIENTO").ToString.ToEntero > 0 Then
             Dim Exten As String = If(Parametros("EXT").ToString.ToLower = "xml", "xml", "pdf")
@@ -864,12 +864,12 @@ Partial Class PopUpVerFactura
             End If
             Archivo = Nothing
         End If
-    End Sub
-
+    End Sub
+
 #End Region
-
+
 #Region "OP = 'DesPdfTra' - IMPRIME PDF TRASLADO"
-
+
     Private Sub DescargaPDFTraslado(Parametros As Hashtable)
         If Parametros("CVEMOVIMIENTO") IsNot Nothing AndAlso Parametros("CVEMOVIMIENTO").ToString.ToEntero > 0 Then
             Dim Exten As String = If(Parametros("EXT").ToString.ToLower = "xml", "xml", "pdf")
@@ -888,10 +888,10 @@ Partial Class PopUpVerFactura
             End If
             Archivo = Nothing
         End If
-    End Sub
-
+    End Sub
+
 #End Region
-
+
 #Region "   OP = 'Vta,Fact' - IMPRIME PDF VENTAS"
     Private Sub DescargaFacturaVenta(Parametros As Hashtable)
         If Parametros("CVEVENTA") IsNot Nothing AndAlso Parametros("CVEVENTA").ToString.ToEntero > 0 Then
@@ -1198,11 +1198,11 @@ Partial Class PopUpVerFactura
             End If
         End If
 
-    End Sub
+    End Sub
 #End Region
-
+
 #Region " - OP = 'Alm' - REPORTE ENTRADAS ALMACEN "
-
+
     Private Sub CargaMovimientosAlmacen(CveMovimiento As Integer)
         Dim ObjInventarios As New ClsInventarios
 
@@ -2465,19 +2465,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))
@@ -2654,36 +2654,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))
@@ -3158,11 +3158,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"))
@@ -3198,10 +3198,10 @@ Partial Class PopUpVerFactura
                 ImprimirbytesPDF(reporte, $"OrdenCompra-{Folio.ToString}")
             End If
         End If
-    End Sub
-
+    End Sub
+
 #End Region
-
+
 #Region "OP = 'VAL' - IMPRIME PDF VAL"
     Private Sub GenerarPDFVale(CveVale As Integer)
 
@@ -3231,9 +3231,9 @@ Partial Class PopUpVerFactura
             'End If
         End If
         ObjAF.Dispose()
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "OP = 'OS' - IMPRIMIR PDF OS"
     Private Sub GenerarPDFOS(CveOS As Integer)
         Dim ObjOS As New ClsOS()
@@ -3352,9 +3352,9 @@ Partial Class PopUpVerFactura
         TmpDTMaterialesOS.Columns.Add("Clasificacion", GetType(String))
         TmpDTMaterialesOS.Columns.Add("PS", GetType(String))
         TmpDTMaterialesOS.Columns.Add("UM", GetType(String))
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "OP = 'OI' - Crear Archivo "
     Private Sub CrearArchivo(Archivo As String)
         Dim ObjEventos As New ClsOIEventos
@@ -3363,11 +3363,11 @@ Partial Class PopUpVerFactura
         Dim file As System.IO.FileInfo = New System.IO.FileInfo(path) '-- if the file exists on the server
 
         DescargarArchivo(file)
-    End Sub
-
-
+    End Sub
+
+
 #End Region
-
+
 #Region "OP = 'Contratos' - Crear Archivo "
     Private Sub CrearArchivoContratos(Archivo As String)
 
@@ -3375,11 +3375,11 @@ Partial Class PopUpVerFactura
         Dim file As System.IO.FileInfo = New System.IO.FileInfo(Archivo) '-- if the file exists on the server
 
         DescargarArchivo(file)
-    End Sub
-
-
+    End Sub
+
+
 #End Region
-
+
 #Region "OP = 'OI' - Descargar Archivo "
     Private Sub DescargarArchivo(File As System.IO.FileInfo)
         If File.Exists Then 'set appropriate headers
@@ -3409,11 +3409,11 @@ Partial Class PopUpVerFactura
             Alert("Ocurrio un error al descargar el archivo", TipoMensaje.MsgAdvertencia, "window.close()")
 
         End If 'nothing in the URL as HTTP GET
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "OP = 'AFR' - AF"
-
+
     Private Sub ImprimirPDFAFR(CveAFR As Integer, Tipo As Integer)
         Dim ObjAF As New ClsAF
         'Dim ObjSubProyecto As New ClsSubProyectos
@@ -3600,9 +3600,9 @@ Partial Class PopUpVerFactura
 
         ImprimirPDF(UsuarioActual.Empresa.Ruta & "Formatos/ResguardoAF.rdlc", dtVC, params, NomArchivo)
 
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "OP = 'POL' "
     Private Sub ImprimirPolizaPDF(IdPoliza As Integer)
         'Dim ObjConta As New ClsContabilidad
@@ -3641,9 +3641,9 @@ Partial Class PopUpVerFactura
 
         ObjPoliza.Dispose()
 
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "OP = 'CAN' - CANCELACION"
     Public Sub ImprimeCancelacion(CveVenta As Integer)
         Dim ObjVentas As New ClsVentas
@@ -3668,9 +3668,9 @@ Partial Class PopUpVerFactura
 
         End If
         ObjVentas.Dispose()
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "OP = 'DC' - DEPOSITOS CAJA"
     Private Sub CargaDepositosCaja(CveIE As Integer, CuentaCaja As String, CuentaDeposito As String)
         Dim Archivo As New System.IO.FileInfo(String.Format("{0}Formatos/DepositoCaja.rdlc", UsuarioActual.Empresa.Ruta))
@@ -3697,11 +3697,11 @@ Partial Class PopUpVerFactura
 
         ObjIE.Dispose()
 
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "I E   C H E Q U E S"
-
+
     Private Sub ImprimirIE(CveIE As Integer, CveEmpresa As Integer)
         Dim CveTipoTransaccion = -1
         Dim ObjIE As New ClsBancos()
@@ -4108,21 +4108,21 @@ Partial Class PopUpVerFactura
         ParamComprobacion.Dispose()
 
         ObjIE.Dispose()
-    End Sub
-
+    End Sub
+
 #End Region
-
+
 #Region "OP = RECIBO DE PAGOS"
     Private Sub ImprimirReciboDePagos(CveIE As Integer, CveVenta As Integer)
 
         PDFReciboDePagos(CveVenta, CveIE, -1)
 
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "OP = VTA - PyME"
-
-    ' 04/05/2018 - Pruebas de impresion de factura PyME
+
+    ' 04/05/2018 - Pruebas de impresion de factura PyME
     Private Sub GeneraPDFVtaPyMe(Venta As Modelos.Factura, Optional Formato As String = "PDF")
         Dim Directorio1 As String = String.Format("{0}Empresas\{1}\Formatos\Factura.mrt", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa)
         Dim File As FileInfo = New FileInfo(Directorio1)
@@ -4177,9 +4177,9 @@ Partial Class PopUpVerFactura
         Else
             RegistraScript("alert('No hay un formato de factura predefinido,favor de comunicar a soporte tecnico')")
         End If
-    End Sub
+    End Sub
 #End Region
-
+
 #Region "OP = ENTREGAS - Entregas por realizar"
     Public Sub ImprimeEntregasPorRealizar(CveAsignacionEntrega As Long, pUsuarioEntregar As String)
         Dim Correcto As Boolean = False
@@ -4199,7 +4199,7 @@ Partial Class PopUpVerFactura
             ImprimirPDF($"Empresas/{UsuarioActual.CveEmpresa}/Formatos/EntregasPorRealizar.rdlc", DtPaqueteriasGuias, RepParams, "Entregas por realizar", "PDF", RDSName:="DsInventarios")
         End If
 
-    End Sub
+    End Sub
 #End Region
-
+
 End Class

Empresas/Grales/Formatos/CartaPorte.rdlc

@@ -769,10 +769,11 @@
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
                   <FontSize>8pt</FontSize>
+                  <Format>dd/MM/yyyy</Format>
                 </Style>
               </TextRun>
               <TextRun>
-                <Value>=Parameters!FechaEntrega.Value</Value>
+                <Value>=Left(Parameters!FechaEntrega.Value,10)</Value>
                 <Style>
                   <FontFamily>Myriad Pro</FontFamily>
                   <FontSize>8pt</FontSize>
@@ -1869,7 +1870,7 @@
     <Height>8.91698in</Height>
     <Style />
   </Body>
-  <Width>7.657in</Width>
+  <Width>7.66009in</Width>
   <Page>
     <PageHeader>
       <Height>3.39287cm</Height>