diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb
index 3856176b0..e21187015 100644
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/Inventarios/EntregaAlmacen.aspx.vb
@@ -2466,25 +2466,34 @@ Partial Class Inventarios_EntregaAlmacen
                         CveMovimientoEntrada = ObjInventario.AddMovimiento(CveAlmacenTraspasoDestino, 9, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text, CveContrato:=CveContrato,
                                                                            CveMovimientoRelacionado:=CveMovimiento, CveAlmacenDestino:=DdlAlmacen.SelectedValue.ToEntero(), Modulo:="RE/G8")
                         FolioEntrada = ObjInventario.Folio
+                        Dim ImporteAlmacen As Decimal = 0
 
                         If CveMovimientoEntrada <= 0 Then
                             TextoError.AppendFormat("No se pudo generar el movimiento de entrada correctamente")
                             ErrorMovInv = True
                         Else
-                            If ObjInventario.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then
+                            If ObjInventario.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) AndAlso ObjInventario.DtResultados.Rows.Count > 0 Then
+                                ImporteAlmacen = ObjInventario.DtResultados.SUMD("Total")
+
                                 For Each Dr As DataRow In ObjInventario.DtResultados.Rows
                                     If Not ObjInventario.AddMovimientoDetalle(CveMovimientoEntrada, Dr("Cantidad").ToString().ToDouble, Dr("CveUM").ToString().ToEntero(), Dr("CvePS").ToString().ToEntero(), Dr("PU").ToString().ToDecimal, CveAF:=Dr("CveAF").ToString().ToEntero(), CveSeccionAlmacen:=-3, Serie:=Dr("Serie").ToString(), Lote:=Dr("Lote").ToString(), FechaCaducidad:=Dr("FechaCaducidad").ToString().ToDate, CveVentaDetalle:=Dr("CveVentaDetalle").ToString().ToEntero(), EsInterno:=EsInterno, CveMovimientoDetalleEntrada:=Dr("CveMovimientoDetalle").ToString().ToEntero()) Then
                                         ErrorMovInv = True
                                         TextoError.AppendFormat("Ocurrió un error al guardar los movimientos de entrada")
                                         Exit For
                                     End If
-                                Next
+                                Next
+
                             Else
                                 ErrorMovInv = True
                                 TextoError.AppendFormat("Ocurrió un error al guardar los movimientos de entrada")
                             End If
                         End If
 
+                        'se registra 
+                        If ContabilizaMovimientoAlmacen(ObjConta, TxtFecha.Text.ToDate, HLFolio.Text, "EntregaAlmacen", CveMovimiento, CveMovimientoEntrada, ImporteAlmacen, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, True) <= 0 Then
+                            ErrorMovInv = True
+                        End If
+
                     Else  'REGISTRO LA PREPOLIZA DE COSTO VS ALMACEN - SALIDA ALMACEN
                         ErrorMovInv = Not GenerarPrePoliza(ObjInventario, ObjVentas, ObjConta, CveMovimiento, TextoError)
                     End If