-contabilidad de traspaso de almacen

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"