Task #1024 新增合同支付项，根据名称决定是否新增

DataModules/DealPaymentDm.pas

@@ -762,7 +762,7 @@ end;
 procedure TDealPaymentData.sdvDealPaymentBeforeAddRecord(
   ARecord: TsdDataRecord; var Allow: Boolean);
 begin
-  Allow := (ARecord.ValueByName('Name').AsString <> '') or (not VarIsNull(ARecord.ValueByName('Name').CachedValue));
+  Allow := VarToStrDef(ARecord.ValueByName('Name').CachedValue, '') <> '';
 end;
 
 end.