Entrega almacen registro de prepolizas movimientos

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