Subject Re: [IBO] Using DataPump
Author nibler@t-online.de
Riho-Rene,

> I use TIB_Datapump for transfering data between databases.
> I would like to change some data during pumping before storing it. Is it possible?

Yes.
HereĀ“s an example to convert nulls to zero (if numeric)
or to '' if anything else.


procedure TfrmADataPump.DataPumpAfterFetchRow(ARow: TIB_Row);
var
dest :TIB_Row;
i :integer;

begin
dest := DataPump.DstRow;
for i := 0 to dest.ColumnCount -1 do begin
if dest.Columns[i].IsNull then begin
if dest.Columns[i].IsNumeric then begin
dest.Columns[i].Value := 0
end
else begin
dest.Columns[i].Value := ''
end
end
end
end;


Harald