diff --git a/App_Code/ClsProductosServicios.vb b/App_Code/ClsProductosServicios.vb
index 0a9d5aca9..9416ede4f 100644
--- a/App_Code/ClsProductosServicios.vb
+++ b/App_Code/ClsProductosServicios.vb
@@ -208,7 +208,7 @@ Public Class ClsProductosServicios
     Public Function GetPS(CvePS As Integer, CveClasificacion As Integer, CveEmpresa As Integer, Optional Codigo As String = "-1", Optional Codigo2 As String = "-1",
                           Optional CodigoBarras As String = "-1", Optional PS As String = "-1", Optional EsPaquete As Integer = -1, Optional CveSubProyecto As Integer = -1,
                           Optional pAplicaParaVenta As Integer = -1, Optional pEstado As Integer = -1, Optional CveClasificacionCosto As Integer = -1, Optional CveTipoPS As Integer = -1,
-                          Optional CveCompuesto As Integer = -1, Optional SATClavePS As String = "-1", Optional TopSelect As Integer = 10000) As Boolean
+                          Optional CveCompuesto As Integer = -1, Optional SATClavePS As String = "-1", Optional TopSelect As Integer = 10000, Optional CveMarca As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_ProductosServiciosGet")
@@ -229,6 +229,7 @@ Public Class ClsProductosServicios
             .Add("@CveTipoPS", SqlDbType.Int).Value = CveTipoPS
             .Add("@CveCompuesto", SqlDbType.Int).Value = CveCompuesto
             .Add("@SATClavePS", SqlDbType.VarChar).Value = SATClavePS
+            .Add("@CveMarca", SqlDbType.Int).Value = CveMarca
             .Add("@TopSelect", SqlDbType.Int).Value = TopSelect
         End With
 
diff --git a/Contabilidad2/CatCuentas.aspx b/Contabilidad2/CatCuentas.aspx
index 9f026eb56..3b7a2f7fa 100644
--- a/Contabilidad2/CatCuentas.aspx
+++ b/Contabilidad2/CatCuentas.aspx
@@ -185,13 +185,6 @@
                             <ADS:Dropdownlost ID="DdlProveedores" runat="server" data-metodo="getproveedores" UsaWebService="true" Width="100%" CssStyle="width: 100%;" DataTextField="RazonSocial" DataValueField="CveProveedor" ></ADS:Dropdownlost>
                         </div>
                     </asp:Panel>
-                    <asp:Panel runat="server" ID="pnlOpcion2" Visible="false" CssClass="form-line">
-                        <div class="catcuentas left">
-                            <asp:Label runat="server" Text="Porcentaje IVA():"></asp:Label></div>
-                        <div class="catcuentas right">
-                            <asp:TextBox ID="TxtPorcentaje" runat="server"></asp:TextBox>(0% - 100% )
-                        </div>
-                    </asp:Panel>
                     <asp:Panel runat="server" ID="pnlOpcion3" Visible="false" CssClass="form-line">
                         <div class="catcuentas left">
                             <asp:Label runat="server" Text="Clasificación"></asp:Label></div>
@@ -222,6 +215,13 @@
                             <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientesWS" UsaWebService="true" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="min-width: 100px;"></ADS:Dropdownlost>
                         </div>
                     </asp:Panel>
+                    <asp:Panel runat="server" ID="pnlOpcion2" Visible="false" CssClass="form-line">
+                        <div class="catcuentas left">
+                            <asp:Label runat="server" Text="Porcentaje Impuesto:"></asp:Label></div>
+                        <div class="catcuentas right">
+                            <asp:TextBox ID="TxtPorcentaje" runat="server"></asp:TextBox>(0% - 100% )
+                        </div>
+                    </asp:Panel>
 
 
                     <br />
diff --git a/Contabilidad2/CatCuentas.aspx.vb b/Contabilidad2/CatCuentas.aspx.vb
index 4c55dd786..cf2d05c39 100644
--- a/Contabilidad2/CatCuentas.aspx.vb
+++ b/Contabilidad2/CatCuentas.aspx.vb
@@ -406,15 +406,21 @@ Partial Class Contabilidad2_CatCuentas
         Dim CveTipoSaldo As Integer = 0
         Dim PorcentajeIVA As Decimal = -1
         Dim drt As DataRow
-        Dim CveConceptoAdmin As Integer = -1
-        Dim CveProveedor As Integer = -1
-        Dim CveCliente As Integer = -1
-        Dim CveClasificacion As Integer = -1
-        Dim PorcentajeImpuesto As Decimal = -1
-        Dim CveBancoCuenta As Integer = -1
-        Dim CveAlmacen As Integer = -1
-        Dim CvePersonal As Integer = -1
-
+        Dim CveConceptoAdmin As Integer
+        Dim CveProveedor As Integer
+        Dim CveCliente As Integer
+        Dim CveClasificacion As Integer
+        Dim PorcentajeImpuesto As Decimal
+        Dim CveBancoCuenta As Integer
+        'Dim CveAlmacen As Integer = -1
+        'Dim CvePersonal As Integer = -1
+        Dim NombreCuenta As String
+        Dim TipoCuenta As String
+        Dim CuentaMayor As Integer
+        Dim CveMoneda As Integer
+        Dim DigAgrup As Integer
+        Dim CveAgrupadorSat As Integer
+        Dim NomIdioma As String
         If DdlAgrupadorSAT.SelectedValue.ToEntero > 0 Then
 
             If CveConceptoContable > 0 Then
