diff --git a/Contabilidad/PlantillasPolizasDetalle.aspx.vb b/Contabilidad/PlantillasPolizasDetalle.aspx.vb index f87298a0c..41359a5ee 100644 --- a/Contabilidad/PlantillasPolizasDetalle.aspx.vb +++ b/Contabilidad/PlantillasPolizasDetalle.aspx.vb @@ -138,7 +138,6 @@ Partial Class Contabilidad_PlantillasPolizasDetalle Private Sub CargaCuenta() DdlCtaContable.Items.Clear() - DdlCtaContable.Items.Insert(0, New ListItem("Seleccione", "-1")) If UsuarioActual.Empresa.TipoContabilidad = 1 Then @@ -148,7 +147,6 @@ Partial Class Contabilidad_PlantillasPolizasDetalle If Conta.GetCuentas(-1, "-1", 1, UsuarioActual.CveEmpresa) Then dtt = Conta.DtResultados End If - Conta.Dispose() DdlCuentas.Items.Clear() @@ -156,14 +154,12 @@ Partial Class Contabilidad_PlantillasPolizasDetalle DdlCuentas.DataBind() DdlCuentas.Visible = True DdlCtaContable.Visible = False + DdlCuentas.Items.Insert(0, New ListItem("-", "-1")) Else - DdlCtaContable.DataSource = DTCuentasContables DdlCtaContable.DataBind() End If - - DdlCuentas.Items.Insert(0, New ListItem("Seleccione", "-1")) End Sub Private Sub CargarConcepto() diff --git a/Contabilidad/RegPrePolizaS.aspx b/Contabilidad/RegPrePolizaS.aspx index b460ad4ee..23a848b8a 100644 --- a/Contabilidad/RegPrePolizaS.aspx +++ b/Contabilidad/RegPrePolizaS.aspx @@ -318,7 +318,7 @@ Cuenta -
+
@@ -379,7 +379,7 @@ - + @@ -621,7 +621,7 @@
- +
diff --git a/Contabilidad/RegPrePolizaS.aspx.vb b/Contabilidad/RegPrePolizaS.aspx.vb index 28a9814bb..2908f46f6 100644 --- a/Contabilidad/RegPrePolizaS.aspx.vb +++ b/Contabilidad/RegPrePolizaS.aspx.vb @@ -768,7 +768,7 @@ Partial Class ContabilidadC_RegPrePolizaS Dim dr As DataRow = DtMovimientos.NewRow dr("CodigoNombreCuenta") = drt("Codigo").ToString & "
" & drt("Nombre").ToString - 'dr("Cuenta") = drt("ConceptoContable").ToString + dr("ConceptoContable") = drt("ConceptoContable").ToString dr("Referencia") = If(drt("CveConceptoContable").ToString.Contiene("29", "130"), drt("Personal"), drt("RazonSocial")) dr("Concepto") = TxtConcepto.Text dr("TipoMovto") = If(drt("TipoMovto").ToString = "False", 0, 1) diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb index 32c956783..42d712c2a 100644 --- a/OC/OC.aspx.vb +++ b/OC/OC.aspx.vb @@ -624,7 +624,7 @@ Partial Class OC_OC ChkCotizacion.Enabled = False End If - If UsuarioActual.CveRol = 1 Then + If UsuarioActual.CveEmpresa.Contiene(13, 83) Then TrMetodoPago.Visible = True End If