prepoliza de garantía

Inventarios/EntregaAlmacen.aspx.vb

@@ -1805,6 +1805,7 @@ Partial Class Inventarios_EntregaAlmacen
             ObjConta.Dispose()
             ObjVentas.Dispose()
             ObjEventos.Dispose()
+            '' identificar que productos no están completos.
             CargaVentaPorSurtir(CveVentaSurtir)
             CargaPendientes()
             Alert("Ha sido cambiada la informacion de existencias de la venta actual, se han recargado la información.", TipoMensaje.MsgAdvertencia)
@@ -2331,6 +2332,11 @@ Partial Class Inventarios_EntregaAlmacen
                         End If
                         TotalGarantia += (RowGarantia("Cantidad").ToString().ToDecimal() * PU)
                     Next
+
+                    'se registra 
+                    If ContabilizaMovimientoAlmacen(ObjConta, TxtFecha.Text.ToDate, HLFolio.Text, "EntregaAlmacen", CveMovimiento, CveMovimientoEntrada, TotalGarantia, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, True) <= 0 Then
+                        ErrorMovInv = True
+                    End If
                 End If
             End If
             ' TERMINA: GARANTIAS