BDH: Validacion servicio a domicilio

Ventas/PV.aspx.vb

@@ -3541,6 +3541,12 @@ Partial Class PV
             If ObjFactura.CveAlmacenTraspasoDestino <= 0 And ObjFactura.TipoDocto = "Rem" Then
                 ObjFactura.ErrorList.Add("Ocurrió un error al seleccionar el almacen de entrega por adelantado de la sucursal.")
             End If
+
+            'SI LA SUCURSAL NO TIENE SERVICIO A DOMICILIO 
+            If ObjFactura.ServicioDomicilio AndAlso ObjFactura.CveAlmacenServicioDomicilio <= 0 And ObjFactura.TipoDocto = "Rem" Then
+                ObjFactura.ErrorList.Add("No existe un almacen configurado como 'Servicio a Domicilio' en esta sucursal.")
+            End If
+
         End If
 
     End Sub