如何在Power Apps中为Bing Maps设置地理区域边界实现打卡校验

前期基础配置 #

• 开启应用位置权限：在Power Apps后台设置的「功能」板块开启位置权限，确保应用可调用设备的实时定位能力，注意提前告知员工位置信息仅用于打卡核验，符合合规要求。
• 配置围栏基础数据：
  • 若使用圆形围栏（适合规则办公区域），提前确定围栏中心点经纬度、允许打卡的半径阈值，直接写死在应用逻辑或者存在配置表中即可。
  • 若使用不规则多边形围栏（适合厂区、多栋写字楼组成的园区等边界不规则的区域），提前把围栏所有顶点的经纬度按顺序存入数据源（SharePoint列表、Dataverse表均可），表字段设置为FenceName（围栏名称）、Latitude（纬度）、Longitude（经度）。

核心功能实现 #

场景1：圆形围栏（实现成本最低） #

直接在打卡按钮的OnSelect属性中加入如下逻辑即可：

// 获取用户实时定位
Set(varUserLocation, Location());
// 配置围栏中心点（示例为北京天安门坐标，替换成你实际的围栏中心点经纬度即可）
Set(varFenceCenter, {Latitude: 39.9042, Longitude: 116.4074});
// 允许打卡的最大半径，单位：米，建议预留50-100米的定位误差冗余
Set(varAllowedRadius, 500);
// 用哈弗森公式计算两点球面距离，单位：米
Set(varDistance, 12742 * Asin(Sqrt(
    Sin(Radians(varUserLocation.Latitude - varFenceCenter.Latitude)/2)^2 +
    Cos(Radians(varFenceCenter.Latitude)) * Cos(Radians(varUserLocation.Latitude)) *
    Sin(Radians(varUserLocation.Longitude - varFenceCenter.Longitude)/2)^2
)) * 1000);
// 打卡逻辑判断
If(
    varDistance > varAllowedRadius,
    // 超出范围弹出错误提示
    Notify("当前不在允许打卡的区域内，请前往指定区域后重试", NotificationType.Error),
    // 范围内执行正常打卡提交逻辑
    Patch(
        '打卡记录表',
        Defaults('打卡记录表'),
        {
            员工姓名: User().FullName,
            打卡时间: Now(),
            打卡纬度: varUserLocation.Latitude,
            打卡经度: varUserLocation.Longitude
        }
    );
    Notify("打卡成功", NotificationType.Success)
)

场景2：不规则多边形围栏 #

先在Power Apps的「自定义公式」中新增PointInPolygon函数，用来判断点位是否在多边形范围内：

PointInPolygon = Function(
    pointLat, pointLng, // 待校验的用户定位坐标
    polygonTable // 多边形围栏顶点表，需包含Latitude、Longitude字段
    ,
    With(
        {
            numVertices: CountRows(polygonTable),
            vertices: polygonTable
        },
        With(
            {inside: false},
            ForAll(
                Sequence(numVertices),
                With(
                    {
                        i: Value,
                        j: If(Value = numVertices, 1, Value + 1)
                    },
                    With(
                        {
                            viLat: Index(vertices, i).Latitude,
                            viLng: Index(vertices, i).Longitude,
                            vjLat: Index(vertices, j).Latitude,
                            vjLng: Index(vertices, j).Longitude
                        },
                        If(
                            ((viLng > pointLng) <> (vjLng > pointLng)) &&
                            (pointLat < (vjLat - viLat) * (pointLng - viLng) / (vjLng - viLng) + viLat),
                            Set(inside, !inside)
                        )
                    )
                )
            );
            inside
        )
    )
);

然后在打卡按钮的OnSelect属性中调用该函数即可：

Set(varUserLocation, Location());
// 拉取对应区域的围栏顶点数据
ClearCollect(varFencePolygon, Filter('围栏配置表', FenceName = "总部园区"));
// 调用函数判断是否在围栏内
Set(varIsInFence, PointInPolygon(varUserLocation.Latitude, varUserLocation.Longitude, varFencePolygon));
If(
    !varIsInFence,
    Notify("当前不在允许打卡的区域内，请前往指定区域后重试", NotificationType.Error),
    // 执行正常打卡逻辑
    Patch(
        '打卡记录表',
        Defaults('打卡记录表'),
        {
            员工姓名: User().FullName,
            打卡时间: Now(),
            打卡纬度: varUserLocation.Latitude,
            打卡经度: varUserLocation.Longitude
        }
    );
    Notify("打卡成功", NotificationType.Success)
)

常见问题优化 #

• 定位误差处理：民用手机定位普遍存在10-50米的误差，设置围栏半径时建议预留50-100米的冗余，避免正常在打卡区域的员工无法提交。
• 离线场景处理：无网络时设备可能无法获取定位，可直接禁止打卡提交，后续让员工走补卡流程即可。

内容的提问来源于stack exchange，提问作者FAY