检查开始日期是否大于结束日期
Check if startdate is greater then enddate
我想比较两个日期。我这样试过:
SetDates(Rec, StartDate2, EndDate2, Regelkorting);
BOMB.RESET;
BOMB.SETRANGE(StartDate2,StartDate2);
IF BOMB.FINDFIRST THEN BEGIN
IF BOMB.StartDate2 > BOMB.EndDate2 THEN BEGIN
ERROR('startdatum kan niet groter zijn dan einddatum');
END;
END
但是没有消息显示
这是输出:
物料清单组件
530120,10000,Artikel,530120,Intergas 041107 HREco 24 CW3,ST,0,0,0,01-10-16,10-10-13,0,Nee,Nee,
谢谢
对比没问题,但我觉得你没有找到正确的BOMB记录。
你有这个:
BOMB.RESET;
BOMB.SETRANGE(StartDate2,StartDate2);
IF BOMB.FINDFIRST THEN BEGIN
IF BOMB.StartDate2 > BOMB.EndDate2 THEN BEGIN
ERROR('startdatum kan niet groter zijn dan einddatum');
END;
END;
您仅按 StartDate2
字段而不是 主键 进行筛选,因此您找到了错误的记录。
所以主键的字段过滤BOMBTable,标准BOM组件table有这个主键 Parent Item No.,Line No.
如果你没有改变这个试试这个:
BOMB.RESET;
BOMB.SETRANGE("Parent Item No.", "Parent Item No.");
BOMB.SETRANGE("Line No.", "Line No.");
IF BOMB.FINDFIRST THEN BEGIN
IF BOMB.StartDate2 > BOMB.EndDate2 THEN BEGIN
ERROR('startdatum kan niet groter zijn dan einddatum');
END;
END;
我想比较两个日期。我这样试过:
SetDates(Rec, StartDate2, EndDate2, Regelkorting);
BOMB.RESET;
BOMB.SETRANGE(StartDate2,StartDate2);
IF BOMB.FINDFIRST THEN BEGIN
IF BOMB.StartDate2 > BOMB.EndDate2 THEN BEGIN
ERROR('startdatum kan niet groter zijn dan einddatum');
END;
END
但是没有消息显示
这是输出:
物料清单组件 530120,10000,Artikel,530120,Intergas 041107 HREco 24 CW3,ST,0,0,0,01-10-16,10-10-13,0,Nee,Nee,
谢谢
对比没问题,但我觉得你没有找到正确的BOMB记录。
你有这个:
BOMB.RESET;
BOMB.SETRANGE(StartDate2,StartDate2);
IF BOMB.FINDFIRST THEN BEGIN
IF BOMB.StartDate2 > BOMB.EndDate2 THEN BEGIN
ERROR('startdatum kan niet groter zijn dan einddatum');
END;
END;
您仅按 StartDate2
字段而不是 主键 进行筛选,因此您找到了错误的记录。
所以主键的字段过滤BOMBTable,标准BOM组件table有这个主键 Parent Item No.,Line No.
如果你没有改变这个试试这个:
BOMB.RESET;
BOMB.SETRANGE("Parent Item No.", "Parent Item No.");
BOMB.SETRANGE("Line No.", "Line No.");
IF BOMB.FINDFIRST THEN BEGIN
IF BOMB.StartDate2 > BOMB.EndDate2 THEN BEGIN
ERROR('startdatum kan niet groter zijn dan einddatum');
END;
END;