diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb
index ee059d485..15461fbff 100644
--- a/Ventas/PV.aspx.vb
+++ b/Ventas/PV.aspx.vb
@@ -2623,6 +2623,10 @@ Partial Class PV
             DdlAlmacenAsignado.SelectedValueExist(GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $"CveSubProyecto = {DdlSubProyectoDatos.SelectedValue}").ToString.ToEntero)
         End If
 
+        If ChkServicioDomicilio.Checked Then
+            PreparaServicioDomicilio()
+        End If
+
         UpINV.Update()
     End Sub
     Private Sub CargaFormaEntrega()