-

Contabilidad/RegPrePoliza.aspx.vb

@@ -215,7 +215,7 @@ Partial Class ContabilidadC_RegPrePoliza
         If Not Page.IsPostBack Then
             Tick = DateTime.Now.Ticks.ToString()
 
-            If UsuarioActual.Empresa.TipoContabilizacion = 1 OrElse UsuarioActual.Empresa.TipoContabilidad = 1 Then
+            If UsuarioActual.Empresa.TipoContabilizacion = 1 OrElse UsuarioActual.Empresa.TipoContabilidad = 1 OrElse UsuarioActual.CveEmpresa = 119 Then
                 Response.Redirect(Request.Url.PathAndQuery.Replace("RegPrePoliza", "RegPrePolizaS"))
             End If
 

Contabilidad/RegPrePolizaS.aspx.vb

@@ -310,9 +310,6 @@ Partial Class ContabilidadC_RegPrePolizaS
 
                 End If
 
-
-
-
                 Exit Sub
 
             ElseIf Request("CvePrePolizaOrigen") IsNot Nothing AndAlso IsNumeric(Request("CvePrePolizaOrigen")) AndAlso Request("CvePrePolizaOrigen").ToEntero > 0 Then
@@ -450,7 +447,6 @@ Partial Class ContabilidadC_RegPrePolizaS
         If ObjContabilidad.GetPrePoliza(CvePrePoliza, UsuarioActual.CveEmpresa) Then
             Dim dr As DataRow = ObjContabilidad.DtResultados.FiltroPrimero("")
             If dr IsNot Nothing Then
-                'DivAgregarConceptos.Visible = False
                 DdlTipoPoliza.SelectedValue = dr("CveTipoPoliza")
                 TxtFechaDocumento.Text = dr("Fecha")
                 TxtConcepto.Text = dr("Concepto")
@@ -461,7 +457,6 @@ Partial Class ContabilidadC_RegPrePolizaS
                 TxtFolio.Text = dr("FolioPoliza").ToString
                 TxtUsuarioElaboro.Text = dr("Usuario").ToString
                 TxtFechaelaboracion.Text = dr("FechaIng").ToString.ToDate.ToString("dd/MM/yyyy")
-                '  TxtEstatus.Text = If(Boolean.Parse(dr("Estatus").ToString), "Activa", "Inactiva")
                 CvePlantillaPoliza = dr("CvePlantillaPoliza").ToString
 
                 If UsuarioActual.CveRol = 1 Then
@@ -469,7 +464,6 @@ Partial Class ContabilidadC_RegPrePolizaS
                 End If
 
                 If UsuarioActual.CveRol = 1 OrElse UsuarioActual.TienePermisoProceso(221) Then
-                    'DivAgregarConceptos.Visible = True
                     LnkAddConcepto.Visible = True
                     CargaConceptos()
                     CargaSubProyectos()
@@ -518,52 +512,36 @@ Partial Class ContabilidadC_RegPrePolizaS
                     GvPrePoliza.Columns(7).Visible = True
                 End If
 
-                If DtMovimientos.FiltraParametros("CveConceptoContable IN (2,17)").Rows.Count > 0 Then
+                If DtMovimientos.FiltraParametros("CveConceptoContable IN (2,17,292,308)").Rows.Count > 0 Then
                     LnkComplementoPago.Visible = True
                 End If
 
-
                 If dr("FolioPoliza").ToString = "" OrElse dr("FolioPoliza").ToString = "0" Then
                     BtnContabilizar.Visible = True
                 End If
 
                 If UsuarioActual.Empresa.TipoContabilizacion = 1 Then
-                    If dr("FolioPoliza").ToString.ToEntero > 0 Then
+                    If dr("FolioPoliza").ToString.ToEntero > 0 AndAlso UsuarioActual.CveRol = 1 Then
                         divContabilizada.Visible = True
                         Folio = dr("FolioPoliza").ToString
-
                     End If
                 Else
-                    If dr("IdPoliza").ToString.ToEntero > 0 Then
+                    If dr("IdPoliza").ToString.ToEntero > 0 AndAlso UsuarioActual.CveRol = 1 Then
                         HplContabilizada.NavigateUrl = String.Format("RegPoliza.aspx?IdPoliza={0}", dr("IdPoliza"))
                         divContabilizada.Visible = True
                         IdPoliza = dr("IdPoliza").ToString.ToEntero
-                    ElseIf TxtTotalCargos.Text.ToDecimal = TxtTotalAbonos.Text.ToDecimal Then
-                        'sino está contabilizada, se activa el botón
-                        ' BtnContabilizar.Visible = True
                     End If
                 End If
 
-                'divDatosPrincipales.Visible = False
-                'divObservaciones.Visible = False
-
                 UpPrePoliza.Update()
-
                 RegistraScript("comparar();")
 
-                If Request("Tipo") IsNot Nothing AndAlso IsNumeric(Request("Tipo")) AndAlso Request("Tipo").ToEntero = 1 AndAlso UsuarioActual.CveUsuario <> 100 Then
-                    'For Each row As GridViewRow In GvPrePoliza.Rows
-                    '    row.FCTextBox("TxtCargo").Enabled = False
-                    '    row.FCTextBox("TxtAbono").Enabled = False
-                    'Next
-                End If
                 LnkExcel.Visible = False
                 LnkImprimirPDF.Visible = True
             Else
                 Alert("El documento solicitado no existe, favor de revisar su búsqueda.", TipoMensaje.MsgAdvertencia)
                 BtnEliminar.Visible = False
             End If
-
         End If
 
         ObjContabilidad.Dispose()