Merge branch 'master' of http://oirigoyen@192.168.10.111:8383/SIG.git

Bancos/CargarConciliacionesBancarias.aspx.vb

@@ -77,7 +77,7 @@ Partial Class Bancos_CargarConciliacionesBancarias
     Protected Sub BtnCargaExcel_Click(sender As Object, e As EventArgs)
         If TxtExcel.getfiles().Archivos.Count > 0 Then
             Dim file As Archivo = TxtExcel.getfiles().Archivos(0)
-            Dim Directorio As String = ModExtensiones.DirectorioBaseEmpresas & file.patch
+            Dim Directorio As String = AppDomain.CurrentDomain.BaseDirectory & file.patch
             Dim Tipo As String = If(file.Extencion.Contiene("xlsx", "xlsx", "xlsm", "xlsb"), "EXCEL", "CSV")
             CargaExcel(Directorio, file.filename, Tipo)
         Else

Bancos/ConciliacionesBancarias.aspx.vb

@@ -644,9 +644,12 @@ Partial Class Bancos_ConciliacionesBancariasaspx
             ObjConta.Dispose()
         End If
 
+        Dim Filtros As String = String.Format("<b>Cuenta: </b>{0}&emsp;<b>Conciliado: </b>{1}&emsp;<b>Fecha Inicial: </b>{2}&emsp;<b>Fecha Final: </b>{3}", DdlCuenta.SelectedItem.Text, DdlConciliado.SelectedItem.Text, txtFechaI.Text, txtFechaF.Text)
+
         params.Add(New ReportParameter("SaldoFinalContabilidad", (SaldoFinalContabilidad.FormatoNumero)))
         params.Add(New ReportParameter("SaldoFinalContabilidadComplementaria", (SaldoFinalContabilidadComplementaria.FormatoNumero)))
         params.Add(New ReportParameter("Diferencia", (SaldoFinalLibros - SaldoFinalContabilidad).FormatoNumero))
+        params.Add(New ReportParameter("Filtros", Filtros))
 
         If Imagen.Exists Then
             params.Add(New ReportParameter("LogoPath", logouri))

Bancos/IE.aspx.vb

@@ -941,7 +941,8 @@ Partial Class Bancos_IE
                     HplListaProveedores.NavigateUrl = $"/Compras/PopUpVerFactura.aspx?P={StrEncript}"
 
                 Else
-                    HplListaProveedores.NavigateUrl = String.Format("/Bancos/Reportes.aspx?Opcion=ImprimeMov&CveIE={0}", ObjIE.CveIE)
+                    Dim StrEncript As String = Encripta($"OP=ImprimeMov&CveIE={ObjIE.CveIE}")
+                    HplListaProveedores.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", StrEncript)
                 End If
                 If CveIEDeposito2 > 0 Then
                     divDepositado.Visible = True
@@ -2492,7 +2493,7 @@ Partial Class Bancos_IE
 
                         'GUARDA COMPROBANTE
                         If filemove <> "" Then
-                            filemove.FilesMove(CveIE.ToString, String.Format("Empresas\{0}\IE", UsuarioActual.CveEmpresa, UsuarioActual.Empresa.Ruta))
+                            filemove.FilesMove(CveIE.ToString, String.Format("Empresas\{0}\IE", UsuarioActual.CveEmpresa))
                         End If
 
                         'GUARDA PREPOLIZAS DETALLE [PRIMERO SON LOS CASOS ESPECIALES, AL FINAL (ELSE) LOS CASOS NORMALES]   --REEMPLAZA IFs

Bancos/PopUpBuscarIE.aspx.vb

@@ -67,23 +67,29 @@ Partial Class Bancos_PopUpBuscarIE
 
 
     Protected Sub BtnBuscar_Click(sender As Object, e As System.EventArgs) Handles BtnBuscar.Click
-        Dim ObjBancosIE As New ClsBancos
         Dim Folio As String = "-1"
         If TxtFolio.Text <> "" Then Folio = String.Format("%{0}%", TxtFolio.Text.Trim)
 
