Exemplo da Chamada no Delphi - Serviço 307

var
  vDM: TDM_IntMovFin_Server;
begin
  try
    vDM := TDM_IntMovFin_Server.Create(Self);
    
    vDM.CL_IntMovFin_.CreateDataSet;
    vDM.CL_IntMovFin_.Insert;
    {Carregar os campos do ClientDataSet}
    
    vDM.CL_IntMovVinc_.CreateDataSet;
    vDM.CL_IntMovVinc_.Insert;
    {Carregar os campos do ClientDataSet}    
    
    vDM.Integra(1{código do usuário},
                [vDM.CL_IntMovFin_.Data, 
                 vDM.CL_IntMovVinc_.Data]);        
  finally
    FreeAndNil(vDM);
  end;
end;