diff --git a/App_Code/modExtensiones.vb b/App_Code/modExtensiones.vb
index b236d68a4..da8ccef26 100644
--- a/App_Code/modExtensiones.vb
+++ b/App_Code/modExtensiones.vb
@@ -2921,6 +2921,24 @@ Namespace Extensiones
 
             Return Retorno
         End Function
+
+        Public Function ContabilizaMovimientoAlmacen(ByRef ObjConta As ClsContabilidad, Fecha As Date, Concepto As String, Modulo As String, CveMovimientoSalida As Integer, CveMovimientoEntrada As Integer, Importe As Decimal, CveUsuario As Integer, CveEmpresa As Integer, Contabilizable As Boolean) As Integer
+            Dim Retorno As Integer = -1
+            Dim ErrorMovInv As Boolean = False
+
+            Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas(Modulo, 53, 0, 0, 1, Fecha, Concepto, CveUsuario, CveEmpresa)
+            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, Importe, "", 68, Concepto, Fecha, -1, -1, CveMovimientoAlmacen:=CveMovimientoSalida, ImporteMX:=Importe, Contabilizable:=Contabilizable) Then
+                ErrorMovInv = True
+            End If
+
+            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, Importe, "", 68, Concepto, Fecha, -1, -1, CveMovimientoAlmacen:=CveMovimientoEntrada, ImporteMX:=Importe, Contabilizable:=Contabilizable) Then
+                ErrorMovInv = True
+            End If
+
+            If Not ErrorMovInv Then Retorno = CvePrePoliza
+
+            Return Retorno
+        End Function
 #End Region
 
 #Region "GPS"