.

App_Code/ClsContabilidad.vb

@@ -2406,7 +2406,7 @@ Public Class ClsContabilidad
     Public Function AddConta_PlantillasPolizasDetalles(CvePlantillaPoliza As Integer, CveConcepto As Integer, TipoMovto As Integer,
                                                        IdCtaContable As Integer, Orden As Integer, CveUsuario As Integer, CveEmpresa As Integer,
                                                        CveSubProyecto As Integer, CveProveedor As Integer, Optional CvePersonal As Integer = -1,
-                                                       Optional PorcentajeImpuesto As Decimal = 0) As Boolean
+                                                       Optional PorcentajeImpuesto As Decimal = 0, Optional CveCuenta As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Conta_PlantillasPolizasDetalleAdd")
@@ -2423,6 +2423,7 @@ Public Class ClsContabilidad
             .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
             .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal
             .Add("@PorcentajeImpuesto", SqlDbType.SmallMoney).Value = PorcentajeImpuesto
+            .Add("@CveCuenta", SqlDbType.Int).Value = CveCuenta
         End With
 
         Try