Recepcion almacen cierre de Fletes e Importaciones, Correcion creditos, mensaje efacturas folio repetido, consignaciones prepoliza

Inventarios/Consignaciones.aspx.vb

@@ -879,9 +879,48 @@ Partial Class Inventarios_Consignaciones
                     TextoError = "Ocurrió un Error al guardar los movimientos"
                     Exit For
                 Else
-                    MovimientosRealizados += 1
+
+
+                    Dim ImportePrePoliza As Decimal = Gvr.DataKey("PU").ToString.ToDecimal * Gvr.FCTextBox("TxtCantidadDevolucion").Text.ToString.ToDecimal
+
+                    Dim MovAlmacen As Boolean = True
+
+                    Dim OrigenMov As Integer = GlobalDTInvConceptos.FiltroPrimeroValor("Origen", "CveConcepto = " & ConceptoDevolucion).ToEntero
+
+                    If OrigenMov = 1 Then
+                        MovAlmacen = True
+                    Else
+                        MovAlmacen = False
+                    End If
+
+                    Dim ObjConta As New ClsContabilidad(ObjInventario.IniciaTransacSQL)
+
+                    Dim Concepto As String = "Consig"
+                    Dim CvePrePoliza = ObjConta.AddPrePolizas("Consig", 74, ImportePrePoliza, ImportePrePoliza, 1, Fecha, Concepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+
+                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, Not MovAlmacen, ImportePrePoliza, "Consig", 68, "Consig", Fecha, -1, -1, CveVenta:=-1, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=ImportePrePoliza, CveSubProyecto:=-1, Contabilizable:=False) Then
+                        ErrorMovInv = True
+                    End If
+
+                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, MovAlmacen, ImportePrePoliza, "Consig", 337, "Consig", Fecha, -1, -1, CveVenta:=-1, CveMovimientoAlmacen:=CveMovimiento, ImporteMX:=ImportePrePoliza, Contabilizable:=False) Then
+                        ErrorMovInv = True
+                    End If
+
+                    If ObjConta.ValidacionPrePolizaCuadre(CvePrePoliza, 6) Then
+                        If ObjConta.ValorPolizaDescuadre > 0 Then
+                            GuardaLogAD($"Consig | Error:{ObjConta.MensajePolizaDescuadre} Diferencia:{ObjConta.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
+                            ErrorMovInv = True
+                        End If
+                    End If
+
+                    If Not ErrorMovInv Then
+                        MovimientosRealizados += 1
+                    End If
+
                 End If
 
+
+
             End If
         Next