-

App_Code/ClsContabilidad.vb

@@ -5867,7 +5867,7 @@ Public Class ClsContabilidad
         Return Retorno
     End Function
 
-    Public Function AddCuentasGlobales(CveConceptoContable As Integer, CveCuenta As Integer, TipoGlobal As Integer, CveEmpresa As Integer) As Boolean
+    Public Function AddCuentasGlobales(CveConceptoContable As Integer, CveCuenta As Integer, TipoGlobal As Integer, CveEmpresa As Integer, PorcentajeImpuesto As Decimal, CveColectiva As Integer) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Conta_CuentasGlobalesAdd")
@@ -5877,6 +5877,8 @@ Public Class ClsContabilidad
             .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta
             .Add("@TipoGlobal", SqlDbType.Int).Value = TipoGlobal
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+            .Add("@PorcentajeImpuesto", SqlDbType.Money).Value = PorcentajeImpuesto
+            .Add("@CveColectiva", SqlDbType.Int).Value = CveColectiva
         End With
 
         Try