Hi,

I'm sending this question again, 'cause I had no replies for it. If anyone could help me on this, thanks.

I'm trying to use Replication project from IBO, but instead of using Resync Index for each Index, I want to Resync all of them in the target database, so I created a procedure called Resync_All.

If I Resync index by index, it is ok, it is all Loaded and things goes right , but when I try this...

*************
procedure TfrmRPL.Resync_All;
begin
try
rplMeta.ReplicatorIndexName := 'IDX_CLINIC';
if not rplMeta.IsMetaLoaded then rplMeta.LoadIndexMeta; <<<<<<<Error

{When it reaches here the exception is: 'Invalid status to load this index metadata from'}
{On GetisMetaLoaded status = ''}

rplMeta.ResyncIndex;

rplMeta.ReplicatorIndexName := 'IDX_PROFIS';
if not rplMeta.IsMetaLoaded then rplMeta.LoadIndexMeta;
rplMeta.ResyncIndex;

... {all other indices}

except
inherited;
end;
end;
*****************

What am I doing wrong here?

Thanks again.

Ricardo Costa
Agenda Digital
Florianopolis - SC
www.agenda-digital.com




[Non-text portions of this message have been removed]