-        If ObjBancosIE.GetBancosIE(-1, DdlBanco.SelectedValue.ToEntero, DdlCuenta.SelectedValue.ToEntero, "-1", -1, Folio, "-1", -1, -1, -1, -1, -1, txtFechaI.Text.ToDate, MaxFecha.ToShortDateString.ToDate, MinFecha, MaxFecha, MinFecha, MaxFecha, -1, -1, UsuarioActual.CveEmpresa) Then
-            DtDatos = ObjBancosIE.DtResultados 'If(TxtFolio.Text <> "", ObjBancosIE.DtResultados.FiltraParametros(String.Format("Folio Like '{0}'", TxtFolio.Text)), ObjBancosIE.DtResultados)
+        If ValidarFiltrosSeleccionado() Then
+
+            Dim ObjBancosIE As New ClsBancos
+            If ObjBancosIE.GetBancosIE(-1, DdlBanco.SelectedValue.ToEntero, DdlCuenta.SelectedValue.ToEntero, "-1", -1, Folio, "-1", -1, -1, -1, -1, -1, txtFechaI.Text.ToDate,
+                                   MaxFecha.ToShortDateString.ToDate, MinFecha, MaxFecha, MinFecha, MaxFecha, -1, -1, UsuarioActual.CveEmpresa, TopSelect:=100) Then
+                DtDatos = ObjBancosIE.DtResultados 'If(TxtFolio.Text <> "", ObjBancosIE.DtResultados.FiltraParametros(String.Format("Folio Like '{0}'", TxtFolio.Text)), ObjBancosIE.DtResultados)
+            Else
+                Alert("Ocurrió un error al consultar los Anticipos", TipoMensaje.MsgError)
+                DtDatos = Nothing
+            End If
+
+            ObjBancosIE.Dispose()
+
+            If DtDatos IsNot Nothing Then
+                GvDatos.DataSource = DtDatos
+                GvDatos.DataBind()
+                UpDatos.Update()
+            End If
         Else
-            Alert("Ocurrió un error al consultar los Anticipos", TipoMensaje.MsgError)
-            DtDatos = Nothing
-        End If
-
-        ObjBancosIE.Dispose()
-
-        If DtDatos IsNot Nothing Then
-            GvDatos.DataSource = DtDatos
-            GvDatos.DataBind()
-            UpDatos.Update()
+            Alert("Asigne un valor a cualquiera de los filtros", TipoMensaje.MsgAdvertencia)
         End If
     End Sub
 
@@ -103,4 +109,11 @@ Partial Class Bancos_PopUpBuscarIE
         End If
     End Sub
 
+    Private Function ValidarFiltrosSeleccionado() As Boolean
+        If DdlBanco.SelectedValue.ToEntero > 0 Then Return True
+        If DdlCuenta.SelectedValue.ToEntero > 0 Then Return True
+        If TxtFolio.Text.Length > 0 Then Return True
+        Return False
+    End Function
+
 End Class

Bancos/ProveedoresAbonar.aspx.vb

@@ -2292,7 +2292,7 @@ Partial Class Bancos_ProveedoresAbonar
                         'If Archivo.Exists Then
                         Msg.AppendFormat("<li> <a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir movimiento</a></li> ", Encripta(String.Format("OP=IECHEQUE&CVEIE={0}", CveIE)))
                         'End If
-                        Msg.AppendFormat("<li><a class=""Texto"" target='_blank' href=""/Bancos/Reportes.aspx?Opcion=ImprimeMov&CveIE={0}"">Listado</a></li>", CveIE)
+                        Msg.AppendFormat("<li><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Listado</a></li>", Encripta(String.Format("Opcion=ImprimeMov&CveIE={0}", CveIE)))
                         If IDPoliza > 0 Then Msg.AppendFormat("<li><a class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Póliza</a></li>", IDPoliza)
 
                         Dim Mensaje As String = String.Format("<br />El Documento se generó correctamente.<br /><br /><br />Descargas:<ul>{0}</ul>", Msg.ToString)