-

Compras/PopUpVerFactura.aspx.vb

@@ -399,7 +399,7 @@ Partial Class PopUpVerFactura
 
             Dim archivoBinario As Byte() = StreamPDF(rutardlc, lrds, params, "Inventario", formato)
             Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail)
-            LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.ArchivoBinario = archivoBinario, .NombreArchivo = String.Format("Inventario {0}.pdf", fechas)})
+            LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.archivoBinario = archivoBinario, .NombreArchivo = String.Format("Inventario {0}.pdf", fechas)})
 
 
             Dim Mail As New ClsSisMail()
@@ -1610,7 +1610,9 @@ Partial Class PopUpVerFactura
             If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
                 DtMetodosPago = DtCortesVentasResumen.FiltraParametros("MetodoPago <> 'Crédito'")
             End If
+
             Dim DirFormato As String = "Empresas/Grales/Formatos/RepCortes.rdlc"
+
             If File.Exists(UsuarioActual.Empresa.Ruta + "\Formatos\RepCortes.rdlc") Then
                 DirFormato = UsuarioActual.Empresa.Ruta + "\Formatos\RepCortes.rdlc"
             End If
@@ -5380,6 +5382,15 @@ Partial Class PopUpVerFactura
         If ObjIE.GetBancosIEMovimientosDepositos(CveIE, UsuarioActual.CveEmpresa) Then
             Tabla = ObjIE.DtResultados.Copy()
         End If
+
+        Dim TipoTransaccion As String = ""
+        Dim Observaciones As String = ""
+
+        If ObjIE.GetBancosIE(CveIE, UsuarioActual.CveEmpresa) Then
+            TipoTransaccion = ObjIE.TipoTransaccion
+            Observaciones = ObjIE.Observaciones
+        End If
+
         ObjIE.Dispose()
 
         If Tabla IsNot Nothing AndAlso Tabla.Rows.Count > 0 Then
@@ -5390,6 +5401,8 @@ Partial Class PopUpVerFactura
             params.Add(New ReportParameter("CuentaCaja", CuentaCaja))
             params.Add(New ReportParameter("CuentaDeposito", CuentaDeposito))
             params.Add(New ReportParameter("TipoPago", TipoPago))
+            params.Add(New ReportParameter("TipoTransaccion", TipoTransaccion))
+            params.Add(New ReportParameter("Observaciones", Observaciones))
 
             If Archivo.Exists Then
                 params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
@@ -5760,7 +5773,7 @@ Partial Class PopUpVerFactura
                         dtMovs = ObjIE.DtResultados.FiltraParametros("CveConceptoContable IN (17,2,308,309,312,292 )")
 
                         If dtMovs IsNot Nothing AndAlso dtMovs.Rows.Count > 0 Then
-                            CvePrePoliza = dtMovs.Rows(0)("CVePrePoliza").ToString.ToEntero
+                            CvePrePoliza = dtMovs.Rows(0)("CvePrePoliza").ToString.ToEntero
 
                             If Not UsuarioActual.CveEmpresa.Contiene(13, 83) Then
                                 'CONVIERTO A PESOS CUANDO SE PAGA CON PESOS FACTURAS DE DOLARES