Merge en IE

Bancos/IE.aspx.vb

@@ -423,7 +423,19 @@ Partial Class Bancos_IE
         End Set
 
     End Property
+    Private Property PermisoComplementoVigente As Boolean
+        Get
+            If ViewState("PermisoComplementoVigente") Is Nothing Then
+                Return False
+            Else
+                Return CBool(ViewState("PermisoComplementoVigente"))
+            End If
+        End Get
+        Set(value As Boolean)
+            ViewState("PermisoComplementoVigente") = value
+        End Set
 
+    End Property
 
 
 #Region "CANCELACIÓN COMPLEMENTO MODAL V2"
@@ -689,7 +701,7 @@ Partial Class Bancos_IE
                 LnkAjustarMovimiento.Visible = True
             End If
 
-            If UsuarioActual.CveEmpresa = 72 OrElse Not VerificaComplementos(True) Then 'No entrara para la empresa 72 porque tarda mucho el load
+            If Not VerificaComplementos(True) Then
 
                 LnkCancelarComplemento.Visible = False
                 LnkCancelarComplementoImporte.Visible = False
@@ -1090,6 +1102,9 @@ Partial Class Bancos_IE
 
                 If (Not VerificaComplementos(True)) And UsuarioActual.TienePermisoProceso(99) And ObjIE.CveEstatusIE <> 2 Then
                     BtnEditar.Visible = True
+                    PermisoComplementoVigente = True
+                Else
+                    BtnEditar.Visible = True
                 End If
 
                 UpGuardar.Update()
@@ -3049,7 +3064,7 @@ Partial Class Bancos_IE
 
                         'El movimiento 1 es el de Venta
                         'Conta SIG