@@ -438,19 +444,28 @@ Partial Class Contabilidad2_CatCuentas
                     CveBancoCuenta = IIf(drt("CveBancoCuenta").ToString.ToEntero = 0, -1, drt("CveBancoCuenta").ToString.ToEntero)
                     'CveAlmacen = IIf(drt("CveAlmacen").ToString.ToEntero = 0, -1, drt("CveAlmacen").ToString.ToEntero)
                     'CvePersonal = IIf(drt("CvePersonal").ToString.ToEntero = 0, -1, drt("CvePersonal").ToString.ToEntero)
-                End If
+                    NombreCuenta = IIf(drt("Nombre").ToString = "", "", drt("Nombre").ToString.ToEntero)
+                    TipoCuenta = IIf(drt("Tipo").ToString = "", "", drt("Tipo").ToString.ToEntero)
+                    CuentaMayor = IIf(drt("CtaMayor").ToString.ToEntero = 0, 0, drt("CtaMayor").ToString.ToEntero)
+                    CveMoneda = IIf(drt("CveMoneda").ToString.ToEntero = -1, -1, drt("CveMoneda").ToString.ToEntero)
+                    DigAgrup = IIf(drt("DigAgrup").ToString.ToEntero = -1, -1, drt("DigAgrup").ToString.ToEntero)
+                    CveAgrupadorSat = IIf(drt("CveAgrupadorSAT").ToString.ToEntero = 0, -1, drt("CveAgrupadorSAT").ToString.ToEntero)
+                    NomIdioma = IIf(drt("NomIdioma").ToString = "", "", drt("NomIdioma").ToString.ToEntero)
 
-                idnew = ObjConta.AddCuenta(CvePadre, TxtCuenta.Text.Replace("-", ""), Tnombre.Text, DTcuenta.SelectedValue.ToString, DcuentaMayor.SelectedValue.ToString.ToEntero,
-                                    DdlMoneda.SelectedValue.ToEntero, TxtDigAgrup.Text.ToEntero, DdlAgrupadorSAT.SelectedValue.ToEntero, TxtNomIngles.Text.ToString, CveConceptoAdmin:=CveConceptoAdmin, CveProveedor:=CveProveedor, CveCliente:=CveCliente,
-                                    CveClasificacion:=CveClasificacion, PorcentajeImpuesto:=PorcentajeImpuesto, CveBancoCuenta:=CveBancoCuenta)
-                If idnew > 0 Then
-                    If ObjConta.UpdateTraspasoPrepoliza(UsuarioActual.CveEmpresa, IDSelected, idnew) Then
-                        ObjConta.RollBack()
-                        ObjConta.Dispose()
-                        Exit Sub
+                    idnew = ObjConta.AddCuenta(CvePadre, TxtCuenta.Text.Replace("-", ""), Tnombre.Text, DTcuenta.SelectedValue.ToString, DcuentaMayor.SelectedValue.ToString.ToEntero,
+                                        DdlMoneda.SelectedValue.ToEntero, TxtDigAgrup.Text.ToEntero, DdlAgrupadorSAT.SelectedValue.ToEntero, TxtNomIngles.Text.ToString, CveConceptoAdmin:=CveConceptoAdmin, CveProveedor:=CveProveedor, CveCliente:=CveCliente,
+                                        CveClasificacion:=CveClasificacion, PorcentajeImpuesto:=PorcentajeImpuesto, CveBancoCuenta:=CveBancoCuenta)
+                    If idnew > 0 Then
+                        If Not ObjConta.UpdateTraspasoPrepoliza(UsuarioActual.CveEmpresa, IDSelected, idnew) Then
+                            If ObjConta.UpdateCuenta(IDSelected.ToEntero, NombreCuenta, TipoCuenta, CuentaMayor, CveMoneda,
+                                     DigAgrup, CveAgrupadorSat, NomIdioma) Then
+                                ObjConta.RollBack()
+                                ObjConta.Dispose()
+                                Exit Sub
+                            End If
+                        End If
                     End If
                 End If
-
             Else
                 idnew = ObjConta.AddCuenta(IDSelected, TxtCuenta.Text.Replace("-", ""), Tnombre.Text, DTcuenta.SelectedValue.ToString, DcuentaMayor.SelectedValue.ToString.ToEntero,
                                         DdlMoneda.SelectedValue.ToEntero, TxtDigAgrup.Text.ToEntero, DdlAgrupadorSAT.SelectedValue.ToEntero, TxtNomIngles.Text.ToString, PorcentajeImpuesto:=PorcentajeIVA)