|
@@ -82,7 +82,7 @@ type
|
|
|
implementation
|
|
implementation
|
|
|
|
|
|
|
|
uses
|
|
uses
|
|
|
- ProjectData, PhasePayDm, PhaseData, ZhAPI, BillsDm, Math;
|
|
|
|
|
|
|
+ ProjectData, PhasePayDm, PhaseData, ZhAPI, BillsDm, Math, Variants;
|
|
|
|
|
|
|
|
{$R *.dfm}
|
|
{$R *.dfm}
|
|
|
|
|
|
|
@@ -762,7 +762,7 @@ end;
|
|
|
procedure TDealPaymentData.sdvDealPaymentBeforeAddRecord(
|
|
procedure TDealPaymentData.sdvDealPaymentBeforeAddRecord(
|
|
|
ARecord: TsdDataRecord; var Allow: Boolean);
|
|
ARecord: TsdDataRecord; var Allow: Boolean);
|
|
|
begin
|
|
begin
|
|
|
- Allow := ARecord.ValueByName('Name').AsString <> '';
|
|
|
|
|
|
|
+ Allow := (ARecord.ValueByName('Name').AsString <> '') or (not VarIsNull(ARecord.ValueByName('Name').CachedValue));
|
|
|
end;
|
|
end;
|
|
|
|
|
|
|
|
end.
|
|
end.
|
