From 5d7ff8e51f77edc7d60e84827f5fd408409468e3 Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Thu, 5 Nov 2020 18:52:49 -0700
Subject: [PATCH] -contabilidad de traspaso de almacen

---
 App_Code/modExtensiones.vb | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

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"