procedure TTZJHTZ.FIELD_TZJHTSFTZ_TZPFCalcField(Field: TBizField; var Value: Variant);
var i:integer;
begin
for i:=1 to DataSetTZJHTSFTZ.RecordCount do
begin
DataSetTZJHTSFTZ.FieldByName('TZPF').AsString:='111';
DataSetTZJHTSFTZ.Next;
END;
DataSetTZJHTSFTZ.ApplyUpdates;
end;