From b5e04382808a59f93fdaa580d37336be3bf82d8e Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Mon, 11 Jul 2022 09:30:11 -0700
Subject: [PATCH] Entrega almacen registro de prepolizas movimientos

---
 Inventarios/EntregaAlmacen.aspx.vb | 43 ++++++++++++++++++++++++++++++
 1 file changed, 43 insertions(+)

diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb
index be7ba0a55..fea4ddc65 100644
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/Inventarios/EntregaAlmacen.aspx.vb
@@ -2067,6 +2067,49 @@ Partial Class Inventarios_EntregaAlmacen
 
                     Next
                 End If
+
+
+
+                Dim ImportePrePoliza As Decimal = 0D
+
+                If ObjInventario.GetMovimientosDetalle(CveMovimientoEntrada, UsuarioActual.CveEmpresa) Then
+                    ImportePrePoliza = ObjInventario.DtResultados.SUMD("Total")
+                End If
+
+
+                Dim MovAlmacen As Boolean = True
+
+                Dim OrigenMov As Integer = GlobalDTInvConceptos.FiltroPrimeroValor("Origen", "CveConcepto = " & 9).ToEntero
+
+                If OrigenMov = 1 Then
+                    MovAlmacen = True
+                Else
+                    MovAlmacen = False
+                End If
+
+                Dim ObjConta2 As New ClsContabilidad(ObjInventario.IniciaTransacSQL)
+
+                Dim Concepto As String = "ARMPAQ2"
+                Dim CvePrePoliza = ObjConta2.AddPrePolizas("RE/GSC1/GSC3/RE/G4", 74, ImportePrePoliza, ImportePrePoliza, 1, TxtFecha.Text.ToDate, Concepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+                'Dim tCveSubProyecto = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen={CveAlmacen}").ToEntero
+
+                If Not ObjConta2.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, ImportePrePoliza, "RE/G4", 68, "RE/G4", TxtFecha.Text.ToDate, -1, -1, CveVenta:=-1, CveMovimientoAlmacen:=CveMovimientoEntradaApartado, ImporteMX:=ImportePrePoliza, CveSubProyecto:=-1, Contabilizable:=False) Then
+                    ErrorMovInv = True
+                End If
+
+                If Not ObjConta2.AddPrePolizasDetalle(CvePrePoliza, MovAlmacen, ImportePrePoliza, "RE/GSC1/GSC3", 68, "RE/GSC1/GSC3", TxtFecha.Text.ToDate, -1, -1, CveVenta:=-1, CveMovimientoAlmacen:=CveMovimientoSalida, ImporteMX:=ImportePrePoliza, Contabilizable:=False) Then
+                    ErrorMovInv = True
+                End If
+
+
+                If ObjConta2.ValidacionPrePolizaCuadre(CvePrePoliza, 6) Then
+                    If ObjConta2.ValorPolizaDescuadre > 0 Then
+                        GuardaLogAD($"Inventarios/RecepcionAlmacen-PPCompOC | Error:{ObjConta2.MensajePolizaDescuadre} Diferencia:{ObjConta2.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
+                        ErrorMovInv = True
+                    End If
+                End If
+
+
             End If
 
             If Not ErrorMovInv Then