-- cambios en contabilidad, partes quitar la obtencion de cvecuenta

Contabilidad/RegPrePolizaS.aspx.vb

@@ -388,14 +388,23 @@ Partial Class ContabilidadC_RegPrePolizaS
                     LnkComplementoPago.Visible = True
                 End If
 
-                If dr("IdPoliza").ToString.ToEntero > 0 Then
-                    HplContabilizada.NavigateUrl = String.Format("RegPoliza.aspx?IdPoliza={0}", dr("IdPoliza"))
-                    divContabilziada.Visible = True
-                ElseIf TxtTotalCargos.Text.ToDouble = TxtTotalAbonos.Text.ToDouble Then
-                    'sino está contabilizada, se activa el botón
-                    BtnContabilizar.Visible = True
-                End If
-
+                If UsuarioActual.Empresa.TipoContabilizacion = 1 Then
+                    If dr("FolioPoliza").ToString.ToEntero > 0 Then
+                        divContabilizada.Visible = True
+                        LblFolio.Text = dr("FolioPoliza").ToString
+                    End If
+                Else
+                    If dr("IdPoliza").ToString.ToEntero > 0 Then
+                        HplContabilizada.NavigateUrl = String.Format("RegPoliza.aspx?IdPoliza={0}", dr("IdPoliza"))
+                        divContabilizada.Visible = True
+                    ElseIf TxtTotalCargos.Text.ToDouble = TxtTotalAbonos.Text.ToDouble Then
+                        'sino está contabilizada, se activa el botón
+                        BtnContabilizar.Visible = True
+                    End If
+                End If
+
+
+
                 divDatosPrincipales.Visible = False
                 divObservaciones.Visible = False
                 UPMovs.Visible = False