-                        If UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso MsgError = "" Then
+                        If UsuarioActual.Empresa.Funcionalidad(200) = "1" And MsgError = "" And UsuarioActual.Empresa.UsaContabilidadSIG Then
                             If CveCuentaBeneficiario > 0 And CveCuentaConta > 0 Then
                                 If ObjMov.ContabilizarPrePolizaSIG(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
                                     IDPoliza = ObjMov.ContaIdPoliza
@@ -3067,7 +3082,7 @@ Partial Class Bancos_IE
                         End If
 
                         'Conta ContPAQ
-                        If UsuarioActual.Empresa.Funcionalidad(200) = "1" AndAlso MsgError = "" Then
+                        If UsuarioActual.Empresa.Funcionalidad(200) = "1" And MsgError = "" And UsuarioActual.Empresa.UsaContabilidad Then
                             If IDCtaBeneficiario > 0 And IDCtaContable > 0 Then
                                 If ObjMov.ContabilizarPrePoliza(CvePrePoliza, UsuarioActual.CveUsuario, UsuarioActual.Empresa) Then
                                     IDPoliza = ObjMov.ContaIdPoliza
@@ -5598,14 +5613,14 @@ Partial Class Bancos_IE
         BtnEditar.Visible = False
         UpGuardar.Update()
 
-        ControlesEdicion(True)
+        ControlesEdicion()
 
     End Sub
 
-    Private Sub ControlesEdicion(mostrar As Boolean)
+    Private Sub ControlesEdicion()
 
 
-        If mostrar Then
+        If PermisoComplementoVigente Then
 
             DdlTipoTransaccion.Enabled = True
             LblCuenta.Visible = False
@@ -5617,12 +5632,11 @@ Partial Class Bancos_IE
 
             CargaCuentasDepositoClientes()
 
+        Else
+            TxtFolio.Enabled = True
+            TxtObservaciones.Enabled = True
 
-
-
-
-
-
+            UpDatos.Update()
         End If
 
     End Sub

CxC/RepCxC.aspx.vb

@@ -694,7 +694,7 @@ Partial Class RepCxC
         Dim Registro = If(DdlUsuario.SelectedValue = "-1", "", $"&emsp;<b>Registró:</b>&nbsp;{DdlUsuario.SelectedItem.Text}")
         Dim Responsable = If(DdlResponsable.SelectedValue = "-1", "", $"&emsp;<b>Responsable:</b>&nbsp;{DdlResponsable.SelectedItem.Text}")
         Dim EstatusCob = If(DdlCobranzaEstatus.SelectedValue = "-1", "", $"&emsp;<b>Estatus Cobranza:</b>&nbsp;{DdlCobranzaEstatus.SelectedItem.Text}")
-        'Dim CorteA As String = If(txtCorteA.Text = "31/12/2018", "", $"&emsp;<b>Corte A:</b>&nbsp;{txtCorteA.Text}")
+        Dim CorteA As String = If(txtCorteA.Text = "31/12/2019", "", $"&emsp;<b>Corte A:</b>&nbsp;{txtCorteA.Text}")
         Dim EstatusCli = If(DdlEstatusCliente.SelectedValue = "-1", "", $"&emsp;<b>Clientes:</b>&nbsp;{DdlEstatusCliente.SelectedItem.Text}")
         Dim ClasificacionCli = If(DdlClienteClasificacion.SelectedValue = "-1", "", $"&emsp;<b>Clasificación Cliente:</b>&nbsp;{DdlClienteClasificacion.SelectedItem.Text}")
 
@@ -725,7 +725,7 @@ Partial Class RepCxC
             params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
             params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
             params.Add(New ReportParameter("Grupo", DdlGrupo.SelectedItem.Text))
-            params.Add(New ReportParameter("AgrupadoPor", $"{Cliente}{Sucursal}{Grupo}{Vendedor}{FechaIn}{FechaFn}{Registro}{Responsable}{TipoDocto}{EstatusCob}{FVI}{FVF}{EstatusCli}{ClasificacionCli}"))
+            params.Add(New ReportParameter("AgrupadoPor", $"{Cliente}{Sucursal}{Grupo}{Vendedor}{FechaIn}{FechaFn}{Registro}{Responsable}{TipoDocto}{EstatusCob}{FVI}{FVF}{EstatusCli}{ClasificacionCli}{CorteA}"))
             params.Add(New ReportParameter("TituloReporte", TituloReporte))
             params.Add(New ReportParameter("CantColumnas", CantidadColumnas.ToString))
 

CxC/RepCxCDetalle.aspx.vb

@@ -833,7 +833,7 @@ Partial Class RepCxCDetalle
         Dim Registro = If(DdlUsuario.SelectedValue = "-1", "", $"&emsp;<b>Registró:</b>&nbsp;{DdlUsuario.SelectedItem.Text}")
         Dim Responsable = If(DdlResponsable.SelectedValue = "-1", "", $"&emsp;<b>Responsable:</b>&nbsp;{DdlResponsable.SelectedItem.Text}")
         Dim EstatusCob = If(DdlCobranzaEstatusFiltro.SelectedValue = "-1", "", $"&emsp;<b>Estatus Cobranza:</b>&nbsp;{DdlCobranzaEstatusFiltro.SelectedItem.Text}")
-        'Dim CorteA As String = If(txtCorteA.Text = "31/12/2018", "", $"&emsp;<b>Corte A:</b>&nbsp;{txtCorteA.Text}")
+        Dim CorteA As String = If(txtCorteA.Text = "31/12/2019", "", $"&emsp;<b>Corte A:</b>&nbsp;{txtCorteA.Text}")
         Dim ClasificacionCli = If(DdlClienteClasificacion.SelectedValue = "-1", "", $"&emsp;<b>Clasificación Cliente:</b>&nbsp;{DdlClienteClasificacion.SelectedItem.Text}")
 
         Dim TituloReporte As String = "REPORTE DE CUENTAS POR COBRAR DEL CLIENTE CON DETALLE"
@@ -850,7 +850,7 @@ Partial Class RepCxCDetalle
         params.Add(New ReportParameter("FechaFin", FechaF))
         params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
         params.Add(New ReportParameter("FechaImpresion", Now.ToDateTime.ToShortDateString))
-        params.Add(New ReportParameter("AgrupadoPor", $"{Cliente}{Sucursal}{Grupo}{Vendedor}{FechaIn}{FechaFn}{Registro}{Responsable}{TipoDocto}{EstatusCob}{FVI}{FVF}{ClasificacionCli}"))
+        params.Add(New ReportParameter("AgrupadoPor", $"{Cliente}{Sucursal}{Grupo}{Vendedor}{FechaIn}{FechaFn}{Registro}{Responsable}{TipoDocto}{EstatusCob}{FVI}{FVF}{ClasificacionCli}{CorteA}"))
         params.Add(New ReportParameter("TituloReporte", TituloReporte))
 
         If Imagen.Exists Then